summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 19:52:16 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-17 22:05:13 +0200
commit975487368a75e6762fa4a7a2721595ba253bd420 (patch)
tree9eba14341134ae558492a28c726c8da43b560093
parent650385128d0e31777e51d2bc9c1f79f15e966cd8 (diff)
MLKForm class cluster: Fix SETQ and FSETQ (statement order in -complete method).
-rw-r--r--MLKForm.m10
1 files changed, 6 insertions, 4 deletions
diff --git a/MLKForm.m b/MLKForm.m
index acf204e..955aa63 100644
--- a/MLKForm.m
+++ b/MLKForm.m
@@ -734,16 +734,17 @@
@implementation MLKSetQForm
-(id) complete
{
- id rest = _tail;
+ id rest;
NSMutableArray *variables, *valueForms;
self = [super complete];
+ rest = _tail;
variables = [NSMutableArray array];
valueForms = [NSMutableArray array];
while (rest)
{
- [variables addObject:[rest car]];
+ [variables addObject:nullify([rest car])];
[valueForms addObject:MAKE_FORM([[rest cdr] car])];
rest = [[rest cdr] cdr];
}
@@ -763,16 +764,17 @@
@implementation MLKFSetQForm
-(id) complete
{
- id rest = _tail;
+ id rest;
NSMutableArray *functionNames, *valueForms;
self = [super complete];
+ rest = _tail;
functionNames = [NSMutableArray array];
valueForms = [NSMutableArray array];
while (rest)
{
- [functionNames addObject:[rest car]];
+ [functionNames addObject:nullify([rest car])];
[valueForms addObject:MAKE_FORM([[rest cdr] car])];
rest = [[rest cdr] cdr];
}