From c20e1e2ad7eae6b89aed8faa450a6f611be22cda Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 1 Jul 2026 14:53:10 +0100
Subject: scripts: Exit with 1, not 0, on compile error.

---
 scripts/ccwl | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

(limited to 'scripts')

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
-- 
cgit 1.4.1