scheme - make-posn 返回 #而不是 posn

Question

我正在尝试了解 Scheme 中的绘图库，但我已经遇到了问题。

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

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

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

我试过只制作一个包含两个元素的列表作为位置，但这显然行不通。接下来，我检查了 defaultpos 是否实际上是一个 posn 结构，它就是。

(posn? defaultpos)
> #t

有谁能够帮助我？

Answer 1

您确定您使用的是正确的语言和导入吗？将您的语言设置为“初学者”并尝试这个，它适用于我：

(require htdp/draw)

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