commit 820d56cf2a70709eb663c3640bac9f8a9cdcbbc8 parent 723c5bbaec2a739af0e383cd752c063830d39e4b Author: Stephen Chang <stchang@ccs.neu.edu> Date: Fri, 15 Aug 2014 15:32:18 -0400 stx-utils: add curly-parens? Diffstat:
| M | stx-utils.rkt | | | 7 | +++++-- |
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/stx-utils.rkt b/stx-utils.rkt @@ -6,4 +6,7 @@ (define (stx-andmap f . stx-lsts) (apply andmap f (map syntax->list stx-lsts))) (define (stx-flatten stxs) - (apply append (stx-map syntax->list stxs))) -\ No newline at end of file + (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))) +\ No newline at end of file