Implement LIST.

2 files changed, 6 insertions, 0 deletions

diff --git a/MLKPackage.m b/MLKPackage.m
index 205dea1..4673f0e 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -98,6 +98,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"SUBTRACT"]];
   [sys export:[sys intern:@"MULTIPLY"]];
   [sys export:[sys intern:@"DIVIDE"]];
+  [sys export:[sys intern:@"LIST"]];
 
   [tlUser usePackage:clUser];
 }
diff --git a/MLKRoot.m b/MLKRoot.m
index 5c8b4b8..c30a043 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -220,4 +220,9 @@ static id truify (BOOL value)
 {
   RETURN_VALUE ([[args objectAtIndex:0] divideBy:[args objectAtIndex:1]]);
 }
+
++(NSArray *) list:(NSArray *)args
+{
+  RETURN_VALUE ([MLKCons listWithArray:args]);
+}
 @end