scheme48:断言-违规:未定义变量[全局]数组维度用户

Question

scheme48新手。我想知道如何导入数组模块；希望创建2-d数组

我已经尝试过用这两种方法导入here中描述的数组函数：

,open Arrays
,open arrays

但是当我尝试在该页面上运行示例代码时(复制到这里：)

(define (transpose array)
  (let ((dimensions (array-dimensions array)))
    (make-shared-array array
                       (lambda (x y)
                         (list y x))
                       (cadr dimensions)
                       (car dimensions))))
(array->vector
  (transpose
    (array '(2 3) 'a 'b 'c 'd 'e 'f)))

它总是给我同样的错误：

assertion-violation: undefined variable [global]
                     array-dimensions
                     user

我是如何安装scheme48的：

我使用sudo su完成了官方下载页面here上指定的所有内容，即。

cd /tmp
wget http://www.s48.org/1.9.2/scheme48-1.9.2.tgz
sudo su
cd /usr/local/src
gunzip -c </tmp/scheme48-1.9.2.tgz | tar xf -
cd scheme48-1.9.2
./configure
make
make install

然后

scheme48