commit 10218709c7353dd9fe50add0b1955f507ac9e3c5 parent ca77096693a622648fa976a474fad6001d5f679b Author: Matthew Flatt <mflatt@racket-lang.org> Date: Tue, 3 Jul 2007 08:07:56 +0000 more i/o reference work svn: r6807 original commit: 4bf593ddc4bf3a96f3b4d1123838e66b6da5fbb0 Diffstat:
| M | collects/scribble/base-render.ss | | | 10 | +++++++--- |
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.ss @@ -285,9 +285,13 @@ (define/private (render-toc part base-len skip?) (let ([number (collected-info-number (part-collected-info part))]) (let ([subs - (apply - append - (map (lambda (p) (render-toc p base-len #f)) (part-parts part)))]) + (if (not (and (styled-part? part) + (eq? 'quiet (styled-part-style part)) + (not (= base-len (sub1 (length number)))))) + (apply + append + (map (lambda (p) (render-toc p base-len #f)) (part-parts part))) + null)]) (if skip? subs (let ([l (cons