From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 8 Apr 2013 23:17:12 +0000 (-0700)
Subject: Undo commit 93d3d5c so that "out of memory" need not be The End...
X-Git-Tag: release-9.2.0~195
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=85c1fb4;p=mit-scheme.git

Undo commit 93d3d5c so that "out of memory" need not be The End...

...even in batch-mode.  The effect of 93d3d5c can be had more
elegantly, as pointed out in 6b3f8e0: "Always wrap stdin in a (begin
...)..."
---

diff --git a/src/runtime/gc.scm b/src/runtime/gc.scm
index 0080f91a0..d4a503878 100644
--- a/src/runtime/gc.scm
+++ b/src/runtime/gc.scm
@@ -159,13 +159,9 @@ USA.
 	    (cmdl-message/strings "Aborting!: out of memory")
 	    ;; Clean up whatever possible to avoid a reoccurrence.
 	    (cmdl-message/active
-	     (if (nearest-cmdl/batch-mode?)
-		 (lambda (port)
-		   (newline port)
-		   (%exit 1))
-		 (lambda (port)
-		   port
-		   (with-gc-notification! #t gc-clean))))))))
+	     (lambda (port)
+	       port
+	       (with-gc-notification! #t gc-clean)))))))
   ((ucode-primitive request-interrupts! 1) interrupt-bit/after-gc)
   (hook/gc-finish start-value space-remaining))