tisp

commit bc04d4d832065ddaa08054e92e0d272e006cdeeb
parent 9de7c119e1758e613c820055497e586252886110
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Fri, 27 Mar 2020 16:13:59 -0700

Return procedure's name as symbol

Diffstat:
tisp.c
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tisp.c b/tisp.c
@@ -920,12 +920,12 @@ prim_get(Tsp st, Hash env, Val args)
 	switch (v->t) {
 	case PRIMITIVE:
 		if (!strncmp(prop->v.s, "name", 4))
-			return mk_str(st, v->v.pr.name);
+			return mk_sym(st, v->v.pr.name);
 		break;
 	case FUNCTION:
 	case MACRO:
 		if (!strncmp(prop->v.s, "name", 4))
-			return mk_str(st, v->v.f.name);
+			return mk_sym(st, v->v.f.name);
 		if (!strncmp(prop->v.s, "body", 4))
 			return v->v.f.body;
 		if (!strncmp(prop->v.s, "args", 4))