racket - 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である必要があります。