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

fix 'launder'

Browse Source 
svn: r16519
This commit is contained in:
Matthew Flatt 2009-11-03 17:22:33 +00:00
parent 987096c1ce
commit f51803a3c7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -186,11 +186,11 @@
(car l)
(loop (cdr l)))
l))])
(let ([b (blank (pict-width l) (pict-height l)
(pict-ascent l) (pict-descent l))])
(let ([b2 (blank (pict-width l) (pict-height l)
(pict-ascent l) (pict-descent l))])
(use-last/unchecked
(pin-over box x y b)
b)))]))))
(pin-over b x y b2)
b2)))]))))
(define (lift p n)
(let* ([dh (- (max 0 (- n (pict-descent p))))]