From e828a57eba62ff2469c894d3e50ecc58f36d810b Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Tue, 13 Aug 2013 16:59:48 +0800
Subject: vector gc

---
 parser.cpp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'parser.cpp')

diff --git a/parser.cpp b/parser.cpp
index 6abc1c0..c53ec14 100644
--- a/parser.cpp
+++ b/parser.cpp
@@ -209,6 +209,7 @@ Pair *ASTGenerator::absorb(Tokenizor *tk) {
                 for (Pair *ptr = TO_PAIR(lst); ptr != empty_list; ptr = TO_PAIR(ptr->cdr))
                     vec->push_back(ptr->car);
                 *top_ptr++ = vec;
+                if (lst != empty_list) delete lst;
             }
         }
         else
-- 
cgit v1.2.3