Changeset 23934 in project


Ignore:
Timestamp:
06/06/11 04:49:27 (8 years ago)
Author:
Ivan Raikov
Message:

multidoc: possible fix for toc issue

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/multidoc/tags/2.3.2/html.scm

    r23429 r23934  
    6666                          (let* ((level (cadr content))
    6767                                 (head-word (caddr content))
    68                                  (href (cons "#" (internal-link head-word)))
     68                                 (href (list "#" (internal-link head-word)))
    6969                                 (subsections (find-sections (cdddr content))))
    7070                            (cond ((and (integer? level) head-word)
    71                                    `((li (a (@ (href ,href)) ,head-word)
     71                                   `((li (a (@ (href (,href))) ,head-word)
    7272                                         ,@(if (null? subsections)
    7373                                               '()
Note: See TracChangeset for help on using the changeset viewer.