Changeset 15067 in project


Ignore:
Timestamp:
06/26/09 03:03:55 (10 years ago)
Author:
felix winkelmann
Message:

bug fixes in chicken-versions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • maintenance/chicken-versions.scm

    r15066 r15067  
    2525             (versions (safe-take (sort (delete-duplicates (map car versions/dates)) version>?) 20))
    2626             (linux-bin (lambda (version) (string-append "chicken-" version "-linux-x86.tar.gz")))
    27              ;(win-bin (lambda (version) (string-append "chicken-" version"-mingw32-x86.zip ")))
    28              (source-tarball (lambda (version) (string-append "chicken-" version ".tar.gz "))))
     27             ;(win-bin (lambda (version) (string-append "chicken-" version"-mingw32-x86.zip")))
     28             (source-tarball (lambda (version) (string-append "chicken-" version ".tar.gz"))))
    2929        (print
    3030         (ws:page
     
    4343                               (date (cdr latest))
    4444                               (local-dir (make-pathname snapshots-dir date))
    45                                (fexists? (lambda (file) (file-exists? (make-pathname local-dir file))))
     45                               (fexists? (lambda (file) (let ((path (make-pathname local-dir file)))
     46                                                          (file-exists? path))))
    4647                               (link-to  (lambda (file text)
    4748                                           (if (and file (fexists? file))
     
    4950                                                                       date "/" file) text)
    5051                                               (b text)))))
    51                           (filter-map link-to
     52                          (map link-to
    5253                                      `(#f "NEWS" "chicken.pdf"
    5354                                           ,(source-tarball version-string) ,(linux-bin version-string))
Note: See TracChangeset for help on using the changeset viewer.