Add a proper error message.

tadd · Feb 22, 2025 · 461b108 · 461b108
1 parent 4b1bdb2
commit 461b108
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/schaf.c b/schaf.c
@@ -1423,9 +1423,9 @@ static Value let(Value *env, const char *func, Value bindings, Value body)
     Value letenv = *env;
     for (Value p = bindings; p != Qnil; p = cdr(p)) {
         Value b = car(p);
-        if (b == Qnil)
-            continue;
         expect_type(func, TYPE_PAIR, b);
+        if (length(b) != 2)
+            runtime_error("%s: malformed binding in let: %s", func, stringify(b));
         Value ident = car(b), expr = cadr(b);
         expect_type(func, TYPE_SYMBOL, ident);
         env_put(&letenv, ident, eval(env, expr));