From a4fa5e4bb79d9d051d775108d0ba721f1cc51b11 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 17 Aug 2009 15:42:01 +0000 Subject: [PATCH] fix 'last' field from some pict constructors svn: r15768 --- collects/texpict/utils.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/texpict/utils.ss b/collects/texpict/utils.ss index d353a200a6..cebb982180 100644 --- a/collects/texpict/utils.ss +++ b/collects/texpict/utils.ss @@ -964,7 +964,7 @@ (pict-descent new) (list (make-child p 0 0 x-factor y-factor)) #f - (pict-last new))))] + (pict-last p))))] [(p factor) (scale p factor factor)])) (define cellophane @@ -995,7 +995,7 @@ (pict-descent new) (list (make-child p 0 0 1 1)) #f - (pict-last new))))])])) + (pict-last p))))])])) (define inset/clip (case-lambda @@ -1023,7 +1023,7 @@ (pict-descent new) (list (make-child p 0 0 1 1)) #f - (pict-last new))))] + (pict-last p))))] [(p h v) (inset/clip p h v h v)] [(p a) (inset/clip p a a a a)]))