] when ;
: spawn-process ( process -- * )
- [ setup-priority ] [ 250 _exit ] recover
- [ setup-redirection ] [ 251 _exit ] recover
- [ current-directory get absolute-path cd ] [ 252 _exit ] recover
- [ setup-environment ] [ 253 _exit ] recover
- [ get-arguments exec-args-with-path ] [ 254 _exit ] recover
- 255 _exit ;
+ [ setup-priority ] [ 2drop 250 _exit ] recover
+ [ setup-redirection ] [ 2drop 251 _exit ] recover
+ [ current-directory get absolute-path cd ] [ 2drop 252 _exit ] recover
+ [ setup-environment ] [ 2drop 253 _exit ] recover
+ [ get-arguments exec-args-with-path ] [ 2drop 254 _exit ] recover
+ 255 _exit
+ f throw ;
M: unix current-process-handle ( -- handle ) getpid ;