Add missing pure functions.
This commit is contained in:
parent
19241c0979
commit
40a9794c8f
|
@ -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