Rework symbol lookup to use lexical scoping, and implement recursive function call via ∇

1 files changed, 5 insertions, 3 deletions

diff --git a/main.c b/main.c
index 7551958..1397003 100644
--- a/main.c
+++ b/main.c
@@ -12,8 +12,7 @@ main(int argc, char *argv[])
 {
 	int off = 0;
 	stdin = Bfdopen(0, OREAD);
-	globalsymtab = newsymtab();
-	currentsymtab = globalsymtab;
+	initsymtab();
 	traceeval = 0;
 	debugmem = 0;
 
@@ -31,7 +30,10 @@ main(int argc, char *argv[])
 restart:
 	SETUPERROR(errorcode);
 	if(errorcode){
-		currentsymtab = globalsymtab;
+		/* remove aborted dfn frames */
+		while(getcurrentdfn())
+			popdfnframe();
+
 		if(globalerror.msg)
 			print("%S: %S\n", errorstrs[errorcode], globalerror.msg);
 		else