diff options
author | Teddy <ted.sybil@gmail.com> | 2013-08-04 10:00:30 +0800 |
---|---|---|
committer | Teddy <ted.sybil@gmail.com> | 2013-08-04 10:00:30 +0800 |
commit | 9c1af3a6e77d7a0e1dc66aa9166d0ead6a56d963 (patch) | |
tree | b12624f6170e77c1e7c0d8d0885838176dadc186 /builtin.cpp | |
parent | 9e834528d38a89eb4075b09b35fb7b6e7636740d (diff) |
modified the API of Env: add_binding
Diffstat (limited to 'builtin.cpp')
-rw-r--r-- | builtin.cpp | 4 |
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; } |