编译鸡计划鸡蛋"lookup-table"时出现问题

Question

我正试图静态编译并链接一个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)     <--

我试过的所有其他鸡蛋都编译得很好。有人能帮我解决这个问题吗?

Answer 1

互联网建议这个鸡蛋的问题，可能这有助于(似乎工作):在查找表体。scm ~第308行(在magic-count?的定义中)将MAGIC-LIMIT替换为12:

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

这个引起问题的MAGIC-LIMIT常数似乎只使用一次，它的值在查找表中定义。好运！

Answer 2

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

PS:关于chicken-users，你可能会有更好的运气得到你的问题回答在那里比堆栈溢出，一般来说。