Scheme: define-syntax-rule pattern matching syntax

Question

I would like to rewrite this:

(define-syntax match-rewriter
  (syntax-rules ()
    ((_ (patt body) ...)
      (λ (x) (match x (patt body) ... (_ x))))))

using (define-syntax-rule pattern template) but I can't seem to get the syntax right. Any advice is appreciated.

Thanks.

Jeremiah Willcock · Accepted Answer · 2011-03-14 00:41:13Z

1

Try:

(define-syntax-rule (match-rewriter (patt body) ...)
  (lambda (x) (match x (patt body) ... (_ x))))

answered Mar 14, 2011 at 0:41

Jeremiah Willcock

31.2k8 gold badges81 silver badges79 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Thanks! That's almost exactly what I was using but I see now that I had an extra pair of parentheses throwing off the pattern.