Moritz Heidkamp  committed c819012

fix bug in `run' - it now actually checks whether the program terminated normally and successfully (thanks Mario Goulart for reporting that)

  • Participants
  • Parent commits 522502e

Comments (0)

Files changed (1)

File chicken-build.scm

   (normalize-pathname (make-pathname chicken-coop chicken-name)))
 (define (run name . args)
-  (unless (process-wait (process-run name args))
-    (exit 1)))
+  (receive (pid success? status)
+      (process-wait (process-run name args))
+    (unless (and success? (zero? status))
+      (exit 1))))
 (when (file-exists? chicken-path)
   (printf "Chicken already exists: ~A" chicken-path)