gpgscm: Make assert macro more accurate.

* tests/gpgscm/lib.scm (assert): Print the representation of the
failed expression.

Signed-off-by: Justus Winter <justus@g10code.com>

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)