From 9c1af3a6e77d7a0e1dc66aa9166d0ead6a56d963 Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Sun, 4 Aug 2013 10:00:30 +0800
Subject: modified the API of Env: add_binding

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

(limited to 'builtin.cpp')

diff --git a/builtin.cpp b/builtin.cpp
index 19516bd..75f470e 100644
--- a/builtin.cpp
+++ b/builtin.cpp
@@ -195,8 +195,8 @@ Cons *SpecialOptSet::call(ArgList *args, Environment * &envt,
     Cons *ret_addr = dynamic_cast<RetAddr*>(*top_ptr)->addr;
     Cons *pc = dynamic_cast<Cons*>(ret_addr->car);
     SymObj *id = dynamic_cast<SymObj*>(pc->cdr->car);
-    if (envt->has_obj(id))
-        envt->add_binding(id, args->cdr->car);
+    bool flag = envt->add_binding(id, args->cdr->car, false);
+    // TODO: throw an exc "unbound variable"
     *top_ptr++ = new UnspecObj();
     return ret_addr->next;
 }
-- 
cgit v1.2.3