finicky kitty

pull/13/merge
Matthew Butterick 7 years ago
parent 177dae090f
commit d177a7f06f

@ -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] ...

@ -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))
#'(syntax-parse (syntax-case STX () [any #'any])
#:literals BOUND-LITS
#:datum-literals UNBOUND-LITS
. EXPS))))
. EXPS)))
(define-macro-cases pattern-case
[(_ STX-ARG

Loading…
Cancel
Save