[plt-scheme] HTDP Exercise 6.6.2

I was solving the exercise no 6.6.2 from htdp, this is what i came up with.

;template (define fun-for-circle (lambda(a-circle)(circle-center
a-circle)(circle-radius a-center)(circle-color a-circle)))
(define-struct circle (center radius color))
(define a-circle(make-circle(make-posn 110 30) 30 'yellow))
(define draw-a-circle(lambda(a-circle)
                       (draw-circle ( circle-center a-circle)(circle-radius
a-circle)(circle-color a-circle))))

(start 300 300)

(draw-a-circle a-circle)

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.


Aditya
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20090224/90f81dea/attachment.html>