simplescheme程序中的错误

我正在使用Simply Scheme手册中的程序：

(require (planet dyoo/simply-scheme))
(define (combinations size set)
  (cond ((= size 0) '(()))
    ((empty? set) '())
    (else (append (prepend-every (first set)
                                 (combinations (- size 1)
                                               (butfirst set)))
                  (combinations size (butfirst set))))))

但是，当我运行它时，会出现以下错误：

 expand: unbound identifier in module in: prepend-every

有没有关于如何修复的想法

---

我使用的是DrRacket，我相信您的问题是“prepend every”没有在任何地方定义。

假设您正在阅读第1章，该函数在本章前面已经定义。看见假设您在一次会议中完成了整个章节，因此一些演示程序将取决于作者之前几段所讨论的函数