From 8c93190f057399889425a9103fe0615dcef4e1b7 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Wed, 14 Aug 2013 14:52:46 +0800
Subject: gc detect in list-specific built-ins, proper numeric conversion

---
 main.cpp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'main.cpp')

diff --git a/main.cpp b/main.cpp
index 42c89b2..14e0e43 100644
--- a/main.cpp
+++ b/main.cpp
@@ -21,18 +21,19 @@ void load_file(const char *fname) {
         exit(0);
     }
     tk.set_stream(f);
+    Pair *tree;
     while (1)
     {
         try
         {
-            Pair *tree = ast.absorb(&tk);
+            tree = ast.absorb(&tk);
             if (!tree) break;
             EvalObj *ret = eval.run_expr(tree);
             gc.expose(ret);
         }
         catch (GeneralError &e)
         {
-            fprintf(stderr, "An error occured: %s\n", e.get_msg().c_str());
+            fprintf(stderr, "An error occured near [%s]: %s\n", tree->ext_repr().c_str(), e.get_msg().c_str());
         }
         gc.force();
         gc.cycle_resolve();
-- 
cgit v1.2.3