From 3fd071a3ff078670cd7d53f6cbdfbb1192f9434f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 14 Aug 2013 18:12:33 -0400 Subject: Remove redundant comparisons in rect-contains? --- 2d/rect.scm | 4 ---- 1 file changed, 4 deletions(-) (limited to '2d/rect.scm') diff --git a/2d/rect.scm b/2d/rect.scm index 7169302..bbccc0e 100644 --- a/2d/rect.scm +++ b/2d/rect.scm @@ -116,9 +116,5 @@ not overlap, a rect of size 0 is returned." "Tests if the given point is within rect." (and (>= x (rect-x rect)) (<= x (rect-x2 rect)) - (>= x (rect-x rect)) - (<= x (rect-x2 rect)) - (>= y (rect-y rect)) - (<= y (rect-y2 rect)) (>= y (rect-y rect)) (<= y (rect-y2 rect)))) -- cgit v1.2.3