diff --git a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor index 6bc1a0aad3..2bf03ec9a1 100644 --- a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor +++ b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor @@ -12,9 +12,8 @@ TUPLE: run-loop-mx kqueue-mx ; : file-descriptor-callback ( -- callback ) void { CFFileDescriptorRef CFOptionFlags void* } cdecl [ - 2drop + 3drop 0 mx get-global kqueue-mx>> wait-for-events - enable-all-callbacks reset-run-loop yield ] alien-callback ;