~ salmonella-environment-setup (master) 1ac57d2951b63fe71abfb42d2e2c9c62d38808d0

commit 1ac57d2951b63fe71abfb42d2e2c9c62d38808d0
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Thu Feb 24 07:50:48 2011 -0300
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Thu Feb 24 07:50:48 2011 -0300

    run-salmonella.scm: get rid of salmonella's `env-vars'

diff --git a/run-salmonella.scm b/run-salmonella.scm
index b7de18d..50224f0 100755
--- a/run-salmonella.scm
+++ b/run-salmonella.scm
@@ -104,12 +104,14 @@
   (! `(,(make-pathname (pathname-directory chicken-bootstrap) "chicken-install") salmonella))
 
   ;; Run salmonella
-  (! `(,(make-pathname (pathname-directory chicken-bootstrap) "salmonella")
+  (! `(,(string-append
+         "LC_ALL=C LANG=C QTDIR=/usr PATH=" (make-pathname chicken-prefix "bin") ":$PATH"
+         " "
+         (make-pathname (pathname-directory chicken-bootstrap) "salmonella"))
        "'(dont-ask #t)'"
        "'(verbose #f)'"
        "'(run-tests #t)'"
        "'(skip-eggs (list \"macosx\" \"objc\" \"hfs+\" \"osxattr\"))'"
-       ,(string-append "'(env-vars (string-append (env-vars) \" LC_ALL=C LANG=C QTDIR=/usr PATH=$PATH:" (make-pathname chicken-prefix "bin") "\"))'")
        ,(string-append "'(base-uri \""
                        (make-pathname "http://tests.call-cc.org" (time->string (seconds->local-time (current-seconds)) "%Y/%m/%d"))
                        "\")'")