bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 3ac5bf77fd1507ed08afbf826431155f60c58581
parent ce8852492a09be17bb9181a71c7068090e39c8e2
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  5 May 2008 03:05:08 +0000

fix up link when main doc has the (redundant) 'toc style

svn: r9650

original commit: 9389ac3a7ebd50f3fe520d70b218c4a07579f53f

Diffstat:
M
collects/scribble/html-render.ss
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -617,7 +617,8 @@
                     (if (or parent up-path)
                       (make-target-url
                        (if parent
-                         (if (toc-part? parent)
+                         (if (and (toc-part? parent)
+                                  (part-parent parent ri))
                            (derive-filename parent)
                            "index.html")
                          up-path)