From 85c1fb43fb8471c7b8c184be86359cda35cb6511 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Mon, 8 Apr 2013 16:17:12 -0700 Subject: [PATCH] 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 ...)..." --- src/runtime/gc.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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)) -- 2.25.1