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

fix 'last' field from some pict constructors

Browse Source 
svn: r15768
This commit is contained in:
Matthew Flatt 2009-08-17 15:42:01 +00:00
parent 549edd6a3d
commit a4fa5e4bb7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/texpict/utils.ss
View File

@ -964,7 +964,7 @@
(pict-descent new) (pict-descent new)
(list (make-child p 0 0 x-factor y-factor)) (list (make-child p 0 0 x-factor y-factor))
#f #f
(pict-last new))))] (pict-last p))))]
[(p factor) (scale p factor factor)])) [(p factor) (scale p factor factor)]))
(define cellophane (define cellophane
@ -995,7 +995,7 @@
(pict-descent new) (pict-descent new)
(list (make-child p 0 0 1 1)) (list (make-child p 0 0 1 1))
#f #f
(pict-last new))))])])) (pict-last p))))])]))
(define inset/clip (define inset/clip
(case-lambda (case-lambda
@ -1023,7 +1023,7 @@
(pict-descent new) (pict-descent new)
(list (make-child p 0 0 1 1)) (list (make-child p 0 0 1 1))
#f #f
(pict-last new))))] (pict-last p))))]
[(p h v) (inset/clip p h v h v)] [(p h v) (inset/clip p h v h v)]
[(p a) (inset/clip p a a a a)])) [(p a) (inset/clip p a a a a)]))