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