diff options
author | Teddy <[email protected]> | 2013-08-08 18:27:03 +0800 |
---|---|---|
committer | Teddy <[email protected]> | 2013-08-08 18:27:03 +0800 |
commit | 2c9f05a38ef64cbaeeae6429cd0e245c27944660 (patch) | |
tree | 446e29a0a6811ac548b2d08d59385bb062f047cc /main.cpp | |
parent | de0ab402f28a9e5ed4ef443df336f856bb521c83 (diff) |
rectified some names
Diffstat (limited to 'main.cpp')
-rw-r--r-- | main.cpp | 12 |
1 files changed, 2 insertions, 10 deletions
@@ -6,14 +6,7 @@ #include <cstdio> #ifdef DEBUG -extern Cons *empty_list; -void tree_print(Cons *ptr) { - ptr->_debug_print(); - if (ptr->car->is_cons_obj()) - tree_print(TO_CONS(ptr->car)); - if (ptr->cdr->is_cons_obj()) - tree_print(TO_CONS(ptr->cdr)); -} +extern Pair *empty_list; #endif int main() { @@ -28,9 +21,8 @@ int main() { fprintf(stderr, "Sonsi> "); try { - Cons *tree = ast->absorb(tk); + Pair *tree = ast->absorb(tk); if (!tree) break; - //tree_print(tree); fprintf(stderr, "Ret> $%d = %s\n", rcnt++, eval->run_expr(tree)->ext_repr().c_str()); } |