为什么chibi-scheme抛出这个错误？

Question

每当我使用chibi-schemev0.5.3运行下面的代码时，我都会在文件project_euler.scm: empty application in source：()的第11行得到一个错误，但当我使用Dr球拍时，它运行得很好。有谁知道为什么会发生这种事吗？

#! /usr/bin/env chibi-scheme

(define (sum-of-amicable-pairs n)
  (let ((sums (list->vector (map (lambda (i) 
                                   (reduce + 0 
                                           (filter (lambda (j) (= (remainder i j) 0)) 
                                                   (iota (+ 1 (quotient i 2)) 1 1)))) 
                                 (iota n 0 1)))))
    (let loop ((len (vector-length sums))
                    (res-list '())
                    (i 0))
      (cond
        ((= i len) (reduce + 0 res-list))
        ((and (< (vector-ref sums i) n) 
              (or (> (vector-ref sums i) i) (< (vector-ref sums i) i))
              (= (vector-ref sums (vector-ref sums i)) i))
         (loop len (cons (+ (vector-ref sums i) (vector-ref sums  (vector-ref sums i))) res-list)
               (+ i 1)))
        (else
          (loop len res-list (+ i 1)))))))

(sum-of-amicable-pairs 10000)

Answer 1

好吧，我想我知道这是怎么回事了。当您加载chibi-scheme时，它使用的是R7RS方案，但是当您加载一个文件时，它使用的是Chibi支持的最基本的方案版本。请参阅：http://synthcode.com/scheme/chibi/#h3_SchemeStandard

如果您将(import (scheme base))放在文件的顶部，那么您就不会再得到关于空应用程序的错误。此外，您还应该执行(import (srfi 1))，以便获得您使用的列表处理过程。请参阅：http://synthcode.com/scheme/chibi/#h2_StandardModules