From 78547bfe8a885579438a17abadca02b62cce2844 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 20 Apr 2017 17:38:43 +0200 Subject: 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 --- tests/gpgscm/init.scm | 9 +++++++-- 1 file 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) -- cgit v1.2.3