suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix pin-under

Browse Source 
svn: r4819
This commit is contained in:
Matthew Flatt 2006-11-10 20:49:58 +00:00
parent 302fa08dd8
commit 8b0045df18
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/texpict/private/common-unit.ss
View File

@ -838,8 +838,8 @@
(place-it 'pin-over #t base dx dy target)) (place-it 'pin-over #t base dx dy target))
(define (pin-under base dx dy target) (define (pin-under base dx dy target)
(cc-superimpose (cc-superimpose
(place-it 'pin-under #t (launder (ghost base)) dx dy target) (place-it 'pin-under #t (ghost base) dx dy target)
base)) (launder base)))
(define black-and-white (define black-and-white
(make-parameter #f (make-parameter #f