summaryrefslogtreecommitdiff
path: root/MLKEnvironment.m
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-06-18 15:56:59 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-06-18 15:56:59 +0200
commitc918ca4ed93121a1fa3fcbf98502f61e9055d340 (patch)
tree7da07c5e6bddcc94a5c4bb093d9a858fdc5678df /MLKEnvironment.m
parent164e403a974165af103fa072d0f14e2e256153be (diff)
MLKEnvironment: Store [NSNull null] instead of nil.
Diffstat (limited to 'MLKEnvironment.m')
-rw-r--r--MLKEnvironment.m2
1 files changed, 2 insertions, 0 deletions
diff --git a/MLKEnvironment.m b/MLKEnvironment.m
index 8488dd2..b2a3a81 100644
--- a/MLKEnvironment.m
+++ b/MLKEnvironment.m
@@ -69,6 +69,7 @@ static id UNBOUND;
-(void) setBinding:(MLKSymbol *)symbol to:(id)value inEnvironment:(MLKEnvironment *)env
{
+ value = value ? value : (id) [NSNull null];
if ([_bindings objectForKey:symbol])
[_bindings setObject:value forKey:symbol];
else
@@ -117,6 +118,7 @@ static id UNBOUND;
-(void) addValue:(id)value forBinding:(MLKSymbol *)symbol;
{
+ value = value ? value : (id) [NSNull null];
[_bindings setObject:value forKey:symbol];
}