diff --git a/stx-utils.rkt b/stx-utils.rkt
index 699700e..1dca58d 100644
--- 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