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 ;