..
original commit: de7ed760dcf6f50a0eae65c7213d1b373b8ee17c
This commit is contained in:
parent
40c5a4f242
commit
cf0e4d0093
|
@ -477,8 +477,7 @@ needed to really make this work:
|
|||
ht)))
|
||||
|
||||
(define (syntax-properties stx)
|
||||
(let ([is-property?
|
||||
(lambda (prop) (syntax-property stx prop))])
|
||||
(let ([is-property? (lambda (prop) (syntax-property stx prop))])
|
||||
(filter is-property?
|
||||
'(inferred-name
|
||||
bound-in-source
|
||||
|
|
Loading…
Reference in New Issue
Block a user