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

commit d166f0969cfd2c2920acb4eeb15d040588fb0f78
parent 904826dc7d3a4b2cbf1c86ad56021dd4f5db6a8e
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 16 Feb 2009 15:59:39 +0000

better latex rendering of tt curly braces and backslash

svn: r13665

original commit: 839bc78f4ba9af1ecf9f978f5ba8f3196da06264

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

1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -371,7 +371,9 @@
             (let ([c (string-ref s i)])
               (display
                (case c
-                 [(#\\) "$\\backslash$"]
+                 [(#\\) (if (rendering-tt)
+                            "{\\char`\\\\}"
+                            "$\\backslash$")]
                  [(#\_) "$\\_$"]
                  [(#\^) "{\\char'136}"]
                  [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
@@ -380,7 +382,10 @@
                  [(#\? #\! #\. #\:)
                   (if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)]
                  [(#\~) "$\\sim$"]
-                 [(#\{ #\} #\# #\% #\& #\$) (format "\\~a" c)]
+                 [(#\{ #\}) (if (rendering-tt)
+                                (format "{\\char`\\~a}" c)
+                                (format "\\~a" c))]
+                 [(#\# #\% #\& #\$) (format "\\~a" c)]
                  [(#\uA0) "~"]
                  [(#\uDF) "{\\ss}"]
                  [(#\u039A) "K"] ; kappa