diff options
| author | Justus Winter <[email protected]> | 2017-04-20 15:38:43 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-24 14:00:51 +0000 |
| commit | 78547bfe8a885579438a17abadca02b62cce2844 (patch) | |
| tree | 83da6f188a97a5411f0361cb3024302d14495104 | |
| parent | tests: Deduplicate and simplify code. (diff) | |
| download | gnupg-78547bfe8a885579438a17abadca02b62cce2844.tar.gz gnupg-78547bfe8a885579438a17abadca02b62cce2844.zip | |
gpgscm: Tweak error message display.
* tests/gpgscm/init.scm (throw'): If the first argument to the error
is a string, display it as such.
Signed-off-by: Justus Winter <[email protected]>
| -rw-r--r-- | tests/gpgscm/init.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 87d3c8870..af386201e 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -613,8 +613,13 @@ (quit (cadr args))) (else (display message) - (if args (begin - (display ": ") + (when (and args (not (null? args))) + (display ": ") + (if (string? (car args)) + (begin (display (car args)) + (unless (null? (cdr args)) + (newline) + (write (cdr args)))) (write args))) (newline) (vm-history-print history) |