~ chicken-core (chicken-5) be334a8bfbbd152a8dcd17f2f668a0c249c5c9aa

commit be334a8bfbbd152a8dcd17f2f668a0c249c5c9aa
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jan 7 16:01:02 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jan 7 16:01:02 2010 +0100

    more mini-s. tweaks

diff --git a/distribution/manifest b/distribution/manifest
index 73f613ec..07b2b515 100644
--- a/distribution/manifest
+++ b/distribution/manifest
@@ -192,6 +192,7 @@ scripts/README
 scripts/henrietta.scm
 scripts/henrietta.cgi
 scripts/identify-branch
+scripts/mini-salmonella.scm
 synrules.scm
 expand.scm
 expand.c
diff --git a/scripts/mini-salmonella.scm b/scripts/mini-salmonella.scm
index 120ff670..85fadd9b 100644
--- a/scripts/mini-salmonella.scm
+++ b/scripts/mini-salmonella.scm
@@ -76,6 +76,9 @@
 	(display log))
       #:append)))
 
+(define *failed* 0)
+(define *succeeded* 0)
+
 (define (install-egg egg dir)
   (let ((command
 	 (sprintf "~a ~a -t local -l ~a ~a ~a"
@@ -89,9 +92,12 @@
     (when *debug*
       (print "  " command))
     (let ((status (system command)))
-      (cond ((zero? status) (report egg "OK"))
+      (cond ((zero? status)
+	     (report egg "OK")
+	     (set! *succeeded* (add1 *succeeded)))
 	    (else
 	     (report egg "FAILED")
+	     (set! *failed* (add1 *failed*))
 	     (copy-log egg *tmplogfile*))))))
 
 (delete-file* *errlogfile*)
@@ -111,4 +117,6 @@
 	   (report egg "<no .meta file>")))))
  (directory *eggdir*))
 
+(print "\nSucceeded: " *succeeded* ", failed: " *failed*)
+
 )