aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/ccwl.scm6
-rw-r--r--tests/ccwl.scm4
2 files changed, 6 insertions, 4 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 98bc8ae..ca02cea 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -383,13 +383,15 @@ identifiers defined in the commands."
(not (string? (syntax->datum stderr))))
(raise-exception
(condition (ccwl-violation stderr)
- (formatted-message "#:stderr parameter must be a string")))
+ (formatted-message "Invalid #:stderr parameter ~a. #:stderr parameter must be a string"
+ (syntax->datum stderr))))
stderr)
#,(if (and stdout
(not (string? (syntax->datum stdout))))
(raise-exception
(condition (ccwl-violation stdout)
- (formatted-message "#:stdout parameter must be a string")))
+ (formatted-message "Invalid #:stdout parameter ~a. #:stdout parameter must be a string"
+ (syntax->datum stdout))))
stdout)
#,requirements
#,other))
diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index e60a035..d8100c5 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -212,7 +212,7 @@
(guard (exception
(else (and (ccwl-violation? exception)
(string=? (formatted-message-format exception)
- "#:stderr parameter must be a string"))))
+ "Invalid #:stderr parameter ~a. #:stderr parameter must be a string"))))
(begin (macroexpand
'(command #:inputs (message #:type string)
#:run "echo" message
@@ -224,7 +224,7 @@
(guard (exception
(else (and (ccwl-violation? exception)
(string=? (formatted-message-format exception)
- "#:stdout parameter must be a string"))))
+ "Invalid #:stdout parameter ~a. #:stdout parameter must be a string"))))
(begin (macroexpand
'(command #:inputs (message #:type string)
#:run "echo" message