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

svn: r9650
This commit is contained in:
Matthew Flatt 2008-05-05 03:05:08 +00:00
parent 33ec3576cc
commit 9389ac3a7e

View File

@ -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)