From cecd643ab2de3e4dbd69e76c58b928ab2aa2a80f Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Wed, 7 Aug 2013 00:56:37 +0800
Subject: list checking fix

---
 parser.cpp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'parser.cpp')

diff --git a/parser.cpp b/parser.cpp
index 56b3dd9..f667933 100644
--- a/parser.cpp
+++ b/parser.cpp
@@ -175,9 +175,11 @@ Cons *ASTGenerator::absorb(Tokenizor *tk) {
                 EvalObj *obj = TO_EVAL(*top_ptr);
                 if (obj->is_sym_obj() && static_cast<SymObj*>(obj)->val == ".")
                 {
-                    improper = true;
-                    if (lst == empty_list || TO_CONS(lst)->cdr != empty_list)
+                    if (improper || 
+                        lst == empty_list || 
+                        TO_CONS(lst)->cdr != empty_list)
                         throw NormalError(PAR_ERR_IMPROPER_PAIR);
+                    improper = true;
                     lst = TO_CONS(lst)->car;
                 }
                 else
-- 
cgit v1.2.3