From d82317d8719ea1c4056e4cc0abbb0d161a58f629 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Jun 2007 07:28:48 +0000
Subject: [PATCH] fix up latex output and regexp display

svn: r6574

original commit: 1bf926de536e926706cbb2d0b3c65bb5b811dc23
---
 collects/scribble/latex-render.ss | 3 ++-
 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
index 011732a8..f4ee8f6d 100644
--- 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
index 1acb0bf1..ba19bfc4 100644
--- 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)