~ chicken-core (chicken-5) 25a463722a7d94d62eb9c4dbebdbedee638f3930

commit 25a463722a7d94d62eb9c4dbebdbedee638f3930
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 11 13:06:03 2016 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 11 13:06:03 2016 +0100

    always exit with 2, if tests failed

diff --git a/chicken-install.scm b/chicken-install.scm
index c53e7b05..c490b5c4 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -784,15 +784,15 @@
                           (list (pathname-file fname) (current-directory) #f))
                      (glob "*.egg")))
                  (retrieve-eggs '())
-                 (unless retrieve-only (install-eggs))
-                 (when tests-failed (exit 2)))))
+                 (unless retrieve-only (install-eggs)))))
         (else
           (let ((eggs (apply-mappings eggs)))
             (cond (list-versions-only (list-egg-versions eggs))
                   ;;XXX other actions...
                   (else 
                     (retrieve-eggs eggs)
-                    (unless retrieve-only (install-eggs))))))))
+                    (unless retrieve-only (install-eggs)))))))
+  (when tests-failed (exit 2)))
 
 (define (main args)
   (setup-proxy (get-environment-variable "http_proxy"))