Scheme 使posn返回#<；posn>；而不是posn

我正试图了解Scheme中的draw库，但我已经遇到了一个问题

(define defaultpos (make-posn 400 400))
(start 800 800)
(draw-circle defaultpos 10 'green)

理论上，这应该打开一个新的窗口，中间有一个绿色的圆圈。相反，我收到以下错误消息：

draw-circle: expects a posn as first argument, given #<posn>

---

有人能帮我吗？

你确定你使用的语言和导入正确吗？将您的语言设置为“初学者”，然后尝试以下方法，它对我有效：

(require htdp/draw)

(define defaultpos (make-posn 400 400))
(start 800 800)
(draw-circle defaultpos 10 'green)

(require htdp/draw)

(define defaultpos (make-posn 400 400))
(start 800 800)
(draw-circle defaultpos 10 'green)