From b17e5884d8427a6d162b87a9706ca4fd1046d9e5 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 15 Jun 2008 11:49:32 +0200
Subject: MLKDynamicContext, MLKEnvironment: Add -valueForBinding: and
 -setValue:forBinding:.

---
 MLKDynamicContext.m | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'MLKDynamicContext.m')

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index d08deaa..63c8ad7 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -142,6 +142,19 @@
   return nil;
 }
 
+-(id) valueForBinding:(MLKSymbol *)symbol
+{
+  return [[[MLKDynamicContext currentContext] environment]
+           valueForBinding:symbol];
+}
+
+-(void) setValue:(id)value forBinding:(MLKSymbol *)symbol
+{
+  [[[MLKDynamicContext currentContext] environment]
+    setValue:value
+    forBinding:symbol];
+}
+
 -(void) dealloc
 {
   RELEASE (_conditionHandlers);
-- 
cgit v1.2.3