suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

re-fix Scribble Latex image support

Browse Source 
original commit: 36669b821a350a5f8efb466bb3f6b13c0feb73c4
This commit is contained in:
Matthew Flatt 2010-11-28 07:56:33 -07:00
parent d2293dc223
commit 8c37f24f40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -254,7 +254,7 @@
(ftag (convert e 'eps-bytes) ".ps") (ftag (convert e 'eps-bytes) ".ps")
(ftag (convert e 'png-bytes) ".png")))) (ftag (convert e 'png-bytes) ".png"))))
=> (lambda (bstr+suffix) => (lambda (bstr+suffix)
(let ([fn (install-file (format "pict.~a" (cadr bstr+suffix)) (let ([fn (install-file (format "pict~a" (cadr bstr+suffix))
(car bstr+suffix))]) (car bstr+suffix))])
(printf "\\includegraphics{~a}" fn)))] (printf "\\includegraphics{~a}" fn)))]
[else [else