From 84fc6759f3ee52157b4c2cb4ec852c5cc8fcde4d Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 4 Oct 2021 17:05:38 +0530 Subject: 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. --- ccwl/ccwl.scm | 6 +++--- 1 file 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 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 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 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 ...)))) -- cgit v1.2.3