如何在 Chicken Scheme 模块中定义可变参数函数？

Question

这是“鸡计划”中的错误吗？

#;1> (define (foo x . y) x)
#;2> (foo 1 2 3)
1
#;3> (module bar (import scheme chicken) (define (foo x . y) x))

Error: invalid syntax in macro form: (foo x . y)

        Call history:

        <syntax>                (module bar (import scheme chicken) (define (foo x . y) x))
        <syntax>                (##core#module bar (import scheme chicken) (define (foo x . y) x))
        <syntax>                (define (foo x . y) x)
        <syntax>                (foo x . y)     <--

Answer 1

您的模块语法缺少要从模块导出的符号列表。试试这个：

#1;> (module bar (foo) (import scheme chicken) (define (foo x . y) x))
#2;> (import bar)
#3;> (foo 1 2 3)
1

注意声明模块名称后的 (foo)。

我将添加 邮件列表 和 irc 频道（#chicken on freenode）非常活跃。如果您对鸡肉有疑问，他们是获得解答的最佳场所。

Answer 2

可变参数函数的点 (.) 语法不可跨模块使用；它位于 scheme 模块内。创建自定义模块时，必须显式导入 scheme 模块才能重新启用可变参数函数。

#1;> (module bar (foo) (import scheme chicken) (define (foo x . y) x))
#2;> (import bar)
#3;> (foo 1 2 3)
1