From f51803a3c70986fbd51a380219bbabd85c9eb31a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 3 Nov 2009 17:22:33 +0000 Subject: [PATCH] fix 'launder' svn: r16519 --- collects/texpict/private/common-unit.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/texpict/private/common-unit.ss b/collects/texpict/private/common-unit.ss index 7bdc81171c..1b8ea3526f 100644 --- a/collects/texpict/private/common-unit.ss +++ b/collects/texpict/private/common-unit.ss @@ -186,11 +186,11 @@ (car l) (loop (cdr l))) l))]) - (let ([b (blank (pict-width l) (pict-height l) - (pict-ascent l) (pict-descent l))]) + (let ([b2 (blank (pict-width l) (pict-height l) + (pict-ascent l) (pict-descent l))]) (use-last/unchecked - (pin-over box x y b) - b)))])))) + (pin-over b x y b2) + b2)))])))) (define (lift p n) (let* ([dh (- (max 0 (- n (pict-descent p))))]