proper fix for the latex problem (blockquote was used unnecessarily)

svn: r11936

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)))

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}