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

unix.process: use if-zero instead of re-inventing it

release
Slava Pestov 2010-04-14 22:45:30 -07:00
parent 6556311115
commit aaacd2a349
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/unix/process/process.factor
View File

@ -36,8 +36,7 @@ FUNCTION: int execve ( c-string path, c-string* argv, c-string* envp ) ;
[ [ first ] [ ] bi ] dip exec-with-env ; [ [ first ] [ ] bi ] dip exec-with-env ;
: with-fork ( child parent -- ) : with-fork ( child parent -- )
[ [ fork-process dup zero? ] dip '[ drop @ ] ] dip [ fork-process ] 2dip if-zero ; inline
if ; inline
CONSTANT: SIGKILL 9 CONSTANT: SIGKILL 9
CONSTANT: SIGTERM 15 CONSTANT: SIGTERM 15