From b54da0f22bfe020897cf3e3572f17deb588f0f95 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 13 Mar 2018 13:53:26 -0700
Subject: [PATCH] io.backend.unix: fix handle-length on stdin.

---
 basis/io/backend/unix/unix.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index 2468c53e58..e13d87d153 100755
--- 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 ;