From 9323007c9714104868d2db264f213fc98224b5fe Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 11 Oct 2012 16:22:50 -0600 Subject: [PATCH] slideshow/pict repair Merge to v5.3.1 (cherry picked from commit a755479d59a188b39c5bf32c36296828e98899c7) --- collects/texpict/balloon.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/texpict/balloon.rkt b/collects/texpict/balloon.rkt index bd29b4d323..b4c246cf3e 100644 --- a/collects/texpict/balloon.rkt +++ b/collects/texpict/balloon.rkt @@ -153,7 +153,7 @@ (define pip-wrap-balloon (lambda (p corner dx dy [color balloon-color] [c-rad corner-size] #:factor [factor 1]) - (pin-balloon (wrap-balloon p corner dx dy color c-rad) (blank 0) 0 0 #:factor factor))) + (pin-balloon (wrap-balloon p corner dx dy color c-rad #:factor factor) (blank 0) 0 0))) (define (do-place-balloon flip-proc? balloon p to find-to) (let-values ([(x y) (if (and (number? to)