 
 :: ?flag ( n mask symbol -- n )
     n mask bitand 0 > [ symbol , ] when n ;
+
+[ start-signal-pipe-thread ] "io.backend.unix:signal-pipe-thread" add-startup-hook

make io.timeouts io.encodings.utf8 destructors
destructors.private accessors summary combinators locals
unix.time unix.types fry io.backend.unix.multiplexers
classes.struct ;
QUALIFIED: io
IN: io.backend.unix


        data-read-fd <fd> >>data ;

: signal-pipe-fd ( -- n )
    OBJ-SIGNAL-PIPE special-object ; inline

: start-signal-pipe-thread ( -- )
    signal-pipe-fd [ <fd> init-fd <input-port>
        '[ [ 4 _ io:stream-read ] loop ] "Signals" spawn drop
    ] when* ;

M: unix init-stdio
    <stdin> <input-port>
