diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 01:59:54 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 01:59:54 +0200 |
commit | 3a95f52eb8a7cd8b4a7fb89cd613f817325a9952 (patch) | |
tree | c5faf41e383399b8d78bbc970b9348e0937c3edb | |
parent | Print vcomponents found on stack in final error handler. (diff) | |
download | calp-3a95f52eb8a7cd8b4a7fb89cd613f817325a9952.tar.gz calp-3a95f52eb8a7cd8b4a7fb89cd613f817325a9952.tar.xz |
Fix assert crashing in itself.
Diffstat (limited to '')
-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 |