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

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index 2468c53e58addad7154f3ee3009e16dc27bcaab4..e13d87d153b582946a64c7c8a47e62ca87e8f306 100755 (executable)
--- 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 ;