aboutsummaryrefslogtreecommitdiff
path: root/main.cpp
diff options
context:
space:
mode:
authorTeddy <ted.sybil@gmail.com>2013-08-07 00:56:37 +0800
committerTeddy <ted.sybil@gmail.com>2013-08-07 00:56:37 +0800
commitcecd643ab2de3e4dbd69e76c58b928ab2aa2a80f (patch)
tree773d94e7a4309b32d61ee724b8dfd82e2e460221 /main.cpp
parentdd6394d93dc21305e26232891daf5b19c226dd3a (diff)
list checking fix
Diffstat (limited to 'main.cpp')
-rw-r--r--main.cpp7
1 files changed, 4 insertions, 3 deletions
diff --git a/main.cpp b/main.cpp
index eae0597..68f6c33 100644
--- a/main.cpp
+++ b/main.cpp
@@ -8,10 +8,11 @@
#ifdef DEBUG
extern Cons *empty_list;
void tree_print(Cons *ptr) {
- if (!ptr || ptr == empty_list) return;
ptr->_debug_print();
- tree_print(dynamic_cast<Cons*>(ptr->car));
- tree_print(TO_CONS(ptr->cdr));
+ if (ptr->car->is_cons_obj())
+ tree_print(TO_CONS(ptr->car));
+ if (ptr->cdr->is_cons_obj())
+ tree_print(TO_CONS(ptr->cdr));
}
#endif