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)