From c447ca5427b95414def82f1f1148e455ec46cb5b Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 15 Sep 2010 21:49:01 -0700 Subject: [PATCH] io.backend.unix: remove dead code from bsd backend, fix select code --- basis/io/backend/unix/bsd/bsd.factor | 4 ---- basis/io/backend/unix/multiplexers/select/select.factor | 2 +- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/basis/io/backend/unix/bsd/bsd.factor b/basis/io/backend/unix/bsd/bsd.factor index e0a675a8fc..209d1ab1e0 100644 --- a/basis/io/backend/unix/bsd/bsd.factor +++ b/basis/io/backend/unix/bsd/bsd.factor @@ -7,7 +7,3 @@ IN: io.backend.unix.bsd M: bsd init-io ( -- ) mx set-global ; - -! M: bsd (monitor) ( path recursive? mailbox -- ) -! swap [ "Recursive kqueue monitors not supported" throw ] when -! ; diff --git a/basis/io/backend/unix/multiplexers/select/select.factor b/basis/io/backend/unix/multiplexers/select/select.factor index 5a3dab4dcc..2cf406a941 100644 --- a/basis/io/backend/unix/multiplexers/select/select.factor +++ b/basis/io/backend/unix/multiplexers/select/select.factor @@ -51,7 +51,7 @@ TUPLE: select-mx < mx read-fdset write-fdset ; M:: select-mx wait-for-events ( nanos mx -- ) mx - [ init-fdsets nanos 1000 /i dup [ make-timeval ] when select multiplexer-error drop ] + [ init-fdsets nanos dup [ 1000 /i make-timeval ] when select multiplexer-error drop ] [ [ read-fdset/tasks ] keep [ input-available ] check-fdset ] [ [ write-fdset/tasks ] keep [ output-available ] check-fdset ] tri ;