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