fix pin-under

svn: r4819
2006-11-10 20:49:58 +00:00 · 2006-11-10 20:49:58 +00:00 · 8b0045df18
commit 8b0045df18
parent 302fa08dd8
1 changed files with 2 additions and 2 deletions
--- 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