DrRacket编写方案中的“不适当列表”错误

Question

我只是按照SICP 3.3.3中的说明来创建表。我写的代码运行得很好。

以下是code_0.scm：

#lang scheme

(require rnrs/base-6)
(require rnrs/mutable-pairs-6)

(define (make-table)
  (list '*table*))

(define (assoc key records)
  (cond ((null? records)
         false)
        ((equal? key (caar records))
         (car records))
        (else
         (assoc key (cdr records)))))

(define (insert! key value table)
  (let ((record (assoc key (cdr table))))
    (if record
        (set-cdr! record value)
        (set-cdr! table
                  (cons (cons key value)
                        (cdr table)))))
  'OK)

(define (lookup key table)
  (let ((record (assoc key (cdr table))))
    (if record
        (cdr record)
        false)))


(define table (make-table))

(insert! 0 0 table)
(insert! 1 1 table)
(insert! 2 2 table)

此外，我希望将表引用为其他文件中的库，因此我编写了一个code_1.scm。

+：我现在删除了code_0中的"#lang方案“

code_1.scm：

#lang scheme/load
(load "code_0.scm")

(define table-0 (make-table))

(insert! 0 0 table-0)
(insert! 1 1 table-0)
(insert! 2 2 table-0)

编译错误显示：

assoc:不是一个正确的列表：{0。0}

这些都是怎么回事？

它是关于方案中的列表，DrRacket问题，还是语言的版本/标准？

Answer 1

问题是assoc是一个存在于方案中的函数。尝试将函数重命名为my，它将按预期工作。