diff options
Diffstat (limited to 'module/calp/util/exceptions.scm')
| -rw-r--r-- | module/calp/util/exceptions.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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 |