Change some error messages to go out to stderr.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index ec85344d72ead4785b1e6e7269656691af27e194..f72416df7dc95d674e0bf70e9ccd015bc6498631 100644 (file)
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.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/interp.c,v 9.23 1987/04/16 02:24:28 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.24 1987/04/21 15:02:02 cph Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -1527,11 +1527,13 @@ return_from_compiled_code:
     case RC_NORMAL_GC_DONE:
       End_GC_Hook();
       if (GC_Check(GC_Space_Needed))
-      { printf("\nGC just ended.  The free pointer is at 0x%x, the top of this heap\n",
-              Free);
-       printf("is at 0x%x, and we are trying to cons 0x%x objects.  Dead!\n",
-              MemTop, GC_Space_Needed);
-       Microcode_Termination(TERM_EXIT);
+      { fprintf(stderr,
+               "\nGC just ended.  The free pointer is at 0x%x, the top of this heap\n",
+               Free);
+       fprintf(stderr,
+               "is at 0x%x, and we are trying to cons 0x%x objects.  Dead!\n",
+               MemTop, GC_Space_Needed);
+       Microcode_Termination(TERM_NO_SPACE);
       }
       GC_Space_Needed = 0;
       Val = Fetch_Expression();

diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index c8cf5f2cf94b7a99dca59f8cbaf508ad0c948fab..808857373d5916f0365eb693ca754a0f1eb4d37a 100644 (file)
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.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/interp.c,v 9.23 1987/04/16 02:24:28 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.24 1987/04/21 15:02:02 cph Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -1527,11 +1527,13 @@ return_from_compiled_code:
     case RC_NORMAL_GC_DONE:
       End_GC_Hook();
       if (GC_Check(GC_Space_Needed))
-      { printf("\nGC just ended.  The free pointer is at 0x%x, the top of this heap\n",
-              Free);
-       printf("is at 0x%x, and we are trying to cons 0x%x objects.  Dead!\n",
-              MemTop, GC_Space_Needed);
-       Microcode_Termination(TERM_EXIT);
+      { fprintf(stderr,
+               "\nGC just ended.  The free pointer is at 0x%x, the top of this heap\n",
+               Free);
+       fprintf(stderr,
+               "is at 0x%x, and we are trying to cons 0x%x objects.  Dead!\n",
+               MemTop, GC_Space_Needed);
+       Microcode_Termination(TERM_NO_SPACE);
       }
       GC_Space_Needed = 0;
       Val = Fetch_Expression();