re-fix Scribble Latex image support

original commit: 36669b821a350a5f8efb466bb3f6b13c0feb73c4
This commit is contained in:
Matthew Flatt 2010-11-28 07:56:33 -07:00
parent d2293dc223
commit 8c37f24f40

View File

@ -254,7 +254,7 @@
(ftag (convert e 'eps-bytes) ".ps")
(ftag (convert e 'png-bytes) ".png"))))
=> (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))])
(printf "\\includegraphics{~a}" fn)))]
[else