045-shell-spawn.scm (257B)
1 ; End-to-end: prelude run/spawn fork-exec /bin/true and decode the 2 ; child's exit. Together with 51 (signal branch) this covers both 3 ; halves of decode-wait-status without raw sys-* poking. 4 (define r (run "/bin/true")) 5 (if (car r) (exit (cdr r)) (exit 99))