summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/rect.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/2d/rect.scm b/2d/rect.scm
index e0a3e98..7169302 100644
--- a/2d/rect.scm
+++ b/2d/rect.scm
@@ -106,8 +106,8 @@ not overlap, a rect of size 0 is returned."
(or (and (>= (rect-x rect2) (rect-x rect1))
(<= (rect-x rect2) (rect-x2 rect1)))
(and (>= (rect-x2 rect2) (rect-x rect1))
- (<= (rect-x2 rect2) (rect-x2 rect1)))
- (and (>= (rect-y rect2) (rect-y rect1))
+ (<= (rect-x2 rect2) (rect-x2 rect1))))
+ (or (and (>= (rect-y rect2) (rect-y rect1))
(<= (rect-y rect2) (rect-y2 rect1)))
(and (>= (rect-y2 rect2) (rect-y rect1))
(<= (rect-y2 rect2) (rect-y2 rect1)))))