stx-utils: add stx-member

This commit is contained in:
Stephen Chang 2014-08-20 19:18:30 -04:00
parent b0769c5f1a
commit 81143e27cb

View File

@ -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=?))