From 0d6a9d73dc4616d5f2b321abf06102cf67c3e609 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 5 Oct 2008 02:23:21 +0000
Subject: [PATCH] proper fix for the latex problem (blockquote was used
 unnecessarily)

svn: r11936
---
 collects/scribble/latex-render.ss               |  4 +---
 collects/teachpack/htdp/scribblings/world.scrbl | 17 ++++++++---------
 2 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
index 6c2aff5a24..b52d1bb09e 100644
--- a/collects/scribble/latex-render.ss
+++ b/collects/scribble/latex-render.ss
@@ -304,9 +304,7 @@
       null)
 
     (define/override (render-blockquote t part ri)
-      (let* ([kind (or (blockquote-style t) "quote")]
-             ;; FIXME temporary hack to avoid a \begin{blockquote}
-             [kind (if (eq? 'blockquote kind) "quote" kind)])
+      (let ([kind (or (blockquote-style t) "quote")])
         (printf "\n\n\\begin{~a}\n" kind)
         (parameterize ([current-table-mode (list "blockquote" t)])
           (for ([e (blockquote-paragraphs t)]) (render-block e part ri #f)))
diff --git a/collects/teachpack/htdp/scribblings/world.scrbl b/collects/teachpack/htdp/scribblings/world.scrbl
index 3f763651a7..a0f6584c97 100644
--- a/collects/teachpack/htdp/scribblings/world.scrbl
+++ b/collects/teachpack/htdp/scribblings/world.scrbl
@@ -240,16 +240,15 @@ for the creation of scenes, too.
 @; -----------------------------------------------------------------------------
 
 @(define (table* . stuff)
-  ;; (list paragraph paragraph) *-> Table
+   ;; (list paragraph paragraph) *-> Table
    (define (flow* x) (make-flow (list x)))
-  (make-blockquote 'blockquote
-    (list 
-      (make-table (make-with-attributes 'boxed
-		    '((cellspacing . "6")))
-	;list
-	  (map (lambda (x) (map flow* x)) stuff)
-	  #;(map flow* (map car stuff))
-	  #;(map flow* (map cadr stuff))))))
+   (make-blockquote #f
+    (list
+     (make-table (make-with-attributes 'boxed '((cellspacing . "6")))
+                 ;; list
+                 (map (lambda (x) (map flow* x)) stuff)
+                 #;(map flow* (map car stuff))
+                 #;(map flow* (map cadr stuff))))))
 
 @; -----------------------------------------------------------------------------
 @section[#:tag "example"]{A First Example}