From 2283b43f733d95fe1c95fd0b7b838a1d450b007a Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 24 Jun 2008 16:16:11 +0200
Subject: Make the environment handling system aware of bindings as first-class
 values.

---
 MLKDynamicContext.m | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'MLKDynamicContext.m')

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 630b505..31f23b7 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -42,7 +42,7 @@
             initWithParent:(parent                                      \
                             ? (id) parent_member                        \
                             : nil)                                      \
-                  bindings:variable]                                    \
+                    values:variable]                                    \
    : (id) (parent ? (id) RETAIN (parent_member) : nil));
 
 
@@ -330,7 +330,7 @@ static MLKDynamicContext *global_context;
     }
   NS_HANDLER
     {
-      if ([[localException name] isEqualToString: @"MLKUndefinedVariableException"])
+      if ([[localException name] isEqualToString: @"MLKUnboundVariableError"])
         NS_VALUERETURN (nil, id);
       else
         [localException raise];
@@ -351,7 +351,7 @@ static MLKDynamicContext *global_context;
     }
   NS_HANDLER
     {
-      if ([[localException name] isEqualToString: @"MLKUndefinedVariableException"])
+      if ([[localException name] isEqualToString: @"MLKUnboundVariableError"])
         NS_VALUERETURN (nil, id);
       else
         [localException raise];
@@ -369,7 +369,7 @@ static MLKDynamicContext *global_context;
     }
   NS_HANDLER
     {
-      if ([[localException name] isEqualToString: @"MLKUndefinedVariableException"])
+      if ([[localException name] isEqualToString: @"MLKUnboundVariableError"])
         NS_VALUERETURN (nil, id);
       else
         [localException raise];
-- 
cgit v1.2.3