Changeset 33356 in project


Ignore:
Timestamp:
05/28/16 16:27:34 (3 years ago)
Author:
sjamaan
Message:

qwiki: Fix heading link generation: don't assume internal-link text is always a string!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-sxml.scm

    r33347 r33356  
    247247                  (contents (cddr elems)))
    248248             (cond ((and (integer? level) head-word)
    249                     `((a (@ (href (,@(string-append "#" link))))
     249                    `((a (@ (href ,@(list "#" link)))
    250250                         (,(string->symbol (string-append "h" (number->string level)))
    251251                          (@ (id ,link))
Note: See TracChangeset for help on using the changeset viewer.