hc-append模块中的未绑定标识符

Question

您好我正在关注the quick introduction to racket。在第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-apppend ：它应该是 hc-append 。