lisp - clear out the temp list after parsing an expression.

ksherlock · Feb 28, 2016 · 51cef14 · 51cef14
1 parent 92d32d1
commit 51cef14
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/test/lisp.lemon b/test/lisp.lemon
@@ -44,7 +44,7 @@ program ::= statement_list.
 
 statement_list ::= statement(E). {
 	printf("%s\n", E ? E->to_string().c_str() : "#<nil>");
-
+	lisp::clear_temp_list();
 }
 
 /*

diff --git a/test/lisp_cell.cpp b/test/lisp_cell.cpp
@@ -34,7 +34,6 @@ namespace lisp {
 		static std::vector<void *> free_list;
 		static std::vector<chunk> storage;
 
-		void clear_temp_list() { temp_list.clear(); }
 
 		template<class T>
 		T *temp(T *t) { temp_list.push_back(t); return t; }
@@ -128,6 +127,7 @@ namespace lisp {
 
 
 
+	void clear_temp_list() { temp_list.clear(); }
 
 	void initialize(std::size_t size) {
 

diff --git a/test/lisp_main.h b/test/lisp_main.h
@@ -40,10 +40,10 @@ class mexpr_parser : public lemon_base<Token>{
 	protected:
 	virtual void parse_failure() final override {
 		fail = true;
-		printf("Fail!\n");
+		//printf("Fail!\n");
 	}
 	virtual void parse_accept() final override {
-		printf("Accept!\n");
+		//printf("Accept!\n");
 	}
 
 	virtual void syntax_error(int yymajor, token_type &yyminor) final override {
-Original file line number
+Diff line change
@@ Expand Up / @@ -44,7 +44,7 @@ program ::= statement_list. @@
     statement_list ::= statement(E). {
     	printf("%s\n", E ? E->to_string().c_str() : "#<nil>");
+    	lisp::clear_temp_list();
     }
     /*
@@ Expand Down @@