~ salmonella-environment-setup (master) e75be3d6cd2525ecda0e9ec514e4e1137db43585

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

    run-salmonella.scm: don't rely on the existence of chicken tools in PATH

diff --git a/run-salmonella.scm b/run-salmonella.scm
index e27029b..b7de18d 100755
--- a/run-salmonella.scm
+++ b/run-salmonella.scm
@@ -1,4 +1,4 @@
-#! /usr/bin/csi -s
+#! /usr/local/chicken/bin/csi -s
 
 ;; This script is to be run on a chroot environment
 
@@ -8,7 +8,9 @@
 (define chicken-major-release 4)
 (define chicken-core-dir (make-pathname tmp-dir "chicken-core"))
 (define chicken-prefix (make-pathname tmp-dir "chicken"))
-(define chicken-bootstrap "/usr/local/chicken-4.6.0rc1/bin/chicken")
+(define chicken-bootstrap-bin "/usr/local/chicken-4.6.0rc1/bin")
+(define chicken-bootstrap (make-pathname chicken-bootstrap-bin "chicken"))
+(define csi-bootstrap (make-pathname chicken-bootstrap-bin "csi"))
 (define chicken-core-git-uri "http://code.call-cc.org/git/chicken-core.git")
 (define chicken-core-branch "master")
 (define platform "linux")
@@ -135,7 +137,7 @@
             (create-directory feeds-dir 'parents-too))
 
     ;; Generate the atom feeds
-    (! `(csi -s ,(make-pathname (pathname-directory chicken-bootstrap) "salmonella-log2atom")
+    (! `(,csi-bootstrap -s ,(make-pathname (pathname-directory chicken-bootstrap) "salmonella-log2atom")
              salmonella.log ,feeds-dir ,today-path 1))
 
     (! `(bzip2 -9 salmonella.log) tmp-dir)