From 0feb833d22d4998773fe045f04cfbe1afebf82b9 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 19 Jun 2010 15:20:02 +0200 Subject: [PATCH] don't unconditionally restore signals in ensure-batch-mode! * module/ice-9/boot-9.scm (ensure-batch-mode!): Remove comment about restoring signals, and that behavior, as it was making popen.test hang. I should investigate further, but instead I'm just going to hope that this fixes it. --- module/ice-9/boot-9.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 3928d1ec8..89abc3664 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -2677,15 +2677,13 @@ module '(ice-9 q) '(make-q q-length))}." ;; `batch-mode?' returns #f during their extent. ;; ;; Programs can re-enter batch mode, for example after a fork, by calling -;; `ensure-batch-mode!'. This will also restore signal handlers. It's not a -;; great interface, though; it would be better to abort to the outermost prompt, -;; and call a thunk there. +;; `ensure-batch-mode!'. It's not a great interface, though; it would be better +;; to abort to the outermost prompt, and call a thunk there. (define *repl-level* (make-fluid)) (define (batch-mode?) (negative? (or (fluid-ref *repl-level*) -1))) (define (ensure-batch-mode!) - (fluid-set! *repl-level* #f) - (restore-signals)) + (fluid-set! *repl-level* #f)) (define (quit . args) (apply throw 'quit args)) -- 2.20.1