From 930a4cef72c1b3798edbd7f3a91ee79a5cbb14ad Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 3 Aug 2008 19:18:31 +0200 Subject: Reimplement VALUES as a function as opposed to a special operator. --- MLKLexicalEnvironment.m | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'MLKLexicalEnvironment.m') 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]; -- cgit v1.2.3