From fd32c174266aa00a09fd04f5705257855b9e8324 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 1 Jul 2008 18:05:39 +0200
Subject: Implement EQ.

---
 MLKPackage.m | 1 +
 MLKRoot.m    | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/MLKPackage.m b/MLKPackage.m
index a0e0384..84b53eb 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -84,6 +84,7 @@ static NSMutableDictionary *packages = nil;
   [sys export:[sys intern:@"SET-CDR"]];
   [sys export:[sys intern:@"CONS"]];
   [sys export:[sys intern:@"LOAD"]];
+  [sys export:[sys intern:@"EQ"]];
 
   [tlUser usePackage:clUser];
 }
diff --git a/MLKRoot.m b/MLKRoot.m
index 8326e39..72bf73f 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -155,4 +155,12 @@ static MLKPackage *cl;
   else
     return [NSArray arrayWithObject:[NSNull null]];
 }
+
++(NSArray *) eq:(NSArray *)args
+{
+  if ([args objectAtIndex:0] == [args objectAtIndex:1])
+    return [NSArray arrayWithObject:[cl intern:@"T"]];
+  else
+    return [NSArray arrayWithObject:[NSNull null]];
+}
 @end
-- 
cgit v1.2.3