如何在方案中的列表中映射宏？

Question

我有一个计划宏和一个长列表，我想在列表中映射宏，就像它是一个函数一样。我怎样才能使用 R5RS 做到这一点？

该宏接受多个参数：

(mac a b c d)

列表有

(define my-list ((a1 b1 c1 d1)
                 (a2 b2 c2 d2)
                 ...
                 (an bn cn dn)))

我想要这个：（

(begin
   (mac a1 b1 c1 d2)
   (mac a2 b2 c2 d2)
   ...
   (mac an bn cn dn))

顺便说一句，正如你所看到的，我也想拼接参数列表）

Answer 1

扩展 z5h 使用 eval 的答案，下面的方法显示了如果交互环境在使用的 R5RS 版本中实现，则如何编写地图宏宏：

(define test-list '((1 2 3 4)
                    (5 6 7 8)))

;Or if your version of scheme implments interaction-environment then:
(define-syntax trade
  (syntax-rules ()
    ((_ a b c d) (display (list b a d c)))))

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;Careful this is not really mapping. More like combined map and apply.
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(define-syntax map-macro
  (syntax-rules ()
    ((_ mac ls) (let ((mac-list (map (lambda (lst) (cons 'trade lst)) ls)))
                          (eval 
                           `(begin
                              ,@mac-list)
                           (interaction-environment))))
                        ))

(map-macro trade test-list)
;outputs: (2 1 4 3)(6 5 8 7)

因此最后一个地图宏调用将评估以下内容：

最终得到什么从（地图宏观贸易测试列表）评估为：

(begin
  (trade 1 2 3 4)
  (trade 5 6 7 8))

这不完全是地图，但我相信它确实回答了您的问题。

Answer 2

语法扩展被扩展为
评估开始时的核心表格
（编译或解释之前）
通过语法扩展器。 ——戴布维格，“
方案编程语言：

宏根据语法进行操作。这发生在编译或执行之前。它为您提供了编写相同代码的另一种方式。

函数对变量和值（可能是列表、原子、数字等）进行操作，调用函数时变量和值的值是已知的。

所以映射宏没有意义。您要求调用很久以前已经发生的事情（宏扩展）。

如果您需要一些东西来为您编写代码并在运行时对其进行评估，那么可能是您需要eval的情况之一。

Answer 3

想要

(map (lambda (l) (mac (car l) (caar l) (caaar l) (caaaar l))) mylist)

工作之类的吗？