tisp

commit 24e09c79abca60b74bced0586f04330d29d8cac0
parent bd14ca74dda0e17c7b846f20debc538b7e184f0a
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sun, 24 Mar 2019 00:46:37 -0700

Check number of arguments given to eval primitive

Diffstat:
tisp.c
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/tisp.c b/tisp.c
@@ -799,6 +799,7 @@ static Val
 prim_eval(Env env, Val args)
 {
 	Val v;
+	tsp_arg_num(args, "eval", 1);
 	if (!(v = tisp_eval(env, car(args))))
 		return NULL;
 	return tisp_eval(env, v);