Changeset 12416 in project


Ignore:
Timestamp:
11/09/08 03:18:28 (13 years ago)
Author:
Ivan Raikov
Message:

Bug fix in example installation.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/nemo/trunk/nemo.setup

    r12377 r12416  
    114114(define NEMO-DIR (make-pathname SHARED-DIR "nemo"))
    115115
    116 
    117116;; File Copy Operations
    118 
    119 (define (*file-copy fn dn)
    120   (let ([fn (->string fn)])
    121     (copy-file fn (make-pathname dn fn)) ) )
    122 
    123 (define (copy-to-shared fn)
    124   (*file-copy (->string fn) (chicken-home)) )
    125 
    126 (define (copy-file-to-nemo-dir fn)
    127   (*file-copy (->string fn) NEMO-DIR) )
    128 
    129117
    130118(if (not (file-exists? NEMO-DIR))
    131119    (create-directory NEMO-DIR))
    132120
    133 (*file-copy "examples" NEMO-DIR)
     121(copy-file "examples" NEMO-DIR)
Note: See TracChangeset for help on using the changeset viewer.