From f849e41c7ec8e54eaed2a55ae5b182858278d81f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 10 Dec 2008 20:23:37 -0600 Subject: [PATCH] Fix select MX --- basis/io/unix/select/select.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/io/unix/select/select.factor b/basis/io/unix/select/select.factor index 27231aee5a..a6b61001a6 100644 --- a/basis/io/unix/select/select.factor +++ b/basis/io/unix/select/select.factor @@ -50,7 +50,7 @@ TUPLE: select-mx < mx read-fdset write-fdset ; M:: select-mx wait-for-events ( us mx -- ) mx - [ init-fdsets us dup [ make-timeval ] when select multiplexer-error ] + [ init-fdsets us dup [ make-timeval ] when select multiplexer-error drop ] [ [ read-fdset/tasks ] keep [ input-available ] check-fdset ] [ [ write-fdset/tasks ] keep [ output-available ] check-fdset ] tri ;