From 3aa255629a915314b71c04820833b683ff9234fc Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Mon, 23 Jun 2008 19:02:42 +0200
Subject: Initialise the global environment on startup.

---
 MLKEnvironment.m | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'MLKEnvironment.m')

diff --git a/MLKEnvironment.m b/MLKEnvironment.m
index 314a46f..2dab2aa 100644
--- a/MLKEnvironment.m
+++ b/MLKEnvironment.m
@@ -19,6 +19,7 @@
 #import <Foundation/NSArray.h>
 #import <Foundation/NSDictionary.h>
 #import <Foundation/NSNull.h>
+#import <Foundation/NSSet.h>
 
 #import "MLKEnvironment.h"
 #import "MLKUndefinedVariableException.h"
@@ -63,6 +64,14 @@ static id UNBOUND;
   return _parent;
 }
 
+-(NSSet *) bindings
+{
+  NSSet *set = [NSSet setWithArray:[_bindings allKeys]];
+  return (_parent
+          ? (id)[set setByAddingObjectsFromSet:[_parent bindings]]
+          : (id)set);
+}
+
 -(void) setValue:(id)value forBinding:(MLKSymbol *)symbol;
 {
   [self setBinding:symbol to:value inEnvironment:self];
-- 
cgit v1.2.3