io.backend.unix.multiplexors.kqueue: change remove-output-callbacks

I think it should call-next-method before doing kevent

diff --git a/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor b/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor
index bbc6b383a4f3b3e13802f5ffd279ec2816b93184..c323888a69906893a7a7912f1a77da174e103029 100644 (file)
--- a/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor
+++ b/basis/io/backend/unix/multiplexers/kqueue/kqueue.factor
@@ -51,10 +51,10 @@ M: kqueue-mx remove-input-callbacks
 
 M: kqueue-mx remove-output-callbacks
     2dup writes>> key? [
-        [
+        [ call-next-method ] [
             [ EVFILT_WRITE EV_DELETE make-kevent ] dip
             register-kevent
-        ] [ call-next-method ] 2bi
+        ] 2bi
     ] [ 2drop f ] if ;
 
 : wait-kevent ( mx timespec -- n )