tisp

commit 48631876318cdf47cdd9f1efd90e48a7524a3062
parent 5625aa54cbb8dca9b7bf092466a1e03e6a701b8e
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Tue, 10 Sep 2019 21:27:59 -0700

Correct printed name of lambda function upon error

Diffstat:
tisp.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tisp.c b/tisp.c
@@ -697,7 +697,7 @@ eval_proc(Env env, Val v, Val f, Val args)
 			return NULL;
 		/* FALLTHROUGH */
 	case MACRO:
-		tsp_arg_num(args, v->v.s, list_len(f->v.f.args));
+		tsp_arg_num(args, v->t == SYMBOL ? v->v.s : "lambda", list_len(f->v.f.args));
 		if (!(hash_extend(f->v.f.env->h, f->v.f.args, args)))
 			return NULL;
 		hash_merge(f->v.f.env->h, env->h);