From fbb077569838b79f9232cb0c50c5f8721e8a822a Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Tue, 2 Sep 2008 18:43:31 +0200 Subject: MLKForm class cluster: Handle NIL as a variable name correctly. --- MLKForm.m | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'MLKForm.m') diff --git a/MLKForm.m b/MLKForm.m index 230df3e..674181b 100644 --- a/MLKForm.m +++ b/MLKForm.m @@ -150,7 +150,7 @@ -(NSSet *) freeVariables { if ([_context variableIsLexical:_form]) - return [NSSet setWithObject:_form]; + return [NSSet setWithObject:nullify(_form)]; else return [NSSet set]; } @@ -632,7 +632,7 @@ LASSIGN (_lambdaListName, [_tail car]); newContext = [MLKLexicalContext contextWithParent:_context - variables:[NSSet setWithObject:_lambdaListName] + variables:[NSSet setWithObject:nullify(_lambdaListName)] functions:nil goTags:nil macros:nil @@ -1089,7 +1089,7 @@ LASSIGN (_lambdaListName, [_tail car]); newContext = [MLKLexicalContext contextWithParent:_context - variables:[NSSet setWithObject:_lambdaListName] + variables:[NSSet setWithObject:nullify(_lambdaListName)] functions:nil goTags:nil macros:nil -- cgit v1.2.3