From d2177ce363fd5b0d8d3faf6d25f2944e43236e11 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 3 Jul 2008 17:54:38 +0200
Subject: Implement LIST.

---
 MLKPackage.m | 1 +
 MLKRoot.m    | 5 +++++
 2 files changed, 6 insertions(+)

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
-- 
cgit v1.2.3