From b355ce55a5312df54a58e824ee8f75b61a419012 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 9 Sep 1993 18:17:46 +0000 Subject: [PATCH] Fix the error the right way. --- v7/src/microcode/lookup.c | 12 ++++++------ v8/src/microcode/lookup.c | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) 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); } -- 2.25.1