unix.process : new version of with-fork

2007-11-15 17:05:55 -06:00 · 2007-11-15 17:05:55 -06:00 · 3837e373f3
parent adc3a2228b
commit 3837e373f3
1 changed files with 1 additions and 2 deletions
--- a/extra/unix/process/process.factor
+++ b/extra/unix/process/process.factor
@ -27,5 +27,4 @@ IN: unix.process

 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

-: with-fork ( child parent -- pid ) fork [ zero? -rot if ] keep ; inline
-
+: with-fork ( child parent -- ) fork dup zero? -roll swap curry if ; inline