diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-09-02 18:43:31 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-09-02 18:43:31 +0200 |
| commit | fbb077569838b79f9232cb0c50c5f8721e8a822a (patch) | |
| tree | 1258cdef66d9a9a512c8bcccfc73e7e4b7fb05c4 | |
| parent | 34682b0b087a9ced1f23a91f67167f71f304a4a8 (diff) | |
MLKForm class cluster: Handle NIL as a variable name correctly.
| -rw-r--r-- | MLKForm.m | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |