diff --git a/basis/io/backend/unix/unix.factor b/basis/io/backend/unix/unix.factor index 9f5c4328d8..dc5da7e560 100755 --- a/basis/io/backend/unix/unix.factor +++ b/basis/io/backend/unix/unix.factor @@ -7,7 +7,7 @@ io.encodings math.parser continuations system libc namespaces make io.timeouts io.encodings.utf8 destructors destructors.private accessors summary combinators locals unix.time unix.types fry io.backend.unix.multiplexers -classes.struct ; +classes.struct hints ; QUALIFIED: io IN: io.backend.unix @@ -107,6 +107,9 @@ M: fd refill [ (io-error) ] } cond ; +HINTS: M\ fd refill + { buffered-port fd } ; + M: unix (wait-to-read) ( port -- ) dup dup handle>> dup check-disposed refill dup