Don't forget to set `compiled_p' flag when compiled code is found.

diff --git a/v7/src/microcode/bintopsb.c b/v7/src/microcode/bintopsb.c
index c58a4a85b697fc6aaab6e7215723d752cc9b4f5e..5b5bf2190cf4bd076373963f66d32859c75fb40b 100644 (file)
--- a/v7/src/microcode/bintopsb.c
+++ b/v7/src/microcode/bintopsb.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/Attic/bintopsb.c,v 9.31 1987/11/23 05:11:12 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bintopsb.c,v 9.32 1988/01/04 18:58:17 cph Rel $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -892,6 +892,7 @@ Process_Area(Code, Area, Bound, Obj, FObj)
        break;
 
       case_compiled_entry_point:
+       compiled_p = true;
        if (!allow_compiled_p)
        {
          fprintf(stderr,

diff --git a/v8/src/microcode/bintopsb.c b/v8/src/microcode/bintopsb.c
index 3a2707f3ddde643b3ae2a7209e9144ce615bfe35..b7e06a95765c9d1f7f13055056898c9e0e8f0116 100644 (file)
--- a/v8/src/microcode/bintopsb.c
+++ b/v8/src/microcode/bintopsb.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/bintopsb.c,v 9.31 1987/11/23 05:11:12 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/bintopsb.c,v 9.32 1988/01/04 18:58:17 cph Rel $
  *
  * This File contains the code to translate internal format binary
  * files to portable format.
@@ -892,6 +892,7 @@ Process_Area(Code, Area, Bound, Obj, FObj)
        break;
 
       case_compiled_entry_point:
+       compiled_p = true;
        if (!allow_compiled_p)
        {
          fprintf(stderr,