vector gc

1 files changed, 1 insertions, 0 deletions

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