steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.backend.unix: { fixnum } read will be a { fixnum } .

db4
John Benediktsson 2014-11-20 13:23:53 -08:00
parent 46174ab748
commit 0a31a7c17a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/backend/unix/unix.factor
View File

@ -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+ ?