From 2382712f3fe64b49485bf2de9af40216e4a48eae Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 20 Nov 2008 22:03:43 +0000 Subject: [PATCH] fixed exponential slowdown bug svn: r12547 --- collects/slideshow/pict.ss | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/collects/slideshow/pict.ss b/collects/slideshow/pict.ss index 9e2f3210a6..3a8e3c7250 100644 --- a/collects/slideshow/pict.ss +++ b/collects/slideshow/pict.ss @@ -44,9 +44,9 @@ #:line-width [lw #f] #:color [col #f] #:under? [under? #f]) - (finish-pin (t:pin-line (ghost p) - src find-src - dest find-dest) + (finish-pin (launder (t:pin-line (ghost p) + src find-src + dest find-dest)) p lw col under?)) (define (pin-arrow-line sz p src find-src dest find-dest @@ -54,10 +54,10 @@ #:color [col #f] #:under? [under? #f] #:solid? [solid? #t]) - (finish-pin (t:pin-arrow-line sz (ghost p) - src find-src - dest find-dest - #f #f #f solid?) + (finish-pin (launder (t:pin-arrow-line sz (ghost p) + src find-src + dest find-dest + #f #f #f solid?)) p lw col under?)) (define (pin-arrows-line sz p src find-src dest find-dest @@ -65,10 +65,10 @@ #:color [col #f] #:under? [under? #f] #:solid? [solid? #t]) - (finish-pin (t:pin-arrows-line sz (ghost p) - src find-src - dest find-dest - #f #f #f solid?) + (finish-pin (launder (t:pin-arrows-line sz (ghost p) + src find-src + dest find-dest + #f #f #f solid?)) p lw col under?)) (define (finish-pin l p lw col under?)