Add missing pure functions.

original commit: 40a9794c8f53c41f1b5dffb7e9ca5bd0c4dd7f95
This commit is contained in:
Eric Dobson 2013-02-06 23:40:31 -08:00 committed by Vincent St-Amour
parent 72e090598d
commit 7dc142c60e

View File

@ -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