From 233a65234cbe4d8a85b9dbf276562f128c5603d9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 5 Jan 2009 10:20:17 +0000
Subject: [PATCH] use define-unsafer for ffi/objc; fix more teachpack doc
 latex-output problems

svn: r13008

original commit: c2857c1b7ce7cc1dde3cbfeb0e0175b422a2138c
---
 collects/scribble/latex-render.ss | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 5c88ec23..23b6c0e6 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -4,6 +4,7 @@
          mzlib/class
          scheme/runtime-path
          scheme/port
+         scheme/path
          scheme/string
          setup/main-collects)
 (provide render-mixin)
@@ -18,6 +19,11 @@
 
 (define-runtime-path scribble-tex "scribble.tex")
 
+(define (gif-to-png p)
+  (if (equal? (filename-extension p) #"gif")
+      (path-replace-suffix p #".png")
+      p))
+
 (define (render-mixin %)
   (class %
     (init-field [style-file #f]
@@ -194,7 +200,7 @@
                  (void)
                  (let ([fn (install-file
                             (main-collects-relative->path
-                             (image-file-path style)))])
+                             (gif-to-png (image-file-path style))))])
                    (printf "\\includegraphics[scale=~a]{~a}"
                            (image-file-scale style) fn)))]
               [else (super render-element e part ri)])))