bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit e1f8c00bdffd1d04f55d305f6b732d38055f9fd1
parent 196e960734b31eb2e1974a7d58675b5b09f1e41f
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 16 Feb 2009 16:20:22 +0000

better latex rendering of tt underscore

svn: r13667

original commit: 6250d5e9933800b344bd49554a753e2eeb5d72ac

Diffstat:
M
collects/scribble/latex-render.ss
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -374,7 +374,9 @@
                  [(#\\) (if (rendering-tt)
                             "{\\char`\\\\}"
                             "$\\backslash$")]
-                 [(#\_) "$\\_$"]
+                 [(#\_) (if (rendering-tt)
+                            "{\\char`\\_}"
+                            "$\\_$")]
                  [(#\^) "{\\char'136}"]
                  [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
                  [(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")]