From f5348e04a2d52fbf707a7def7ebcee944795dede Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 15 Jun 2008 12:48:38 +0200
Subject: MLKDynamicContext, MLKEnvironment: Add -addBinding:, -boundp:, and
 -makunbound:.

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

(limited to 'MLKDynamicContext.m')

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 9b61bb6..5b44db7 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -157,6 +157,21 @@
   [[self environment] addValue:value forBinding:symbol];
 }
 
+-(void) addBinding:(MLKSymbol *)symbol
+{
+  [[self environment] addBinding:symbol];
+}
+
+-(BOOL) boundp:(MLKSymbol *)symbol
+{
+  return [[self environment] boundp:symbol];
+}
+
+-(void) makunbound:(MLKSymbol *)symbol
+{
+  [[self environment] makunbound:symbol];
+}
+
 -(void) dealloc
 {
   RELEASE (_conditionHandlers);
-- 
cgit v1.2.3