From 050c8d3325263a405646ee2cee0b021880d1f290 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 16 Jan 2022 13:03:56 +0530 Subject: ccwl: Raise undefined ccwl command error as exception. * ccwl/ccwl.scm (collect-steps): Raise undefined ccwl command error as a &ccwl-violation condition. --- ccwl/ccwl.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index bff51f4..32022d7 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -465,7 +465,10 @@ represented by objects." (step-id (syntax->datum #'step-id))) ;; Test for undefined command. (unless function-object - (error "Undefined ccwl command:" (syntax->datum #'function))) + (raise-exception + (condition (ccwl-violation #'function) + (formatted-message "Undefined ccwl command ~a" + (syntax->datum #'function))))) ;; Test for missing required parameters. ;; TODO: Filter out optional parameters. (match (lset-difference -- cgit v1.2.3