make-posn返回＃<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)