From e8c896c7f9aabad6e1387f538accb54ac6b2b1cc 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 --- init.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/init.scm b/init.scm index 87d3c88..af38620 100644 --- a/init.scm +++ b/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