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

fix recording of exprs.dat

Browse Source 
svn: r13503
This commit is contained in:
Matthew Flatt 2009-02-09 14:02:07 +00:00
parent a8c8f9e8a1
commit 96509ba06f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribblings/quick/mreval.ss
View File

@ -128,8 +128,10 @@
(((mr-eval 'make-pict-drawer) v) dc 0 0)
(send bm save-file fn 'png)
(make-element #f (list (make-element (make-image-file
;; For HTML output, .pdf is automatically changed to .png:
(path-replace-suffix fn #".pdf")
;; For HTML output, .pdf is automatically changed to .png.
;; Be sure to use a string rather than a path, because
;; it gets recorded in "exprs.dat".
(path->string (path-replace-suffix fn #".pdf"))
1.0)
(list "[image]"))))))]
[(pair? v) (cons (fixup-picts (car v))