From 0a31a7c17a02e219257f3a5aae10f0f1620a4ccf Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 20 Nov 2014 13:23:53 -0800
Subject: [PATCH] io.backend.unix: { fixnum } read will be a { fixnum } .

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

diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor
index c9b6ae5e00..da82f2eec3 100755
--- a/basis/io/backend/unix/unix.factor
+++ b/basis/io/backend/unix/unix.factor
@@ -91,7 +91,7 @@ ERROR: not-a-buffered-port port ;
 M: fd refill
     [ check-buffered-port buffer>> ] [ fd>> ] bi*
     over [ buffer-end ] [ buffer-capacity ] bi read
-    {
+    { fixnum } declare {
         { [ dup 0 >= ] [ swap buffer+ f ] }
         { [ errno EINTR = ] [ 2drop +retry+ ] }
         { [ errno EAGAIN = ] [ 2drop +input+ ] }
@@ -107,7 +107,7 @@ M: unix (wait-to-read) ( port -- )
 M: fd drain
     [ check-buffered-port buffer>> ] [ fd>> ] bi*
     over [ buffer@ ] [ buffer-length ] bi write
-    {
+    { fixnum } declare {
         { [ dup 0 >= ] [
             over buffer-consume
             buffer-empty? f +output+ ?