fix kqueue
parent
5c10f390c7
commit
d5a7dde7ee
|
@ -70,7 +70,7 @@ M: kqueue-mx remove-output-callbacks ( fd mx -- seq )
|
||||||
|
|
||||||
: handle-kevents ( mx n -- )
|
: handle-kevents ( mx n -- )
|
||||||
[ dup events>> ] dip head-slice
|
[ dup events>> ] dip head-slice
|
||||||
[ \ kevent memory>struct handle-kevent ] with each ;
|
[ handle-kevent ] with each ;
|
||||||
|
|
||||||
M: kqueue-mx wait-for-events ( us mx -- )
|
M: kqueue-mx wait-for-events ( us mx -- )
|
||||||
swap dup [ make-timespec ] when
|
swap dup [ make-timespec ] when
|
||||||
|
|
Loading…
Reference in New Issue