I was solving the exercise no 6.6.2 from htdp, this is what i came up with.<br><br>;template (define fun-for-circle (lambda(a-circle)(circle-center a-circle)(circle-radius a-center)(circle-color a-circle)))<br>(define-struct circle (center radius color))<br>
(define a-circle(make-circle(make-posn 110 30) 30 'yellow))<br>(define draw-a-circle(lambda(a-circle)<br> (draw-circle ( circle-center a-circle)(circle-radius a-circle)(circle-color a-circle))))<br>
<br>(start 300 300)<br><br>(draw-a-circle a-circle)<br><br>But i am not sure this is the right way to approach this problem , i have used draw-circle to implement draw-a-circle .Any help is appreciated in improving the solution.<br>
<br><br>Aditya<br><br><br><br>