From 436582c3826e4e97dce4cb904c6be95aac9ba446 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Mar 2011 07:20:36 -0600 Subject: [PATCH] fix Scribble Latex/PDF handling of images w/o bounding boxes original commit: 3207efddb0abfc5a4648c99946171f18a850fafc --- collects/scribble/latex-render.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index 3cb9a13f..9fc955a3 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -249,11 +249,12 @@ (image-element-scale e) fn))] [(and (convertible? e) (not (disable-images)) - (let ([ftag (lambda (v suffix) (and v (list v suffix)))]) + (let ([ftag (lambda (v suffix) (and v (list v suffix)))] + [xlist (lambda (v) (and v (list v #f #f #f #f)))]) (or (ftag (convert e 'pdf-bytes+bounds) ".pdf") - (ftag (list (convert e 'pdf-bytes) #f #f #f #f) ".pdf") - (ftag (list (convert e 'eps-bytes) #f #f #f #f) ".ps") - (ftag (list (convert e 'png-bytes) #f #f #f #f) ".png")))) + (ftag (xlist (convert e 'pdf-bytes)) ".pdf") + (ftag (xlist (convert e 'eps-bytes)) ".ps") + (ftag (xlist (convert e 'png-bytes)) ".png")))) => (lambda (bstr+info+suffix) (let* ([bstr (list-ref (list-ref bstr+info+suffix 0) 0)] [suffix (list-ref bstr+info+suffix 1)]