diff options
| -rw-r--r-- | ccwl/ccwl.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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 <step> 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 |