tisp

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

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