From de775e6dc19511017a8991425e5e8f8cc2555bc5 Mon Sep 17 00:00:00 2001 From: Casey Klein Date: Sun, 28 Nov 2010 06:39:55 -0600 Subject: [PATCH] Fixes bug in typesetting tests --- collects/redex/tests/bitmap-test-util.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/redex/tests/bitmap-test-util.rkt b/collects/redex/tests/bitmap-test-util.rkt index 943bdbb9a9..f717586c9b 100644 --- a/collects/redex/tests/bitmap-test-util.rkt +++ b/collects/redex/tests/bitmap-test-util.rkt @@ -92,10 +92,10 @@ (let loop ([y 0]) (unless (= y h) (cond - [(and (<= x (send new-bitmap get-width)) - (<= y (send new-bitmap get-height)) - (<= x (send old-bitmap get-width)) - (<= y (send old-bitmap get-height))) + [(and (< x (send new-bitmap get-width)) + (< y (send new-bitmap get-height)) + (< x (send old-bitmap get-width)) + (< y (send old-bitmap get-height))) (send new get-pixel x y new-c) (send old get-pixel x y old-c) (cond