steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unix: don't hack _exit to have a terminating effect; just use FUNCTION:

release
Joe Groff 2010-04-14 22:04:04 -07:00
parent 343856307e
commit ba2fa96eeb
2 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/io/launcher/unix/unix.factor
View File

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

4
basis/unix/unix.factor
View File

@ -50,9 +50,7 @@ HOOK: open-file os ( path flags mode -- fd )
: close-file ( fd -- ) [ close ] unix-system-call drop ; : close-file ( fd -- ) [ close ] unix-system-call drop ;
: _exit ( status -- * ) FUNCTION: int _exit ( int status ) ;
#! We throw to give this a terminating stack effect.
int f "_exit" { int } alien-invoke "Exit failed" throw ;
M: unix open-file [ open ] unix-system-call ; M: unix open-file [ open ] unix-system-call ;