modified the API of Env: add_binding

1 files changed, 2 insertions, 2 deletions

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;
 }