From 9982fba5f471944a2e5ab1edac97c971eb557416 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Tue, 13 Aug 2013 20:44:03 +0800
Subject: fixed a mem leak in parser.cpp

---
 parser.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'parser.cpp')

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
                 {
-- 
cgit v1.2.3