racket - hc-在模块中附加未绑定标识符

Question

您好，我正在关注球拍的快速介绍。在第 5 章中，他们提出了这段代码（运行良好）：

(define (four p)
  (define two-p (hc-append p p))
  (vc-append two-p two-p))

通常会使用 let 来编写，所以我编写了代码：

#lang slideshow

(define (square n)
  (filled-rectangle n n))
(define (four p)
  (let ([two-p (hc-apppend p p)])
  (vc-append two-p two-p)))

但它不起作用。错误信息是：

expand: unbound identifier in module in: hc-apppend

Answer 1

只是检查：你还记得吗

#lang slideshow

作为第一行？

另外，计算p个字符的数量！它是 hc-append。错误提到hc-append：它应该是hc-append。