From 597196ae0e279b26e6810afa8f55e96dd43cfa1b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Mar 2011 11:12:50 -0600 Subject: [PATCH] revese accidental change in 28be0c6e8938426668937add84c53647790aa736 original commit: 03e42ce6181f4ca881ffd96f4b797fe15d141272 --- collects/scribble/latex-render.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt index 9a993519..9fc955a3 100644 --- a/collects/scribble/latex-render.rkt +++ b/collects/scribble/latex-render.rkt @@ -10,8 +10,7 @@ scheme/string scheme/list setup/main-collects - file/convertible - racket/draw) + file/convertible) (provide render-mixin) (define current-table-mode (make-parameter #f)) @@ -250,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)]