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 /module | |
| 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 'module')
| -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 |