summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-01 18:05:39 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-01 18:05:39 +0200
commitfd32c174266aa00a09fd04f5705257855b9e8324 (patch)
tree0e156650317382b49a0726f83eb98f336bf52841
parente97d47a664131b5c80f35265f33e82eefb04f1d0 (diff)
Implement EQ.
-rw-r--r--MLKPackage.m1
-rw-r--r--MLKRoot.m8
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