Fix with-fork stack effect
parent
1fd6e4ca34
commit
1a53979740
|
@ -31,7 +31,7 @@ USE: unix
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
: with-fork ( quot -- pid )
|
: with-fork ( child parent -- pid )
|
||||||
fork [ zero? -rot if ] keep ; inline
|
fork [ zero? -rot if ] keep ; inline
|
||||||
|
|
||||||
: prepare-execvp ( args -- cmd args )
|
: prepare-execvp ( args -- cmd args )
|
||||||
|
|
Loading…
Reference in New Issue