どうも segments->painter が戻す手続きが微妙な模様。 # てか stack trace 見たらそこっちゃソコなんですが (define (segments->painter segment-list) (lambda (frame) (for-each (lambda (segment) (draw-line ((frame-coord-map frame) (start-segment s…