summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-09-02 18:43:31 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-09-02 18:43:31 +0200
commitfbb077569838b79f9232cb0c50c5f8721e8a822a (patch)
tree1258cdef66d9a9a512c8bcccfc73e7e4b7fb05c4
parent34682b0b087a9ced1f23a91f67167f71f304a4a8 (diff)
MLKForm class cluster: Handle NIL as a variable name correctly.
-rw-r--r--MLKForm.m6
1 files changed, 3 insertions, 3 deletions
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