Changeset 13676 in project


Ignore:
Timestamp:
03/10/09 22:38:54 (11 years ago)
Author:
sjamaan
Message:

Oops, looks like 'major' is some stream object thingy

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-chicken/trunk/svnwiki-chicken.scm

    r13675 r13676  
    2222          (html-stream 
    2323            (tr (td (if major
    24                         (if (file-exists? (svnwiki-make-pathname path-in "eggref" major name))
    25                             (format #f "[[/eggref/~A/~A]]" major name)
    26                             (format #f "[[~A~A/~A.html|~A]]" *url-eggs* (stream->string (cdr major)) name name))
    27                         ;; Shouldn't happen. Could be anything
     24                        (let ((version (stream->string (cdr major))))
     25                         (if (file-exists? (svnwiki-make-pathname path-in "eggref" version name))
     26                             (format #f "[[/eggref/~A/~A]]" version name)
     27                             (format #f "[[~A~A/~A.html|~A]]" *url-eggs* version name name)))
     28                        ;; Shouldn't happen.  Likely this isn't an URL either
    2829                        (format #f "[[~A~A.html|~A]]" *url-eggs* name name)))
    2930                (td (cdr description))
Note: See TracChangeset for help on using the changeset viewer.