From 699c6c9f4b44441ab3db7f942df5b81f4cd88b06 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 21 Jul 2016 18:05:58 +0200 Subject: [PATCH] gpgscm: Make assert macro more accurate. * tests/gpgscm/lib.scm (assert): Print the representation of the failed expression. Signed-off-by: Justus Winter --- tests/gpgscm/lib.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/gpgscm/lib.scm b/tests/gpgscm/lib.scm index e23977a5e..fe28262dc 100644 --- a/tests/gpgscm/lib.scm +++ b/tests/gpgscm/lib.scm @@ -20,7 +20,8 @@ (macro (assert form) `(if (not ,(cadr form)) (begin - (display (list "Assertion failed:" (quote ,(cadr form)))) + (display "Assertion failed: ") + (write (quote ,(cadr form))) (newline) (exit 1)))) (assert #t)