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

commit 420041b903323cb7cceecc45271e0cc00a6603b5
parent d173c0e6bc3045b6a6683c5a1817356d44d2475f
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Sat,  4 Oct 2008 21:20:35 +0000

bad hack to make compilation go through

svn: r11935

original commit: 76172dd0f3669dd9011c7ecb4e4e864d6e3d85cf

Diffstat:
M
collects/scribble/latex-render.ss
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -304,7 +304,9 @@
       null)
 
     (define/override (render-blockquote t part ri)
-      (let ([kind (or (blockquote-style t) "quote")])
+      (let* ([kind (or (blockquote-style t) "quote")]
+             ;; FIXME temporary hack to avoid a \begin{blockquote}
+             [kind (if (eq? 'blockquote kind) "quote" kind)])
         (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)))