如何在Scheme（GNU Guile）中为宏创建别名？

嘿，我刚好在Guile里折腾过宏别名的事儿，给你分享几个实用的方法！

方法1：用define-syntax做参数转发 #

这是最直观的方式，相当于给原宏套一层“壳”，把所有参数原封不动传过去。比如你有个宏my-awesome-macro，想给它起别名mam，代码这么写：

(define-syntax mam
  (syntax-rules ()
    [(_ args ...) (my-awesome-macro args ...)]))

不管原宏接受多少参数，这个写法都能完美适配，效果和直接用原宏一模一样。

方法2：用identifier-syntax直接绑定标识符 #

如果你想要更简洁的方式，还可以直接把新别名绑定到原宏的标识符上，语法解析阶段就会完成替换，性能和原宏没差：

(define-syntax mam
  (identifier-syntax my-awesome-macro))

这个方法特别适合给常用宏起短别名，比如给when改名叫if-true：

(define-syntax if-true
  (identifier-syntax when))

;; 测试一下
(if-true (> 10 5) (display "10 is greater than 5!"))

运行这段代码会正常输出内容，和用when完全一致。

针对旧宏的兼容方法 #

如果你碰到的是用define-macro定义的旧宏（Guile现在不推荐用这种方式了），方法1依然有效，只需要把转发逻辑写进去就行：

;; 假设原宏是用define-macro定义的
(define-macro old-macro
  (lambda (args)
    `(display ,(car args))))

;; 给它起别名
(define-syntax old-macro-alias
  (syntax-rules ()
    [(_ args ...) (old-macro args ...)]))

小提醒 #

• 一定要确保原宏在定义别名之前已经被加载到当前环境里，不然会报“未定义标识符”的错误。
• 优先用define-syntax相关的方法，比旧的define-macro更符合Scheme标准，也更可靠。

内容的提问来源于stack exchange，提问作者Kyuvi