Reimplement VALUES as a function as opposed to a special operator.

1 files changed, 4 insertions, 0 deletions

diff --git a/MLKLexicalEnvironment.m b/MLKLexicalEnvironment.m
index c460111..4bcac78 100644
--- a/MLKLexicalEnvironment.m
+++ b/MLKLexicalEnvironment.m
@@ -33,6 +33,7 @@
 #import "MLKReadtable.h"
 #import "MLKSymbol.h"
 #import "MLKInteger.h"
+#import "MLKValuesFunction.h"
 #import "runtime-compatibility.h"
 
 
@@ -59,6 +60,9 @@ static MLKLexicalEnvironment *global_environment;
   [vars setObject:[NSNull null] forKey:[NSNull null]];
   [vars setObject:[cl intern:@"T"] forKey:[cl intern:@"T"]];
 
+  [funs setObject:AUTORELEASE ([[MLKValuesFunction alloc] init])
+        forKey:[cl intern:@"VALUES"]];
+
   global_environment = [[self alloc] initWithParent:nil
                                      variables:vars
                                      functions:funs];