diff options
| -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 ...)))) |