如何在Chicken Scheme中使用中止程序

Question

我正在尝试使用Chicken Scheme's abort程序，如下面的代码所示：

(module change-calculator (export calculate-change)
  (import scheme)

  (define (calculate-change coin-values amount)
    (cond ((null? coin-values) (abort '"coin-values should contain at least one value."))
          ((= 0 amount) '() )))
)

但收到以下警告：

Warning: reference to possibly unbound identifier `abort' in:
Warning:    calculate-change

文档未提及任何需要导入的其他模块。我尝试导入extras,utils,srfi-12但没有成功。谁能告诉我使用中止程序的正确方法？或者我错过了其他什么？

Answer 1

啊，这是一个容易犯的错误。第(import scheme)行应为(import scheme chicken)。祝你的模块好运！