From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 9 Sep 1993 18:17:46 +0000 (+0000)
Subject: Fix the error the right way.
X-Git-Tag: 20090517-FFI~7880
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b355ce55a5312df54a58e824ee8f75b61a419012;p=mit-scheme.git

Fix the error the right way.
---

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index 8203837b3..03d8db96f 100644
--- 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);
 }
 
diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index 8203837b3..03d8db96f 100644
--- 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);
 }