051-shell-signal.scm (350B)
1 ; Pin the signal-termination branch of decode-wait-status. Run a child 2 ; that SIGKILLs itself; the prelude's wait should report (#t . (+ 128 9)). 3 ; Together with 45/56 (exit-code branch) this covers both branches of 4 ; decode-wait-status without any raw sys-* poking. 5 (define r (run "/bin/sh" "-c" "kill -9 $$")) 6 (if (car r) (exit (cdr r)) (exit 99))