scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fork sets batch-mode in child only if there is a session.

This commit is contained in:
marting 2000-07-28 09:11:09 +00:00
parent e18688fc14
commit 04fc3b8b37
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scsh/scsh.scm
View File

@ -866,7 +866,9 @@
;; Child ;; Child
(lambda () ; Do all this outside the WITH-INTERRUPTS. (lambda () ; Do all this outside the WITH-INTERRUPTS.
; (set! reaped-procs '()) ; (set! reaped-procs '())
(if clear-interactive?
;;; There is no session if parent was started in batch-mode
(if (and (session-started?) clear-interactive?)
(set-batch-mode?! #t)) ; Children are non-interactive. (set-batch-mode?! #t)) ; Children are non-interactive.
(and (pair? maybe-thunk) (and (pair? maybe-thunk)
(call-terminally (car maybe-thunk)))) (call-terminally (car maybe-thunk))))