方案：定義語法規則的模式匹配語法

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))))