From ceb555dd124dc18e2dad747b9afb2987cdbb91db Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 2 Dec 2025 00:46:15 +0000
Subject: scripts: Only guard load function for ccwl-violation.

---
 scripts/ccwl | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/scripts/ccwl b/scripts/ccwl
index 05f4f7a..e68501f 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -77,21 +77,21 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
   ((case to
      ((cwl) function->cwl)
      ((dot) function->dot))
-   (guard (exception
-           ;; Handle syntax violation exceptions by reporting them and
-           ;; exiting.
-           ((ccwl-violation? exception)
-            (report-ccwl-violation exception)
-            (exit #f)))
-     (let ((result (load (canonicalize-path source)
-                         read-syntax)))
-       (if (or (command? result)
-               (js-expression? result)
-               (workflow? result))
-           result
-           (raise-exception
-            (condition (formatted-message "Last expression in file ~a returns none of workflow, command or js-expression"
-                                          source))))))
+   (let ((result (guard (exception
+                         ;; Handle syntax violation exceptions by
+                         ;; reporting them and exiting.
+                         ((ccwl-violation? exception)
+                          (report-ccwl-violation exception)
+                          (exit #f)))
+                   (load (canonicalize-path source)
+                         read-syntax))))
+     (if (or (command? result)
+             (js-expression? result)
+             (workflow? result))
+         result
+         (raise-exception
+          (condition (formatted-message "Last expression in file ~a returns none of workflow, command or js-expression"
+                                        source)))))
    (current-output-port)))
 
 (define (main args)
-- 
cgit 1.4.1