Схема: определение синтаксиса правила синтаксиса

Question

Я хотел бы переписать это:

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

использование (шаблон шаблона define-syntax-rule), но я не могу понять синтаксис правильно. Любой совет приветствуется.

Спасибо.

Answer 1

Попробуйте:

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