xxx! Ignore signal stuff on Mes.

XXX: This is for Mes.  It might be possible to move forward with
broken signal semantics.  We need to test to see if it is worth it
to fix this.

* gash/built-ins/trap.scm (main) [mes]: Do not call 'sigaction'.
* gash/shell.scm (%subshell) [mes]: Do not call 'restore-signals'.
This commit is contained in:
Timothy Sample 2022-12-22 13:35:50 -06:00
parent 06dad4deba
commit f514554aee
2 changed files with 6 additions and 2 deletions

View File

@ -62,7 +62,9 @@
(for-each (lambda (condition)
(match (condition->signum condition)
(0 (set-atexit! handler))
(n (sigaction n handler))))
(n (cond-expand
(mes #f)
(else (sigaction n handler))))))
conditions))
EXIT_SUCCESS)
(_ (format (current-error-port)

View File

@ -273,7 +273,9 @@ process."
(0 (dynamic-wind
(lambda () #t)
(lambda ()
(restore-signals)
(cond-expand
(mes #f)
(else (restore-signals)))
(set-atexit! #f)
;; We need to preserve the status given to 'exit', so we
;; catch the 'quit' key here.