@ -25,7 +25,9 @@
vappend*
happend2
happend
happend*))
happend*
hline
vline))
(define (rectangle-intersect a-x1 a-y1
a-x2 a-y2