finicky kitty

beautiful-racket-lib/br/define.rkt

@@ -149,7 +149,7 @@
            (λ (stx)
              (define result
                (syntax-parameterize ([caller-stx (make-rename-transformer #'stx)])
-                 (syntax-parse (if (syntax? stx) stx (datum->syntax #'here stx))
+                 (syntax-parse (syntax-case stx () [any #'any])
                      #:literals BOUND-LITS
                      #:datum-literals UNBOUND-LITS
                    [pat . result-exprs] ...

beautiful-racket-lib/br/syntax.rkt

@@ -39,11 +39,10 @@
 
 (define-macro (syntax-parse/easy STX LITS . EXPS)
   (with-syntax ([(BOUND-LITS UNBOUND-LITS) (generate-bound-and-unbound-literals #'LITS)])
-    #'(let ([stx STX])
+    #'(syntax-parse (syntax-case STX () [any #'any])
-        (syntax-parse (if (syntax? stx) stx (datum->syntax #'here stx))
+          #:literals BOUND-LITS
-        #:literals BOUND-LITS
+          #:datum-literals UNBOUND-LITS
-        #:datum-literals UNBOUND-LITS
+          . EXPS)))
-        . EXPS))))
 
 (define-macro-cases pattern-case
   [(_ STX-ARG