From ed2010bd704947eeecf5e12f7d86403701aae2fd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 21 Feb 2010 13:04:06 +0000 Subject: [PATCH] fix text renderer svn: r18255 --- collects/scribble/latex-render.ss | 3 +-- collects/scribble/text-render.ss | 7 ++++++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss index 7606eafcb0..f9c1c10c2b 100644 --- a/collects/scribble/latex-render.ss +++ b/collects/scribble/latex-render.ss @@ -183,8 +183,7 @@ (printf "\n\n") (unless (no-noindent? p ri) (printf "\\noindent "))) - (begin0 - (super render-intrapara-block p part ri first? last? starting-item?))) + (super render-intrapara-block p part ri first? last? starting-item?)) (define/override (render-content e part ri) (when (render-element? e) diff --git a/collects/scribble/text-render.ss b/collects/scribble/text-render.ss index 7b8acd8cde..389bcabc69 100644 --- a/collects/scribble/text-render.ss +++ b/collects/scribble/text-render.ss @@ -54,6 +54,11 @@ (render-block p part ht #f)) (cdr f))))) + + (define/override (render-intrapara-block p part ri first? last? starting-item?) + (unless first? (newline) (newline)) + (super render-intrapara-block p part ri first? last? starting-item?)) + (define/override (render-table i part ht inline?) (let ([flowss (table-blockss i)]) (if (null? flowss) @@ -63,7 +68,7 @@ (map (lambda (d) (unless (eq? d 'cont) (render-block d part ht #f))) (car flowss)) (map (lambda (flows) (newline) - (map (lambda (d) (unless (eq? d 'cont) (render-flow d part ht #f))) flows)) + (map (lambda (d) (unless (eq? d 'cont) (render-block d part ht #f))) flows)) (cdr flowss)))))) (define/override (render-itemization i part ht)