io.launcher.unix: cleanup find-process.

factor-shell
John Benediktsson 2018-01-20 13:33:16 -08:00
parent cb89a14ed6
commit 0eb4fc2951
1 changed files with 3 additions and 4 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data assocs combinators
continuations environment io.backend io.backend.unix
continuations environment fry io.backend io.backend.unix
io.files.private io.files.unix io.launcher io.launcher.private
io.pathnames io.ports kernel libc math namespaces sequences
simple-tokenizer strings system unix unix.ffi unix.process ;
@ -92,7 +92,7 @@ IN: io.launcher.unix
M: unix (current-process) ( -- handle ) getpid ;
M: unix (run-process) ( process -- pid )
[ spawn-process ] curry [ ] with-fork ;
'[ _ spawn-process ] [ ] with-fork ;
M: unix (kill-process) ( process -- )
[ handle>> SIGTERM ] [ group>> ] bi {
@ -102,8 +102,7 @@ M: unix (kill-process) ( process -- )
} case io-error ;
: find-process ( handle -- process )
processes get swap [ nip swap handle>> = ] curry
assoc-find 2drop ;
processes get keys [ handle>> = ] with find nip ;
TUPLE: signal n ;