From 2423d8bd2bc4dd7fc726730c67bb56b397e52795 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 4 Jun 2007 06:53:10 +0000
Subject: [PATCH] fix latex output

svn: r6469
---
 collects/scribble/latex-render.ss      | 1 +
 collects/scribblings/guide/lists.scrbl | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index f766d45490..a6f9ac55c4 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -54,6 +54,7 @@
         (printf "\\definecolor{PaleBlue}{rgb}{0.90,0.90,1.0}\n")
         (printf "\\definecolor{LightGray}{rgb}{0.90,0.90,0.90}\n")
         (printf "\\newcommand{\\schemeinput}[1]{\\colorbox{LightGray}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
+        (printf "\\newcommand{\\highlighted}[1]{\\colorbox{PaleBlue}{\\hspace{-0.5ex}\\schemeinputcol{#1}\\hspace{-0.5ex}}}\n")
         (printf "\\begin{document}\n")
         (when (part-title-content d)
           (printf "\\title{")
diff --git a/collects/scribblings/guide/lists.scrbl b/collects/scribblings/guide/lists.scrbl
index 75e7ea2865..ecdff502ca 100644
--- a/collects/scribblings/guide/lists.scrbl
+++ b/collects/scribblings/guide/lists.scrbl
@@ -266,7 +266,7 @@ Both the @scheme[my-length] and @scheme[my-map] procedures run in
 imagining how @scheme[(my-length (list "a" "b" "c"))] must evaluate:
 
 @schemeblock[
-(my-length (list "a" "b" "c"))
+#||# (my-length (list "a" "b" "c"))
 #,step (+ 1 (my-length (list "b" "c")))
 #,step (+ 1 (+ 1 (my-length (list "c"))))
 #,step (+ 1 (+ 1 (+ 1 (my-length (list)))))
@@ -300,7 +300,7 @@ argument @scheme[len]:
 Now evaluation looks like this:
 
 @schemeblock[
-(my-length (list "a" "b" "c"))
+#||# (my-length (list "a" "b" "c"))
 #,step (iter (list "a" "b" "c") 0)
 #,step (iter (list "b" "c") 1)
 #,step (iter (list "c") 2)
@@ -397,7 +397,7 @@ duplicates, it returns the result of a @scheme[remove-dups] call
 directly, so the tail-call ``optimization'' kicks in:
 
 @schemeblock[
-(remove-dups (list "a" "b" "b" "b" "b" "b"))
+#||# (remove-dups (list "a" "b" "b" "b" "b" "b"))
 #,step (cons "a" (remove-dups (list "b" "b" "b" "b" "b")))
 #,step (cons "a" (remove-dups (list "b" "b" "b" "b")))
 #,step (cons "a" (remove-dups (list "b" "b" "b")))