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

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-apppend:它应该是hc-append.