From f403bb6e9b0c64e2ce05eaf382c95884e753644e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@Minimulk.local>
Date: Sun, 24 Aug 2008 18:44:05 +0200
Subject: Promote special operator EVAL to an intrinsic function.

---
 MLKRoot.m | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index 361ce16..8045f54 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -776,4 +776,12 @@ as provided by method %@ of object %@",
                                  ? (id)[arglist array]
                                  : (id)[NSArray array])];
 }
+
++(NSArray *) eval:(NSArray *)args
+{
+  id evaluand = denullify ([args objectAtIndex:0]);
+  return [MLKInterpreter eval:evaluand
+             inLexicalContext:[MLKLexicalContext globalContext]
+              withEnvironment:[MLKLexicalEnvironment globalEnvironment]];
+}
 @end
-- 
cgit v1.2.3