Add missing pure functions.
original commit: 40a9794c8f53c41f1b5dffb7e9ca5bd0c4dd7f95
This commit is contained in:
parent
72e090598d
commit
7dc142c60e
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user