commit 8fc5e2f3da976b6808039bd4bc39eb19fe24a4c5
author swissChili <swisschili@fastmail.com> Thu Apr 22 13:45:10 2021 -0700
committer swissChili <swisschili@fastmail.com> Thu Apr 22 13:45:10 2021 -0700
tree 759a055512638df297f6055b80593c57bbc0d0f4
parent 6aff2bba2f55c6a58ac8198964e8825b625cde1c

Add compile_tl (), compile `defun's

src/lisp/lisp.h

diff --git a/src/lisp/lisp.h b/src/lisp/lisp.h
index b781828..ba69a87 100644
--- a/src/lisp/lisp.h
+++ b/src/lisp/lisp.h
@@ -102,11 +102,6 @@
 
 void err (const char *msg);
 
-extern value_t nil;
+bool symstreq (value_t sym, char *str);
 
-#define FOREACH(item, list)                                                    \
-	for ( ; listp (list); )                                                    \
-		for ( value_t item = car (list), _foreach_current = list;              \
-		      !nilp (_foreach_current);                                        \
-		      _foreach_current = cdr (_foreach_current),                       \
-		              item = car (_foreach_current) )
+extern value_t nil;