From 4421e227ffa20c0b5f7680af589746f411783b61 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 10 Nov 2012 08:47:56 -0600 Subject: [PATCH] when changing the error arrows, only invalidate the editor when the arrows are actually different (just using eq? here) --- collects/drracket/private/unit.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index b7e1ecb2ea..0327fbac58 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -894,8 +894,9 @@ module browser threading seems wrong. (inherit invalidate-bitmap-cache) (define/public (set-error-arrows arrows) - (set! error-arrows arrows) - (invalidate-bitmap-cache)) + (unless (eq? arrows error-arrows) + (set! error-arrows arrows) + (invalidate-bitmap-cache))) (define error-arrows #f)