io.backend.unix: fix handle-length on stdin.

2018-03-13 13:53:26 -07:00 · 2018-03-13 13:53:26 -07:00 · b54da0f22b
parent 5c69396fb3
commit b54da0f22b
1 changed files with 2 additions and 0 deletions
--- a/basis/io/backend/unix/unix.factor
+++ b/basis/io/backend/unix/unix.factor
@ -173,6 +173,8 @@ M: stdin refill
 M: stdin cancel-operation
    [ size>> ] [ control>> ] bi [ cancel-operation ] bi@ ;

+M: stdin fd>> data>> handle-fd ; ! for handle-length
+
 : control-write-fd ( -- fd ) &: control_write uint deref ;

 : size-read-fd ( -- fd ) &: size_read uint deref ;