salmonella-run-publish & multiple CHICKEN releases support added by mario-goulart on Fri Sep 19 16:50:12 2014

diff --git a/salmonella-run-publish-params.scm b/salmonella-run-publish-params.scm
index b06a382..79e0974 100644
--- a/salmonella-run-publish-params.scm
+++ b/salmonella-run-publish-params.scm
@@ -3,7 +3,7 @@
   chicken-core-branch make-program keep-repo? skip-eggs henrietta-uri
   local-mode? web-dir verbose? compress-report? c-compiler
   branch-publish-transformer c-compiler-publish-name feeds-server
-  create-report-tarball salmonella-diff-link-mode?)
+  create-report-tarball salmonella-diff-link-mode? chicken-release)
 
 (import chicken scheme)
 (use posix files)
@@ -102,4 +102,7 @@
 (define salmonella-diff-link-mode?
   (make-parameter #f))
 
+(define chicken-release
+  (make-parameter "4"))
+
 ) ;; end module
diff --git a/salmonella-run-publish.scm b/salmonella-run-publish.scm
index 2595ce9..bd7e59c 100644
--- a/salmonella-run-publish.scm
+++ b/salmonella-run-publish.scm
@@ -175,7 +175,7 @@
 
 (define (list-eggs)
   (with-input-from-request
-   (string-append (henrietta-uri) "?list=1")
+   (sprintf "~a?release=~a&list=1" (henrietta-uri) (chicken-release))
    #f
    read-file))