Promote special operator EVAL to an intrinsic function.

1 files changed, 8 insertions, 0 deletions

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