Add COMPILE.

1 files changed, 12 insertions, 0 deletions

diff --git a/MLKRoot.m b/MLKRoot.m
index 940181c..a003912 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -22,6 +22,7 @@
 #import "MLKDynamicContext.h"
 #import "MLKInterpretedClosure.h"
 #import "MLKInterpreter.h"
+#import "MLKLLVMCompiler.h"
 #import "MLKNumber.h"
 #import "MLKPackage.h"
 #import "MLKRoot.h"
@@ -702,4 +703,15 @@ as provided by method %@ of object %@",
                          cons:forms
                          with:nil]]);
 }
+
+
++(NSArray *) compile:(NSArray *)args
+{
+  NSLog (@"Compiling lambda form.");
+  id thing = [MLKLLVMCompiler compile:denullify([args objectAtIndex:0])
+                              inContext:[MLKLexicalContext globalContext]];
+  NSLog (@"Compilation done.");
+  NSLog (@"Compiled: %@", thing);
+  RETURN_VALUE (thing);
+}
 @end