方案：定义语法规则的模式匹配语法

Question

我想改写这个：

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

使用（定义语法规则的图案模板），但我似乎无法得到正确的语法。任何建议表示赞赏。

谢谢。

Answer 1

尝试：

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