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

revese accidental change in 28be0c6e8938426668937add84c53647790aa736

Browse Source 
original commit: 03e42ce6181f4ca881ffd96f4b797fe15d141272
This commit is contained in:
Matthew Flatt 2011-03-15 11:12:50 -06:00
parent 5747d6c575
commit 597196ae0e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/latex-render.rkt
View File

@ -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)]