fix local TOC in latex output

svn: r6288

collects/scribble/base-render.ss

@@ -254,6 +254,9 @@
       (define/public (table-of-contents part ht)
         (make-table #f (render-toc part #t)))
 
+      (define/public (local-table-of-contents part ht)
+        (table-of-contents part ht))
+
       (define/private (render-toc part skip?)
         (let ([number (collected-info-number (part-collected-info part))])
           (let ([subs 

collects/scribble/basic.ss

@@ -178,12 +178,18 @@
 
   ;; ----------------------------------------
 
-  (provide table-of-contents)
+  (provide table-of-contents
+           local-table-of-contents)
 
   (define (table-of-contents)
     (make-delayed-flow-element
      (lambda (renderer part ht)
-       (send renderer table-of-contents part ht)))))
+       (send renderer table-of-contents part ht))))
+
+  (define (local-table-of-contents)
+    (make-delayed-flow-element
+     (lambda (renderer part ht)
+       (send renderer local-table-of-contents part ht)))))
 
 
 

collects/scribble/latex-render.ss

@@ -229,6 +229,9 @@
         ;; FIXME: isn't local to the section
         (make-toc-paragraph null))
 
+      (define/override (local-table-of-contents part ht)
+        (make-paragraph null))
+
       ;; ----------------------------------------
 
       (super-new))))

collects/scribblings/guide/to-scheme.scrbl

@@ -9,7 +9,7 @@ This chapter provides a quick introduction to Scheme as background for
 the rest of the guide. Readers with some Scheme experience can safely
 skip to @secref["datatypes"].
 
-@table-of-contents[]
+@local-table-of-contents[]
 
 @include-section["simple-data.scrbl"]
 @include-section["syntax.scrbl"]