From fd3855f965f489cebd92b90da554945c6592e0c3 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 8 Jul 2008 15:32:47 +0000
Subject: [PATCH] toc links fix

svn: r10678

original commit: 5f30464c0ee6a26e4fec2fdb32793a20836ef3db
---
 collects/scribble/html-render.ss | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
index eb56dcca..fe347fe2 100644
--- a/collects/scribble/html-render.ss
+++ b/collects/scribble/html-render.ss
@@ -404,8 +404,11 @@
                        (let-values ([(t n) (toc-item->title+num c #t)])
                          `(tr () (td ([align "right"]) ,@n) (td () ,@t)))))))))
       (define (toc-content)
-        (for/list ([t toc-chain] [i (in-naturals)])
-          (toc-item->block t i)))
+        ;; no links -- the code constructs links where needed
+        (parameterize ([current-no-links #t]
+                       [extra-breaking? #t])
+          (for/list ([t toc-chain] [i (in-naturals)])
+            (toc-item->block t i))))
       `((div ([class "tocset"])
           ,@(if (part-style? d 'no-toc)
               null