diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-08-14 18:12:33 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-08-14 18:12:33 -0400 |
| commit | 3fd071a3ff078670cd7d53f6cbdfbb1192f9434f (patch) | |
| tree | 26215971a5d75ade247125711af19f43bf3b9548 | |
| parent | 8bd1b2c460034a5b2b7c197f4abc334300f4ef90 (diff) | |
Remove redundant comparisons in rect-contains?
| -rw-r--r-- | 2d/rect.scm | 4 |
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)))) |