Implement EQ.

1 files changed, 8 insertions, 0 deletions

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