diff options
| author | Arun Isaac | 2021-10-04 17:05:38 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-04 17:05:38 +0530 |
| commit | 84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d (patch) | |
| tree | ec7d4dc7b897dc632587188bb0db85493390d477 | |
| parent | 8cb1b1972fb00245a8a24d75e51b1cd8d474d1de (diff) | |
| download | ccwl-84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d.tar.gz ccwl-84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d.tar.lz ccwl-84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d.zip | |
ccwl: Quote source code in error messages.
This makes it easier to distinct source code from the regular text of
the error messages.
* ccwl/ccwl.scm (workflow-steps): Quote source code in error messages.
| -rw-r--r-- | ccwl/ccwl.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index b923b4a..c7c1f70 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -370,7 +370,7 @@ list of supplied input <key> objects." (missing-parameters (scm-error 'misc-error #f - "Step ~S missing required parameters ~S" + "Step `~S' missing required parameters `~S'" (list step-id missing-parameters) #f))) ;; Test for unknown keys. @@ -380,7 +380,7 @@ list of supplied input <key> objects." (command-input-keys command-object)) (scm-error 'misc-error #f - "ccwl command ~S does not accept input key ~S. Accepted keys are ~S." + "ccwl command `~S' does not accept input key `~S'. Accepted keys are `~S'." (list (syntax->datum #'command) arg (command-input-keys command-object)) @@ -388,7 +388,7 @@ list of supplied input <key> objects." (unless (memq value input-key-symbols) (scm-error 'misc-error #f - "ccwl step ~S supplied with unknown key ~S. Known keys at this step are ~S." + "ccwl step `~S' supplied with unknown key `~S'. Known keys at this step are `~S'." (list step-id value input-key-symbols) #f)))) (syntax->datum (pairify #'(args ...)))) |