Testing Project 2

[Phillip Liu]

To Anyone (Greg especially):

My partner and I defined everything supposedly correctly. When running the
(x-painter full-frame) function (painter-x function in our case), we only
get a return closure args list from the segments->painter function. We
didn't modify it or anything.

Check out our painter-x function...

(define (painter-x frame)
(let ((seglist (list (make-segment (frame-origin frame) (add-vect
(frame-edge1 frame) (frame-edge2 frame)))
(make-segment (frame-edge2 frame) (frame-edge1
frame))))
)
(segments->painter seglist)))

After we ran the function accordingly to turtle graphics:

we get

STk> (painter-x full-frame)
#[closure arglist=(frame) 1b8cc0]

Whats going on?

[Phillip Liu]

Ohhhhh right i see. I didn't care to look up at the segments->painter
function. Thanks alot!

-Phil

[Greg Krimer]

See, you don't need me after all. =)

On Sun, 6 Oct 2002, van thanh nguyen wrote:

> The reason you get #[closure arglist=(frame) 1b8cc0] is that
> (segments->painter seglist) always returns a procedure takes frame as an
> argument.
> Just try this to see if it works
> ((segments->painter seglist) frame)
> I hope that helps
> Van
>
> In article <Pine.SOL.4.44.02100...@dv310.CS.Berkeley.EDU>,