From 5f6e0d93bb08446d2c6f99484523697a2bda7b4d Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 2 Dec 2025 01:23:50 +0000
Subject: scripts: Use raise-exception instead of scm-error.

---
 scripts/ccwl | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/scripts/ccwl b/scripts/ccwl
index 29c64bf..fbd549d 100755
--- a/scripts/ccwl
+++ b/scripts/ccwl
@@ -55,15 +55,13 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
                 (lambda (opt name arg result)
                   (let ((supported (list "cwl" "dot")))
                     (unless (member arg supported)
-                      (scm-error 'misc-error
-                                 #f
-                                 "Invalid target ~A argument ~S. Supported targets are ~A."
-                                 (list (if (char? name)
-                                           (string #\- name)
-                                           (string-append "--" name))
-                                       arg
-                                       (string-join supported ", "))
-                                 #f)))
+                      (raise-exception
+                       (formatted-message "Invalid target ~a argument ~s. Supported targets are ~a."
+                                          (if (char? name)
+                                              (string #\- name)
+                                              (string-append "--" name))
+                                          arg
+                                          (string-join supported ", ")))))
                   (acons 'to (string->symbol arg)
                          result)))
         (option (list #\o "output") #t #f
-- 
cgit 1.4.1