Changeset 20850 in project


Ignore:
Timestamp:
10/14/10 23:05:36 (9 years ago)
Author:
sjamaan
Message:

qwiki: Fix base-name issue on absolute paths (but not in preview mode?!) reported by John Gabriele

File:
1 edited

Legend:

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

    r20816 r20850  
    120120(define (simplify-pagename pagename)
    121121  (let* ((basedir  (and (qwiki-current-file) (pathname-directory (qwiki-current-file))))
    122          (pagedir  (if basedir
     122         (pagedir  (if (and basedir (not (absolute-pathname? pagename)))
    123123                       (make-pathname (qwiki-source-path) basedir)
    124124                       (qwiki-source-path)))
Note: See TracChangeset for help on using the changeset viewer.