Changeset 15188 in project


Ignore:
Timestamp:
07/08/09 01:41:39 (11 years ago)
Author:
Ivan Raikov
Message:

added parameter chicken-eggs-dir to salmonella

File:
1 edited

Legend:

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

    r15132 r15188  
    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 default-chicken-eggs-dir (make-parameter (make-pathname `(,(current-directory) "chicken-eggs" "release")
    14                                                                 (->string major-version))))
     13(define chicken-eggs-dir (make-parameter (make-pathname `(,(current-directory) "chicken-eggs" "release")
     14                                                         (->string major-version))))
    1515(define chicken-install-args (make-parameter (lambda () (string-append " -prefix " (repo-test-dir) " -t local "
    16                                                                        " -l " (default-chicken-eggs-dir)))))
     16                                                                       " -l " (chicken-eggs-dir)))))
    1717
    1818
     
    7070                                                CHICKEN_INSTALL_PREFIX=(repo-test-dir)
    7171 (repo-test-dir \"<path to repo-test-dir>\")    `pwd`/salmonella-repo
     72 (chicken-eggs-dir)                             `pwd`/chicken-eggs/release/4
    7273 (skip-eggs (list \"egg1\" \"egg2\" ...))         '()
    7374 (verbose <bool>)                               ##f
    7475 (logfile \"filename\")                         salmonella.log
    75  (egg-information (lambda () ...))              a procedure which returns egg information for all eggs found in #(default-chicken-eggs-dir)
    76  (eggs (lambda () ...))                         a procedure which returns the names of all eggs found in #(default-chicken-eggs-dir)
     76 (egg-information (lambda () ...))              a procedure which returns egg information for all eggs found in (chicken-eggs-dir)
     77 (eggs (lambda () ...))                         a procedure which returns the names of all eggs found in (chicken-eggs-dir)
    7778 (system-deps \"filename\")                     ##f
    7879 (pkg-manager \"system pkg manager & args\")    ##f
     
    221222         (lambda () (if (not egg-data)
    222223                        (begin
    223                           (set! egg-data (gather-egg-information (default-chicken-eggs-dir)))
     224                          (set! egg-data (gather-egg-information (chicken-eggs-dir)))
    224225                          egg-data)
    225226                        egg-data)))))
Note: See TracChangeset for help on using the changeset viewer.