diff --git a/stx-utils.rkt b/stx-utils.rkt
index 1dca58d..551555d 100644
--- a/stx-utils.rkt
+++ b/stx-utils.rkt
@@ -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)))
\ No newline at end of file
+  (and paren-prop (char=? #\{ paren-prop)))
+(define (stx-member v stx)
+  (member v (syntax->list stx) free-identifier=?))
\ No newline at end of file