klisp

commit 65ea7a0c671cce8c5b64e1ede5cbd941858f5685
parent f0c862793fdf08bab74c306d81c2bd390c73f5a4
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Sat,  5 Mar 2011 19:33:54 -0300

Bugfix in kenvironment, in add_binding, same problem as get_binding.

Diffstat:
M
src/kenvironment.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/kenvironment.c b/src/kenvironment.c
@@ -57,7 +57,7 @@ TValue kfind_local_binding(klisp_State *K, TValue bindings, TValue sym)
 
 void kadd_binding(klisp_State *K, TValue env, TValue sym, TValue val)
 {
-    TValue oldb = kfind_local_binding(K, kenv_parents(K, env), sym);
+    TValue oldb = kfind_local_binding(K, kenv_bindings(K, env), sym);
 
     if (ttisnil(oldb)) {
 	/* XXX: unrooted pair */