Ignore:
Timestamp:
03/11/08 06:42:36 (12 years ago)
Author:
Ivan Raikov
Message:

Merged with trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/prerelease/chicken-setup.scm

    r9381 r9413  
    746746      (and-let* ((exs (assq 'examples info)))
    747747        (let ((example-dest
    748                ((lambda (pre) (if pre (list pre (example-path)) (list (example-path))))
     748               ((lambda (pre) (if pre (make-pathname pre (example-path)) (example-path)))
    749749                (installation-prefix))))
    750750          (print "\n* Installing example files in " example-dest ":")
    751751          (for-each
    752752           (lambda (f)
    753              (copy-file f (make-pathname example-dest f) #f)
    754              (unless *windows-shell*
    755                (run (chmod a+rx ,example-dest))) )
     753             (let ((destf (make-pathname example-dest f)))
     754               (copy-file f destf #f)
     755               (unless *windows-shell*
     756                 (run (chmod a+rx ,destf))) ) )
    756757           (cdr exs))
    757758          (newline) ))
Note: See TracChangeset for help on using the changeset viewer.