diff --git a/test/lisp.lemon b/test/lisp.lemon index 2bddf27..0dac9a0 100644 --- 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() : "#"); - + lisp::clear_temp_list(); } /* diff --git a/test/lisp_cell.cpp b/test/lisp_cell.cpp index 370e1b7..5fbc838 100644 --- a/test/lisp_cell.cpp +++ b/test/lisp_cell.cpp @@ -34,7 +34,6 @@ namespace lisp { static std::vector free_list; static std::vector storage; - void clear_temp_list() { temp_list.clear(); } template 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 index a2e379b..581291c 100644 --- a/test/lisp_main.h +++ b/test/lisp_main.h @@ -40,10 +40,10 @@ class mexpr_parser : public lemon_base{ 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 {