diff options
| author | Arun Isaac | 2022-01-16 13:03:56 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-16 13:17:36 +0530 |
| commit | 050c8d3325263a405646ee2cee0b021880d1f290 (patch) | |
| tree | 2f0bcfb33fe58637937ded58052416f7dd976d7b | |
| parent | e12759ce31a746b0532fbb13371579f0aa19b518 (diff) | |
| download | ccwl-050c8d3325263a405646ee2cee0b021880d1f290.tar.gz ccwl-050c8d3325263a405646ee2cee0b021880d1f290.tar.lz ccwl-050c8d3325263a405646ee2cee0b021880d1f290.zip | |
ccwl: Raise undefined ccwl command error as exception.
* ccwl/ccwl.scm (collect-steps): Raise undefined ccwl command error as a &ccwl-violation condition.
| -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 |