From eb968f738101d87b2d0e170d757ea10a27bbb867 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 30 Jun 2008 21:04:34 +0200 Subject: Create environments upon binding when needed. --- MLKDynamicContext.m | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'MLKDynamicContext.m') diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m index 7b102e6..d4e1ab6 100644 --- a/MLKDynamicContext.m +++ b/MLKDynamicContext.m @@ -373,11 +373,25 @@ static MLKDynamicContext *global_context; -(void) addValue:(id)value forSymbol:(MLKSymbol *)symbol { + if (_parent && _environment == _parent->_environment) + _environment = [[MLKEnvironment alloc] initWithParent:_parent->_environment + values:nil]; + else if (!_environment) + _environment = [[MLKEnvironment alloc] initWithParent:nil + values:nil]; + [[self environment] addValue:value forSymbol:symbol]; } -(void) addBindingForSymbol:(MLKSymbol *)symbol { + if (_parent && _environment == _parent->_environment) + _environment = [[MLKEnvironment alloc] initWithParent:_parent->_environment + values:nil]; + else if (!_environment) + _environment = [[MLKEnvironment alloc] initWithParent:nil + values:nil]; + [[self environment] addBindingForSymbol:symbol]; } -- cgit v1.2.3