aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-10-04 17:05:38 +0530
committerArun Isaac2021-10-04 17:05:38 +0530
commit84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d (patch)
treeec7d4dc7b897dc632587188bb0db85493390d477
parent8cb1b1972fb00245a8a24d75e51b1cd8d474d1de (diff)
downloadccwl-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.scm6
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 ...))))