aboutsummaryrefslogtreecommitdiff
path: root/builtin.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'builtin.cpp')
-rw-r--r--builtin.cpp4
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;
}