0

我正在尝试静态编译和链接一个 Chicken Scheme 程序，而这个鸡蛋给我带来了一些麻烦。当我在 repl 上尝试时，我得到了同样的错误，但有更多信息；所以这里是：

> chicken-install >/dev/null -retrieve lookup-table
> csi ./lookup-table/lookup-table.scm -I ./lookup-table

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 /tmp/tempfabd.10142/lookup-table/lookup-table.scm ...
; loading /var/lib//chicken/7/chicken.import.so ...
; including /tmp/tempfabd.10142/lookup-table/lookup-table-body.scm ...
; loading /var/lib//chicken/7/srfi-1.import.so ...
; loading /var/lib//chicken/7/srfi-69.import.so ...
; loading /var/lib//chicken/7/ports.import.so ...
; loading /var/lib//chicken/7/data-structures.import.so ...
; loading /var/lib//chicken/7/extras.import.so ...
; loading /var/lib//chicken/7/miscmacros.import.so ...
; loading /var/lib//chicken/7/type-checks.import.so ...
; loading /var/lib//chicken/7/type-errors.import.so ...
; loading /var/lib//chicken/7/foreign.import.so ...
; loading /var/lib//chicken/7/record-variants.import.so ...
; loading /var/lib//chicken/7/miscmacros.so ...
; loading /var/lib//chicken/7/record-variants.so ...

Warning: reference to possibly unbound identifier `MAGIC-LIMIT' in:
Warning:    magic-count?

Error: module unresolved: lookup-table

           Call history:

           <syntax>             [dict-print] (##core#let ((port (optional732 tmp735 #f))) (if (not port) (*dict-print dict) (with-output-to-port ......
           <syntax>             [dict-print] (##core#begin (##core#if (not port) (*dict-print dict) (with-output-to-port port (lambda () (*dict-p......
           <syntax>             [dict-print] (##core#if (not port) (*dict-print dict) (with-output-to-port port (lambda () (*dict-print dict))))
           <syntax>             [dict-print] (not port)
           <syntax>             [dict-print] (*dict-print dict)
           <syntax>             [dict-print] (with-output-to-port port (lambda () (*dict-print dict)))
           <syntax>             [dict-print] (lambda () (*dict-print dict))
           <syntax>             [dict-print] (##core#lambda () (*dict-print dict))
           <syntax>             [dict-print] (##core#begin (*dict-print dict))
           <syntax>             [dict-print] (*dict-print dict)
           <syntax>             [dict-print] (optional732 tmp735 #f)
           <syntax>             [dict-print] (##core#let ((tmp739 tmp735)) (##core#if (null?740 tmp739) #f (car741 tmp739)))
           <syntax>             [dict-print] (##core#begin (##core#if (null?740 tmp739) #f (car741 tmp739)))
           <syntax>             [dict-print] (##core#if (null?740 tmp739) #f (car741 tmp739))
           <syntax>             [dict-print] (null?740 tmp739)
           <syntax>             [dict-print] (car741 tmp739)     <--

我试过的所有其他鸡蛋都编译得很好。有人可以帮我解决这个问题吗？这有点让我停下脚步。

4

2 回答 2

1

它看起来像是特定鸡蛋中的一个简单错误。如果您想修复此问题，我建议您提交错误报告。最常见的方法是使用错误跟踪器（在这种情况下，可能是bugs.call-cc.org），向 egg 的作者发送电子邮件或使用chicken-users邮件列表。

PS：关于chicken-users，一般来说，你可能会比在 Stack Overflow 上更幸运地回答你的问题。

于 2016-08-15T06:33:18.233 回答
1

互联网表明这个鸡蛋有问题，可能这有帮助（似乎有效）：在lookup-table-body.scm ~line 308（在magic-count的定义中？）替换MAGIC-LIMIT为12：

(define-inline (magic-count? count) (<= count 12 #;MAGIC-LIMIT))

这个MAGIC-LIMIT导致问题的常量似乎只使用了一次，它的值在lookup-table.setup中定义......祝你好运！

于 2016-08-14T23:34:06.627 回答