Scheme：define-syntax-rule 模式匹配语法

【问题标题】：Scheme: define-syntax-rule pattern matching syntaxScheme：define-syntax-rule 模式匹配语法
【发布时间】：2011-03-14 00:36:10
【问题描述】：

我想重写这个：

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

使用 (define-syntax-rule 模式模板) 但我似乎无法正确使用语法。任何建议表示赞赏。

谢谢。

【问题讨论】：

【解决方案1】：

试试：

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

【讨论】：