Implement EQ.

2 files changed, 9 insertions, 0 deletions

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