diff options
| -rwxr-xr-x | scripts/ccwl | 16 |
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 |