diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss index 2cd3552d..0df04334 100644 --- a/collects/scribble/html-render.ss +++ b/collects/scribble/html-render.ss @@ -327,19 +327,20 @@ `(table ((class "tocviewlist") (cellspacing "0")) ,@toc-content))))))) ,@(render-onthispage-contents d ri top) - ,@(apply append - (map (lambda (t) - (let loop ([t t]) - (if (table? t) - (render-table t d ri #f) - (loop (delayed-flow-element-flow-elements t ri))))) - (filter (lambda (e) - (let loop ([e e]) - (or (and (auxiliary-table? e) - (pair? (table-flowss e))) - (and (delayed-flow-element? e) - (loop (delayed-flow-element-flow-elements e ri)))))) - (flow-paragraphs (part-flow d))))))))) + ,@(parameterize ([extra-breaking? #t]) + (apply append + (map (lambda (t) + (let loop ([t t]) + (if (table? t) + (render-table t d ri #f) + (loop (delayed-flow-element-flow-elements t ri))))) + (filter (lambda (e) + (let loop ([e e]) + (or (and (auxiliary-table? e) + (pair? (table-flowss e))) + (and (delayed-flow-element? e) + (loop (delayed-flow-element-flow-elements e ri)))))) + (flow-paragraphs (part-flow d)))))))))) (define/public (get-onthispage-label) null)