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

commit d82317d8719ea1c4056e4cc0abbb0d161a58f629
parent 6281c85249ddb2239cbb91bc1feea5e402c838a5
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 11 Jun 2007 07:28:48 +0000

fix up latex output and regexp display

svn: r6574

original commit: 1bf926de536e926706cbb2d0b3c65bb5b811dc23

Diffstat:
M
collects/scribble/latex-render.ss
 | 
3
++-
M
collects/scribble/scheme.ss
 | 
2
++

2 files changed, 4 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -240,6 +240,7 @@
                 (case c
                   [(#\\) (display "$\\backslash$")]
                   [(#\_) (display "$\\_$")]
+                  [(#\^) (display "{\\char'136}")]
                   [(#\>) (if (rendering-tt)
                              (display "{\\texttt >}")
                              (display "$>$"))]
@@ -253,7 +254,7 @@
                                          (printf "{\\hbox{\\texttt{~a}}}" c)
                                          (display c))]
                   [(#\~) (display "$\\sim$")]
-                  [(#\{ #\} #\# #\% #\&) (display "\\") (display c)]
+                  [(#\{ #\} #\# #\% #\& #\$) (display "\\") (display c)]
                   [(#\uDF) (display "{\\ss}")]
                   [(#\u039A) (display "K")] ; kappa
                   [(#\u0391) (display "A")] ; alpha
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -369,6 +369,8 @@
                              (string? (syntax-e c))
                              (bytes? (syntax-e c))
                              (char? (syntax-e c))
+                             (regexp? (syntax-e c))
+                             (byte-regexp? (syntax-e c))
                              (boolean? (syntax-e c)))
                          value-color]
                         [(identifier? c)