Changeset 15132 in project


Ignore:
Timestamp:
07/02/09 07:14:20 (10 years ago)
Author:
Ivan Raikov
Message:

salmonella save

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/salmonella/trunk/salmonella

    r15099 r15132  
    1111(define repo-test-dir     (make-parameter (make-pathname (current-directory) "salmonella-repo")))
    1212(define repo-test-lib-dir (make-parameter (make-pathname (repo-test-dir) lib-dir)))
    13 (define chicken-install-args (make-parameter (lambda () (string-append " -prefix " (repo-test-dir)))))
    14 
    15 (define default-chicken-eggs-dir (make-parameter (make-pathname '("chicken-eggs" "release") (->string major-version))))
     13(define default-chicken-eggs-dir (make-parameter (make-pathname `(,(current-directory) "chicken-eggs" "release")
     14                                                                (->string major-version))))
     15(define chicken-install-args (make-parameter (lambda () (string-append " -prefix " (repo-test-dir) " -t local "
     16                                                                       " -l " (default-chicken-eggs-dir)))))
     17
    1618
    1719(define env-vars      (make-parameter (string-append
     
    114116
    115117(define (install-egg egg)
    116   (system:system (sprintf"~a ~a ~a ~a" (env-vars) (chicken-install) ((chicken-install-args)) egg)))
     118  (system:system (sprintf "~a ~a ~a ~a" (env-vars) (chicken-install) ((chicken-install-args)) egg)))
    117119
    118120(define (report egg status msg #!key (action 'egg-install))
Note: See TracChangeset for help on using the changeset viewer.