From 3a95f52eb8a7cd8b4a7fb89cd613f817325a9952 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Sep 2020 01:59:54 +0200 Subject: Fix assert crashing in itself. --- module/calp/util/exceptions.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module') diff --git a/module/calp/util/exceptions.scm b/module/calp/util/exceptions.scm index 53d9475d..04fc7a67 100644 --- a/module/calp/util/exceptions.scm +++ b/module/calp/util/exceptions.scm @@ -84,9 +84,9 @@ (define-macro (assert form) `(unless ,form - (throw 'assertion-error "Assertion for ~a failed, ~a" + (throw 'assertion-error "Assertion failed. ~a expected, ~a got" (quote ,form) - ((@@ (calp util exceptions) prettify-tree) ,(cons 'list form))))) + ((@@ (calp util exceptions) prettify-tree) (list ,form))))) (define-syntax catch-warnings -- cgit v1.2.3