suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

bad hack to make compilation go through

Browse Source 
svn: r11935

original commit: 76172dd0f3669dd9011c7ecb4e4e864d6e3d85cf
This commit is contained in:
Eli Barzilay 2008-10-04 21:20:35 +00:00
parent d173c0e6bc
commit 420041b903
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/latex-render.ss
View File

@ -304,7 +304,9 @@
null) null)
(define/override (render-blockquote t part ri) (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) (printf "\n\n\\begin{~a}\n" kind)
(parameterize ([current-table-mode (list "blockquote" t)]) (parameterize ([current-table-mode (list "blockquote" t)])
(for ([e (blockquote-paragraphs t)]) (render-block e part ri #f))) (for ([e (blockquote-paragraphs t)]) (render-block e part ri #f)))