tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

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);