fixed a mem leak in parser.cpp

1 files changed, 3 insertions, 1 deletions

diff --git a/parser.cpp b/parser.cpp
index c53ec14..a8577d3 100644
--- a/parser.cpp
+++ b/parser.cpp
@@ -190,7 +190,9 @@ Pair *ASTGenerator::absorb(Tokenizor *tk) {
                         TO_PAIR(lst)->cdr != empty_list)
                         throw NormalError(PAR_ERR_IMPROPER_PAIR);
                     improper = true;
-                    lst = TO_PAIR(lst)->car;
+                    Pair *_lst = TO_PAIR(lst);
+                    lst = _lst->car;
+                    delete _lst;
                 }
                 else
                 {