From 28aa5e9f26df2d4ed136fa798b1d21f399a60a48 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Nov 2012 12:22:56 -0600 Subject: [PATCH] fix some right/top mixups closes PR 13312 original commit: df5ee4c7bac01f87d3cfd75846cda4152bf0da5b --- collects/framework/private/text.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 1080ee7c..1a9643e2 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -147,16 +147,16 @@ [(equal? new-rectangles old-rectangles) (loop left top right bottom)] [else - (define-values (new-left new-right new-top new-bottom) + (define-values (new-left new-top new-right new-bottom) (for/fold ([left left] [top top] [right right] [bottom bottom]) ([r (in-list new-rectangles)]) (join-rectangles left top right bottom r))) - (define-values (both-left both-right both-top both-bottom) + (define-values (both-left both-top both-right both-bottom) (for/fold ([left new-left] [top new-top] [right new-right] [bottom new-bottom]) ([r (in-list old-rectangles)]) (join-rectangles left top right bottom r))) (set-range-rectangles! a-range new-rectangles) - (loop both-left both-right both-top both-bottom)])] + (loop both-left both-top both-right both-bottom)])] [else ;; when old-rectangles is #f, that means that this ;; range has been removed from the ranges-deq, so