从外部文件加载过程时出现未绑定变量错误

Question

我在从源构建的 Cloud9 托管工作区上使用 Chicken Scheme 4.9.0.1。

我正在尝试这个（我主要用 python 编码，所以我为奇怪的括号语法道歉）：

(define load-module
    (lambda (filepath) 
        (begin
            (load filepath)
        )
    )
)

(define print
    (lambda (command)
        (begin 
            (display command)
            (newline)
        )
    )
)

(load-module "../src/Basics.scm")
(print (exponent 5 2))

其中指数是：

(define (exponent num pow)
    (if (equal? pow 1)
        num
        (* num (exponent num (- pow 1))
        )
    )
)

但它给我以下错误：

Started /home/ubuntu/workspace/test.scm

CHICKEN
(c) 2008-2014, The Chicken Team
(c) 2000-2007, Felix L. Winkelmann
Version 4.9.0.1 (stability/4.9.0) (rev 8b3189b)
linux-unix-gnu-x86-64 [ 64bit manyargs dload ptables ]
bootstrapped 2014-06-07

; loading /home/ubuntu/workspace/project1/src/test.scm ...
; loading ../src/Basics.scm ...

Error: unbound variable: pow

        Call history:

        <eval>    [append] (cons item (reverse target))
        <eval>    [append] (reverse target)
        <eval>    [append] (reverse (cons item (reverse target)))
        <eval>    [append] (cons item (reverse target))
        <eval>    [append] (reverse target)
        <eval>    [append] (reverse (cons item (reverse target)))
        <eval>    [append] (cons item (reverse target))
        <eval>    [append] (reverse target)
        <eval>    [append] (reverse (cons item (reverse target)))
        <eval>    [append] (cons item (reverse target))
        <eval>    [append] (reverse target)
        <syntax>          (print (exponent 5 2))
        <syntax>          (exponent 5 2)
        <eval>    (print (exponent 5 2))
        <eval>    (exponent 5 2)
        <eval>    [exponent] (equal? pow 1)     <--

我在不同的方案实施（biwascheme，使用他们的在线 REPL）上尝试了相同的过程并且它有效。当我将代码直接添加到我正在处理的文件中而不从单独的文件加载它时，它就可以工作了。

为什么只有从单独的文件加载时才会出现未绑定变量错误？

Answer 1

对我来说很好用。在 Ubuntu 上使用相同版本编译 Chicken，直到特定修订版。

你的通话记录看起来很奇怪。更具体地说：

    <eval>    [append] (reverse target)
    <syntax>          (print (exponent 5 2))

[append] (reverse target) 部分看起来很奇怪。您的指数函数（如所述）不会调用它。即使假设历史是错误的并且实际上在 print 函数内部，我已经检查了 library.scm 并且该历史也没有意义。

这让我相信正在加载的 Basics.scm 文件出于某种原因不是您期望的文件，您最终得到了 exponent 的另一个无法工作的版本.

你可以让Chicken显示文件的内容来确认一下。例如：

(with-input-from-file "../src/Basics.scm"
  (lambda () 
    (display (read))))

结果应符合预期内容。

从外部文件加载过程时出现未绑定变量错误

Unbound variable error when loading a procedure from an external file

scheme

chicken-scheme