diff --git a/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor b/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor index cecf67ead5..67b7563e92 100644 --- a/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor +++ b/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor @@ -27,7 +27,7 @@ M: kqueue-mx dispose* fd>> close-file ; swap >>ident ; : register-kevent ( kevent mx -- ) - fd>> swap 1 f 0 f kevent io-error ; + fd>> swap 1 f 0 f kevent-func io-error ; M: kqueue-mx add-input-callback ( thread fd mx -- ) [ call-next-method ] [ @@ -61,7 +61,7 @@ M: kqueue-mx remove-output-callbacks ( fd mx -- seq ) [ [ fd>> f 0 ] [ events>> dup length ] bi - ] dip kevent multiplexer-error ; + ] dip kevent-func multiplexer-error ; : handle-kevent ( mx kevent -- ) [ ident>> swap ] [ filter>> ] bi { diff --git a/basis/unix/kqueue/macosx/macosx.factor b/basis/unix/kqueue/macosx/macosx.factor index f0dc8c8f5e..d879026bbf 100644 --- a/basis/unix/kqueue/macosx/macosx.factor +++ b/basis/unix/kqueue/macosx/macosx.factor @@ -9,7 +9,7 @@ STRUCT: kevent { data long } { udata void* } ; -FUNCTION: int kevent ( int kq, kevent* changelist, int nchanges, kevent* eventlist, int nevents, timespec* timeout ) ; +FUNCTION-ALIAS: kevent-func int kevent ( int kq, kevent* changelist, int nchanges, kevent* eventlist, int nevents, timespec* timeout ) ; CONSTANT: EVFILT_READ -1 CONSTANT: EVFILT_WRITE -2