Welcome to the CHICKEN Scheme pasting service
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))