From 974337cc6f81ede07562eb27c0445178c513a6b3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 11 Oct 2006 19:54:57 +0000 Subject: [PATCH] performance bugfix svn: r4553 --- collects/texpict/private/common-unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/texpict/private/common-unit.ss b/collects/texpict/private/common-unit.ss index 5ad8260af0..8b7f41dfbd 100644 --- a/collects/texpict/private/common-unit.ss +++ b/collects/texpict/private/common-unit.ss @@ -838,7 +838,7 @@ (place-it 'pin-over #t base dx dy target)) (define (pin-under base dx dy target) (cc-superimpose - (place-it 'pin-under #t (ghost base) dx dy target) + (place-it 'pin-under #t (launder (ghost base)) dx dy target) base)) (define black-and-white