tisp

commit 1771e0b84cb0b86a62ddfbe6bfb71c869b7a4ffd
parent 5d500e6f515f714ed923900692457590ee44272c
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Tue, 31 Mar 2020 23:51:40 -0700

Minor renames

Diffstat:
config.mk
 | 
2
+-
doc/tisp.1.md
 | 
2
+-
tisp.c
 | 
3
++-

3 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/config.mk b/config.mk
@@ -18,7 +18,7 @@ LDFLAGS = -O3 -Wl,-rpath=$(DESTDIR)$(PREFIX)/lib/tisp $(LIBS)
 DEBUG ?= 0
 
 # self evaluate symbols if they are not defined, instead of throwing error
-# CFLAGS += -DTSP_SYM_RETURN
+# CFLAGS += -DTSP_SELF_SYMBOL
 
 # do not load tibs statically, use load procedure instead
 # CFLAGS += -DTIB_DYNAMIC
diff --git a/doc/tisp.1.md b/doc/tisp.1.md
@@ -268,6 +268,6 @@ See project page at <https://edryd.org/projects/tisp.html>
 
 View source code at <https://git.edryd.org/tisp>
 
-## LICENSE
+## License
 
 zlib License
diff --git a/tisp.c b/tisp.c
@@ -733,7 +733,7 @@ tisp_eval(Tsp st, Hash env, Val v)
 	switch (v->t) {
 	case SYMBOL:
 		if (!(f = hash_get(env, v->v.s)))
-#ifdef TSP_SYM_RETURN
+#ifdef TSP_SELF_SYMBOL
 			return v;
 #else
 			tsp_warnf("could not find symbol %s", v->v.s);
@@ -743,6 +743,7 @@ tisp_eval(Tsp st, Hash env, Val v)
 		if (!(f = tisp_eval(st, env, car(v))))
 			return NULL;
 		return eval_proc(st, env, f, cdr(v));
+	case STRING: /* TODO string interpolation */
 	default:
 		return v;
 	}