tisp

commit ab898691660f63ec16f66fe5047e2be0f4b3f54d
parent 95c8ae39cbbfca2b1806f7011906cd98db900378
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Mon,  5 Oct 2020 11:46:32 -0700

Fix function name in error message

Diffstat:
tib/string.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tib/string.c b/tib/string.c
@@ -109,7 +109,7 @@ static Val
 prim_strlen(Tsp st, Hash env, Val args)
 {
 	Val v;
-	tsp_arg_num(args, "symbol", 1);
+	tsp_arg_num(args, "strlen", 1);
 	if (!(v = tisp_eval(st, env, car(args))))
 		return NULL;
 	if (!(v->t & (STRING|SYMBOL)))