From 96509ba06f980b38cd1e016a8f5c893e16711d7a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 9 Feb 2009 14:02:07 +0000 Subject: [PATCH] fix recording of exprs.dat svn: r13503 --- collects/scribblings/quick/mreval.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/scribblings/quick/mreval.ss b/collects/scribblings/quick/mreval.ss index ab9eb9f56b..39c4931c1a 100644 --- a/collects/scribblings/quick/mreval.ss +++ b/collects/scribblings/quick/mreval.ss @@ -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))