summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-08-14 18:12:33 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-08-14 18:12:33 -0400
commit3fd071a3ff078670cd7d53f6cbdfbb1192f9434f (patch)
tree26215971a5d75ade247125711af19f43bf3b9548
parent8bd1b2c460034a5b2b7c197f4abc334300f4ef90 (diff)
Remove redundant comparisons in rect-contains?
-rw-r--r--2d/rect.scm4
1 files changed, 0 insertions, 4 deletions
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))))