From 975487368a75e6762fa4a7a2721595ba253bd420 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 17 Aug 2008 19:52:16 +0200
Subject: MLKForm class cluster: Fix SETQ and FSETQ (statement order in
 -complete method).

---
 MLKForm.m | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'MLKForm.m')

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];
     }
-- 
cgit v1.2.3