From 40a9794c8f53c41f1b5dffb7e9ca5bd0c4dd7f95 Mon Sep 17 00:00:00 2001 From: Eric Dobson Date: Wed, 6 Feb 2013 23:40:31 -0800 Subject: [PATCH] Add missing pure functions. --- collects/typed-racket/optimizer/dead-code.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/optimizer/dead-code.rkt b/collects/typed-racket/optimizer/dead-code.rkt index bd5142558a..d60b84f41b 100644 --- a/collects/typed-racket/optimizer/dead-code.rkt +++ b/collects/typed-racket/optimizer/dead-code.rkt @@ -11,7 +11,7 @@ (define-syntax-class predicate #:literals (flvector? fxvector? exact-integer? fixnum? flonum? vector? string? bytes?) - [pattern (~and x:id (~or flvector? exact-integer? fixnum? flonum? vector? fxvector?))]) + [pattern (~and x:id (~or flvector? fxvector? exact-integer? fixnum? flonum? vector? string? bytes?))]) (define (pure? stx) (syntax-parse stx