From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 21 Apr 1987 15:02:02 +0000 (+0000)
Subject: Change some error messages to go out to stderr.
X-Git-Tag: 20090517-FFI~13598
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0f6ceb07d899c12e50ab5f80c1646d72762255ef;p=mit-scheme.git

Change some error messages to go out to stderr.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index ec85344d7..f72416df7 100644
--- 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 c8cf5f2cf..808857373 100644
--- 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();