From d177a7f06fb2d14960048e1737692fe5fd4da3ca Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 28 Nov 2017 16:54:30 -0800
Subject: [PATCH] finicky kitty

---
 beautiful-racket-lib/br/define.rkt | 2 +-
 beautiful-racket-lib/br/syntax.rkt | 9 ++++-----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/beautiful-racket-lib/br/define.rkt b/beautiful-racket-lib/br/define.rkt
index 3dfb22d..157ebe3 100644
--- a/beautiful-racket-lib/br/define.rkt
+++ b/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] ...
diff --git a/beautiful-racket-lib/br/syntax.rkt b/beautiful-racket-lib/br/syntax.rkt
index 38abc1c..432466d 100644
--- a/beautiful-racket-lib/br/syntax.rkt
+++ b/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 (if (syntax? stx) stx (datum->syntax #'here stx))
-        #:literals BOUND-LITS
-        #:datum-literals UNBOUND-LITS
-        . EXPS))))
+    #'(syntax-parse (syntax-case STX () [any #'any])
+          #:literals BOUND-LITS
+          #:datum-literals UNBOUND-LITS
+          . EXPS)))
 
 (define-macro-cases pattern-case
   [(_ STX-ARG