aboutsummaryrefslogtreecommitdiff
path: root/main.cpp
diff options
context:
space:
mode:
authorTeddy <ted.sybil@gmail.com>2013-08-08 18:27:03 +0800
committerTeddy <ted.sybil@gmail.com>2013-08-08 18:27:03 +0800
commit2c9f05a38ef64cbaeeae6429cd0e245c27944660 (patch)
tree446e29a0a6811ac548b2d08d59385bb062f047cc /main.cpp
parentde0ab402f28a9e5ed4ef443df336f856bb521c83 (diff)
rectified some names
Diffstat (limited to 'main.cpp')
-rw-r--r--main.cpp12
1 files changed, 2 insertions, 10 deletions
diff --git a/main.cpp b/main.cpp
index c07b873..810537d 100644
--- a/main.cpp
+++ b/main.cpp
@@ -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());
}