From cb23a76bbd3b7b1ccf4a5ec8894437e449a9047d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Fri, 27 Jun 2008 12:44:25 +0200
Subject: MLKInterpreter: Implement the %LAMBDA operator.

---
 MLKCons.m | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

(limited to 'MLKCons.m')

diff --git a/MLKCons.m b/MLKCons.m
index b2b3b8b..f56cfd7 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -26,7 +26,7 @@
 @implementation MLKCons
 +(MLKCons*) cons:(id)car with:(id)cdr
 {
-  return AUTORELEASE ([[MLKCons alloc] initWithCar:car cdr:cdr]);
+  return AUTORELEASE ([[self alloc] initWithCar:car cdr:cdr]);
 }
 
 -(MLKCons*) initWithCar:(id)car cdr:(id)cdr
@@ -37,6 +37,30 @@
   return self;
 }
 
++(MLKCons*) listWithArray:(NSArray *)array
+{
+  MLKCons *cons, *tail;
+  int i;
+
+  cons = nil;
+  tail = nil;
+
+  for (i = 0; i < [array count]; i++)
+    {
+      id item = [array objectAtIndex:i];
+      if (!tail)
+        {
+          cons = tail = [MLKCons cons:item with:nil];
+        }
+      else
+        {
+          [tail setCdr:[MLKCons cons:item with:nil]];
+          tail = [tail cdr];
+        }
+    }
+
+  return cons;
+}
 
 -(id) car
 {
-- 
cgit v1.2.3