better assert

1 files changed, 6 insertions, 2 deletions

diff --git a/src/primitives.c b/src/primitives.c
index a0a90a0..1c0d1e3 100644
--- a/src/primitives.c
+++ b/src/primitives.c
@@ -6,7 +6,11 @@
 SExpRef primitive_assert_error(Interp *interp, SExpRef args, bool istail) {
     SExpRef eargs = lisp_eval_args(interp, args);
     if (VALTYPE(eargs) == kErrSignal) return interp->t;
-    return new_error(interp, "assert-error failed: no error.\n");
+
+    const char *expstr = lisp_to_string(interp, CAR(args));
+    SExpRef ret = new_error(interp, "assert-error failed, no error: %s.\n", expstr);
+    free((void*)expstr);
+    return ret;
 }
 
 SExpRef primitive_load(Interp *interp, SExpRef args, bool istail) {
@@ -63,7 +67,7 @@ SExpRef primitive_assert(Interp *interp, SExpRef args, bool istail) {
     if (TRUEP(CAR(eargs))) {
         return interp->t;
     } else {
-        const char *expstr = lisp_to_string(interp, args);
+        const char *expstr = lisp_to_string(interp, CAR(args));
         SExpRef ret = new_error(interp, "Assertion failed: %s.\n", expstr);
         free((void*)expstr);
         return ret;