~ chicken-core (chicken-5) 19e24b09a14d0bd2628859e5d4fae25a78ffc00f

commit 19e24b09a14d0bd2628859e5d4fae25a78ffc00f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Nov 12 23:42:28 2016 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Nov 13 11:41:49 2016 +0100

    optional continue when running script (why this?)

diff --git a/chicken-install.scm b/chicken-install.scm
index 06a38ced..009743b9 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -710,9 +710,10 @@
 (define (exec cmd #!optional (stop #t))
   (d "executing: ~s~%" cmd)
   (let ((r (system cmd)))
-    (if (and stop (not (zero? r)))
-        (error "shell command terminated with nonzero exit code" r cmd)
-        (print "shell command terminated with nonzero exit code " r ": " cmd))
+    (unless (zero? r)
+      (if stop
+          (error "shell command terminated with nonzero exit code" r cmd)
+          (print "shell command terminated with nonzero exit code " r ": " cmd)))
     r))