From f218e5e444b9d4046a7e6adce487a14ab40248ac Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 25 Jun 2026 15:14:25 +0100
Subject: scripts: Spin off loader into ccwl-load in (ccwl lang).

---
 scripts/ccwl | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'scripts')

diff --git a/scripts/ccwl b/scripts/ccwl
index 6438e34..b2678ca 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -37,8 +37,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
              (ccwl cwl)
              (ccwl graphviz)
              (ccwl lang)
-             (ccwl ui)
-             (ccwl utils))
+             (ccwl ui))
 
 (define (invalid-option opt name arg result)
   (error "Invalid option" name))
@@ -91,15 +90,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
                                            (report-ccwl-violation c)
                                            (%compile-error #t))
                                          (raise-exception c)))
-             (lambda ()
-               (let ((source-path (canonicalize-path source)))
-                 ;; Change directory before loading source file. The
-                 ;; source file may reference other files with paths
-                 ;; relative to its directory.
-                 (call-with-current-directory (dirname source-path)
-                   (lambda ()
-                     (load source-path
-                           ccwl-read))))))))
+             (cut ccwl-load source))))
       (unless (%compile-error)
         (if (or (command? result)
                 (js-expression? result)
-- 
cgit 1.4.1