From 10218709c7353dd9fe50add0b1955f507ac9e3c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 3 Jul 2007 08:07:56 +0000
Subject: [PATCH] more i/o reference work

svn: r6807

original commit: 4bf593ddc4bf3a96f3b4d1123838e66b6da5fbb0
---
 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
index d47de35d..3236539d 100644
--- 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