make-posn返回#而不是posn
问题描述:
我试图感受一下Scheme中的绘图库,但是我已经遇到了问题。make-posn返回#<posn>而不是posn
(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
有人能帮助我吗?
答
你确定你使用正确的语言和进口?设置你的语言为“初学者”,试试这个,它适用于我:
(require htdp/draw)
(define defaultpos (make-posn 400 400))
(start 800 800)
(draw-circle defaultpos 10 'green)