stx-utils: add stx-member
This commit is contained in:
parent
b0769c5f1a
commit
81143e27cb
|
@ -9,4 +9,6 @@
|
|||
(apply append (stx-map syntax->list stxs)))
|
||||
(define (curly-parens? stx)
|
||||
(define paren-prop (syntax-property stx 'paren-shape))
|
||||
(and paren-prop (char=? #\{ paren-prop)))
|
||||
(and paren-prop (char=? #\{ paren-prop)))
|
||||
(define (stx-member v stx)
|
||||
(member v (syntax->list stx) free-identifier=?))
|
Loading…
Reference in New Issue
Block a user