scripts: Exit with 1, not 0, on compile error.

1 files changed, 12 insertions, 11 deletions

diff --git a/scripts/ccwl b/scripts/ccwl
index b2678ca..c1f8073 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -91,17 +91,18 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
                                            (%compile-error #t))
                                          (raise-exception c)))
              (cut ccwl-load source))))
-      (unless (%compile-error)
-        (if (or (command? result)
-                (js-expression? result)
-                (workflow? result))
-            ((case to
-               ((cwl) function->cwl)
-               ((dot) function->dot))
-             result port)
-            (raise-exception
-             (formatted-message "Last expression in file ~a returns none of workflow, command or js-expression"
-                                source)))))))
+      (if (%compile-error)
+          (exit #f)
+          (if (or (command? result)
+                  (js-expression? result)
+                  (workflow? result))
+              ((case to
+                 ((cwl) function->cwl)
+                 ((dot) function->dot))
+               result port)
+              (raise-exception
+               (formatted-message "Last expression in file ~a returns none of workflow, command or js-expression"
+                                  source)))))))
 
 (define (main args)
   (with-exception-handler