Add type checking for named let.

tadd · Feb 22, 2025 · 4b1bdb2 · 4b1bdb2
1 parent 8af36b5
commit 4b1bdb2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/schaf.c b/schaf.c
@@ -1435,6 +1435,7 @@ static Value let(Value *env, const char *func, Value bindings, Value body)
 
 static Value named_let(Value *env, Value var, Value bindings, Value body)
 {
+    expect_type("let", TYPE_PAIR, bindings);
     Value tr = transpose_2xn(bindings);
     Value params = car(tr), symargs = cadr(tr);
     Value proc = value_of_closure(*env, params, body);