From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 5 Oct 1987 21:48:32 +0000 (+0000)
Subject: Minor bug:
X-Git-Tag: 20090517-FFI~13087
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=793027ca58a942b8e4200762cd593010566b1f56;p=mit-scheme.git

Minor bug:
compiler_cache_assignment was passing the wrong kind argument to
compiler_cache_reference.
---

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index ed7f7bec0..7fb8d0535 100644
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.35 1987/10/05 19:25:33 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.36 1987/10/05 21:48:32 jinx Exp $
  *
  * This file contains symbol lookup and modification routines.  See
  * Hal Abelson for a paper describing and justifying the algorithm.
@@ -1915,7 +1915,7 @@ compiler_cache_assignment(name, block, offset)
 {
   return compiler_cache_reference(compiled_block_environment(block),
 				  name, block, offset,
-				  TRAP_REFERENCES_LOOKUP);
+				  TRAP_REFERENCES_ASSIGNMENT);
 }
 
 long
diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index eafdaf316..08edcefa2 100644
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.35 1987/10/05 19:25:33 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.36 1987/10/05 21:48:32 jinx Exp $
  *
  * This file contains symbol lookup and modification routines.  See
  * Hal Abelson for a paper describing and justifying the algorithm.
@@ -1915,7 +1915,7 @@ compiler_cache_assignment(name, block, offset)
 {
   return compiler_cache_reference(compiled_block_environment(block),
 				  name, block, offset,
-				  TRAP_REFERENCES_LOOKUP);
+				  TRAP_REFERENCES_ASSIGNMENT);
 }
 
 long