summaryrefslogtreecommitdiff
path: root/MLKEnvironment.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-06-24 14:30:33 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-06-24 14:30:33 +0200
commit26fa88efed6adff0ef5c79b918514cd5c704c84a (patch)
tree23b0c9bcd18f3ebd01e5e44bcb37b463557e294d /MLKEnvironment.m
parentc3d754abd77581ff7bd503fa3d2d254f524a1279 (diff)
Rename methods: forBinding -> forSymbol
Diffstat (limited to 'MLKEnvironment.m')
-rw-r--r--MLKEnvironment.m18
1 files changed, 9 insertions, 9 deletions
diff --git a/MLKEnvironment.m b/MLKEnvironment.m
index 581c462..73ea749 100644
--- a/MLKEnvironment.m
+++ b/MLKEnvironment.m
@@ -72,7 +72,7 @@ static id UNBOUND;
: (id)set);
}
--(void) setValue:(id)value forBinding:(MLKSymbol *)symbol;
+-(void) setValue:(id)value forSymbol:(MLKSymbol *)symbol;
{
[self setBinding:(symbol ? (id)symbol : (id)[NSNull null])
to:value
@@ -93,13 +93,13 @@ static id UNBOUND;
raise];
}
--(id) valueForBinding:(MLKSymbol *)symbol
+-(id) valueForSymbol:(MLKSymbol *)symbol
{
- return [self valueForBinding:(symbol ? (id)symbol : (id)[NSNull null])
+ return [self valueForSymbol:(symbol ? (id)symbol : (id)[NSNull null])
inEnvironment:self];
}
--(id) valueForBinding:(MLKSymbol *)symbol inEnvironment:(MLKEnvironment *)env
+-(id) valueForSymbol:(MLKSymbol *)symbol inEnvironment:(MLKEnvironment *)env
{
id value;
if ((value = [_bindings objectForKey:symbol]))
@@ -115,7 +115,7 @@ static id UNBOUND;
}
else
if (_parent)
- return [_parent valueForBinding:symbol];
+ return [_parent valueForSymbol:symbol];
else
[[[MLKUndefinedVariableException alloc] initWithEnvironment:env
variableName:symbol]
@@ -129,23 +129,23 @@ static id UNBOUND;
[_bindings addEntriesFromDictionary:bindings];
}
--(void) addValue:(id)value forBinding:(MLKSymbol *)symbol;
+-(void) addValue:(id)value forSymbol:(MLKSymbol *)symbol;
{
value = value ? value : (id) [NSNull null];
[_bindings setObject:value forKey:symbol];
}
--(void) addBinding:(MLKSymbol *)symbol
+-(void) addBindingForSymbol:(MLKSymbol *)symbol
{
[_bindings setObject:UNBOUND forKey:(symbol ? (id)symbol : (id)[NSNull null])];
}
--(MLKEnvironment *) environmentForBinding:(MLKSymbol *)symbol
+-(MLKEnvironment *) environmentForSymbol:(MLKSymbol *)symbol
{
if ([_bindings objectForKey:symbol])
return self;
else if (_parent)
- return [_parent environmentForBinding:symbol];
+ return [_parent environmentForSymbol:symbol];
else
return nil;
}