From 4447563e79bb32bbda14641733049fe544392917 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 18 Aug 2008 11:38:56 +0200
Subject: LLVM compiler: Implement dynamic variable access.

---
 MLKLexicalEnvironment.m | 32 +++++++++++++++++++++++++++++---
 1 file changed, 29 insertions(+), 3 deletions(-)

(limited to 'MLKLexicalEnvironment.m')

diff --git a/MLKLexicalEnvironment.m b/MLKLexicalEnvironment.m
index ca6b4a9..723c955 100644
--- a/MLKLexicalEnvironment.m
+++ b/MLKLexicalEnvironment.m
@@ -107,17 +107,43 @@ static MLKLexicalEnvironment *global_environment;
 
 -(id) valueForSymbol:(MLKSymbol *)symbol
 {
-  return [_variables valueForSymbol:symbol];
+  if (![_variables environmentForSymbol:symbol]
+      || [_variables environmentForSymbol:symbol] == global_environment->_variables)
+    {
+      id *cell = [[MLKLexicalContext globalContext] bindingCellForSymbol:symbol];
+      return [*cell value];
+    }
+  else
+    {
+      return [_variables valueForSymbol:symbol];
+    }
 }
 
 -(void) setValue:(id)value forSymbol:(MLKSymbol *)symbol
 {
-  [_variables setValue:value forSymbol:symbol];
+  if (![_variables environmentForSymbol:symbol]
+      || [_variables environmentForSymbol:symbol] == global_environment->_variables)
+    {
+      id *cell = [[MLKLexicalContext globalContext] bindingCellForSymbol:symbol];
+      [*cell setValue:value forSymbol:symbol];
+    }
+  else
+    {
+      [_variables setValue:value forSymbol:symbol];
+    }
 }
 
 -(void) addValue:(id)value forSymbol:(MLKSymbol *)symbol
 {
-  [_variables addValue:value forSymbol:symbol];
+  if (self == global_environment)
+    {
+      id *cell = [[MLKLexicalContext globalContext] bindingCellForSymbol:symbol];
+      [*cell setValue:value forSymbol:symbol];
+    }
+  else
+    {
+      [_variables addValue:value forSymbol:symbol];
+    }
 }
 
 -(void) addBindingForSymbol:(MLKSymbol *)symbol
-- 
cgit v1.2.3