Fix the error the right way.

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index 8203837b39795c2750430054ae28620e74dc0dc0..03d8db96fbc84b8eb6fb9a214c2d065451dffee2 100644 (file)
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.53 1993/09/09 18:16:08 gjr Exp $
+$Id: lookup.c,v 9.54 1993/09/09 18:17:46 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2330,9 +2330,9 @@ DEFUN (compiler_recache_slot,
      This makes cache_reference_end do the right thing.
    */
   clone = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE));
-  tail = *slot;
+  tail = * slot;
 
-  for (pair = (* cell); pair != ((SCHEME_OBJECT) NULL); pair = (* cell))
+  for (pair = (* cell); pair != EMPTY_LIST; pair = (* cell))
   {
     weak_pair = (FAST_PAIR_CAR (pair));
     result = (cache_reference_end (kind, extension, clone,
@@ -2348,11 +2348,11 @@ DEFUN (compiler_recache_slot,
       return (result);
     }
 
-    *slot = pair;
+    * slot = pair;
     slot = (PAIR_CDR_LOC (pair));
-    *cell = *slot;
+    * cell = * slot;
   }
-  *slot = tail;
+  * slot = tail;
   return (PRIM_DONE);
 }
 \f

diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index 8203837b39795c2750430054ae28620e74dc0dc0..03d8db96fbc84b8eb6fb9a214c2d065451dffee2 100644 (file)
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: lookup.c,v 9.53 1993/09/09 18:16:08 gjr Exp $
+$Id: lookup.c,v 9.54 1993/09/09 18:17:46 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -2330,9 +2330,9 @@ DEFUN (compiler_recache_slot,
      This makes cache_reference_end do the right thing.
    */
   clone = (FAST_MEMORY_REF (extension, TRAP_EXTENSION_CLONE));
-  tail = *slot;
+  tail = * slot;
 
-  for (pair = (* cell); pair != ((SCHEME_OBJECT) NULL); pair = (* cell))
+  for (pair = (* cell); pair != EMPTY_LIST; pair = (* cell))
   {
     weak_pair = (FAST_PAIR_CAR (pair));
     result = (cache_reference_end (kind, extension, clone,
@@ -2348,11 +2348,11 @@ DEFUN (compiler_recache_slot,
       return (result);
     }
 
-    *slot = pair;
+    * slot = pair;
     slot = (PAIR_CDR_LOC (pair));
-    *cell = *slot;
+    * cell = * slot;
   }
-  *slot = tail;
+  * slot = tail;
   return (PRIM_DONE);
 }
 \f