如何在 Scheme 中将 'λ' 定义为 'lambda' 的别名？

Question

我知道我可以像这样创建别名： (define first car) 即(first '(a b c)) => a
但这不适用于某些关键字，我不能说 (define alias define) 或 (define λ lambda)

但我想做的是将λ 定义为lambda 的别名，这样我就可以说：

(define add
  (λ args-list
    (apply + args-list)))

而不是通常的

(define add
  (lambda args-list
    (apply + args-list)))

如果有人知道如何做到这一点或能指出我正确的方向，我将不胜感激。我知道这在 Racket 中是开箱即用的，但我想知道如果可能的话，如何实现它。

Answer 1

你必须使用宏

(define-syntax λ
  (syntax-rules ()
    ((_ args body ...)
     (lambda args body ...))))