From e47b0f391c3a0f9807e0a86ead63d3705c308d61 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 25 Jan 2005 22:55:43 +0000 Subject: [PATCH] . original commit: 6eb0df05144dfb78c6994b38bf871a787bebebef --- collects/mrlib/graph.ss | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss index 4326a98e..9bac69b4 100644 --- a/collects/mrlib/graph.ss +++ b/collects/mrlib/graph.ss @@ -263,13 +263,12 @@ [union (union-rects rects)] [invalidate-rect (lambda (rect) - (time - (invalidate-bitmap-cache (rect-left rect) - (rect-top rect) - (- (rect-right rect) - (rect-left rect)) - (- (rect-bottom rect) - (rect-top rect)))))]) + (invalidate-bitmap-cache (rect-left rect) + (rect-top rect) + (- (rect-right rect) + (rect-left rect)) + (- (rect-bottom rect) + (rect-top rect))))]) (cond [(< (rect-area union) (apply + (map (lambda (x) (rect-area x)) rects)))