tisp

commit d0fab8b1e80f9486151ec4a2be7f496be17e25a0
parent 2d9cdf1a060d75ab8a439a15489ba7d2735630d9
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Fri,  2 Oct 2020 20:45:31 -0700

Remove outdated string printing logic

Diffstat:
tisp.c
 | 
5
+----

1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/tisp.c b/tisp.c
@@ -1105,10 +1105,7 @@ prim_error(Tsp st, Hash env, Val args)
 	tsp_arg_type(car(v), "error", SYMBOL);
 	fprintf(stderr, "tisp: error: %s: ", car(v)->v.s);
 	for (v = cdr(v); !nilp(v); v = cdr(v))
-		if (car(v)->t & STRING) /* don't print quotes around string */
-			fprintf(stderr, "%s", car(v)->v.s);
-		else
-			tisp_print(stderr, car(v));
+		tisp_print(stderr, car(v));
 	fputc('\n', stderr);
 	return NULL;
 }