From 8b0045df18e78bd77d24b852cf2ceb19f1498e7a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Nov 2006 20:49:58 +0000 Subject: [PATCH] fix pin-under svn: r4819 --- collects/texpict/private/common-unit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/texpict/private/common-unit.ss b/collects/texpict/private/common-unit.ss index 8b7f41dfbd..f8c2df4930 100644 --- a/collects/texpict/private/common-unit.ss +++ b/collects/texpict/private/common-unit.ss @@ -838,8 +838,8 @@ (place-it 'pin-over #t base dx dy target)) (define (pin-under base dx dy target) (cc-superimpose - (place-it 'pin-under #t (launder (ghost base)) dx dy target) - base)) + (place-it 'pin-under #t (ghost base) dx dy target) + (launder base))) (define black-and-white (make-parameter #f