diff options
Diffstat (limited to 'ccwl/ccwl.scm')
| -rw-r--r-- | ccwl/ccwl.scm | 6 |
1 files changed, 4 insertions, 2 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)) |