[private] correctly check for 'quote' identifier

private/common.rkt

@@ -1,12 +1,32 @@
 #lang racket/base
 
+;; Common helper functions
+;; TODO actually detect the `quote` identifier, don't use eq?
+
 (provide
   expand-expr
   ;; (-> Syntax Syntax)
   ;; Call local expand for an expression context with an empty list of stop-ids
+
+  quoted-stx-value?
+  ;; (-> Any (U #f Syntax))
+  ;; If the argument is a syntax object representing a quoted #%datum `v`,
+  ;;  return `v`.
+  ;; Otherwise, return #f.
 )
 
+(require
+  (for-template (only-in racket/base quote)))
+
 ;; =============================================================================
 
 (define (expand-expr stx)
   (local-expand stx 'expression '()))
+
+(define (quoted-stx-value? stx)
+  (and
+    (syntax? stx)
+    (syntax-case stx (quote)
+     [(quote v)
+      (syntax-e #'v)]
+     [else #f])))