id,summary,reporter,owner,description,type,status,priority,milestone,component,resolution,keywords,cc,planetversion,pltversion
217,segments->painter return is failing on being passed to paint,ebellani@…,soegaard,";; examples of segments
(define first-segment (make-segment (make-vect 0.0 1.0)
                                    (make-vect 2.0 3.0)))

(define second-segment (make-segment (make-vect 4.0 5.0)
                                     (make-vect 6.0 7.0)))




(paint (segments->painter (list first-segment
                                second-segment)))
;; fails with:

;; for-each: expects type <proper list> as 2nd argument, given: ({{0.0 . 1.0} 2.0 . 3.0} {{3.0 . 5.0} 6.0 . 7.0}); other arguments were: #<procedure:...t/2/1/prmpnt.scm:115:7>",defect,new,major,,soegaard/sicp.plt,,segments->painter paint,,(2 1),4.2.2