From 4c8be58fd46bb16332e84ab8ce978087dc5c68a3 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Mon, 19 Jun 2017 16:13:24 +0200 Subject: gpgscm: Improve error reporting. * tests/gpgscm/init.scm (throw'): Guard against 'args' being atomic. * tests/gpgscm/scheme.c (Eval_Cycle): Remove any superfluous colons in error messages. Signed-off-by: Justus Winter --- tests/gpgscm/init.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests/gpgscm/init.scm') diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 3769ed00d..b78a59e5b 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -615,7 +615,7 @@ (display message) (when (and args (not (null? args))) (display ": ") - (if (string? (car args)) + (if (and (pair? args) (string? (car args))) (begin (display (car args)) (unless (null? (cdr args)) (newline) -- cgit v1.2.3