From da12c07d2b83ee4a56f06a824fe62257a7ae02cb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 20 Jul 2009 19:54:19 +0000 Subject: [PATCH] fix HTML rendering bug svn: r15506 --- collects/scribble/html-render.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index e8fed5c5fd..905af622d8 100644 --- a/collects/scribble/html-render.ss +++ b/collects/scribble/html-render.ss @@ -1151,11 +1151,11 @@ ,@(append-map (lambda (i) (render-block i part ri #f)) (blockquote-paragraphs t))))) - (define/override (render-compound-paragraph t part ri) + (define/override (render-compound-paragraph t part ri starting-item?) `((p ,(if (string? (compound-paragraph-style t)) `([class ,(regexp-replace #rx"^[\\]" (compound-paragraph-style t) "")]) `()) - ,@(super render-compound-paragraph t part ri)))) + ,@(super render-compound-paragraph t part ri starting-item?)))) (define/override (render-itemization t part ri) (let ([style-str (and (styled-itemization? t)