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 ed7f7bec00216b4923aed6849cdf1710410bde37..7fb8d0535dbf1d6012d9f1def9da0081c46eb9ce 100644 (file)
--- 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 eafdaf3168f5fa2926d08d72c38e9ac571f6bec9..08edcefa208209a378dfb421d630fbbde1191100 100644 (file)
--- 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