scripts: Use raise-exception instead of scm-error. HEAD main

1 files 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