fix kqueue

Doug Coleman 2009-08-30 21:57:33 -05:00
parent b286a4ac72
commit 89ed19bbfb
1 changed files with 1 additions and 1 deletions

View File

@ -70,7 +70,7 @@ M: kqueue-mx remove-output-callbacks ( fd mx -- seq )
: handle-kevents ( mx n -- )
[ dup events>> ] dip head-slice
[ \ kevent memory>struct handle-kevent ] with each ;
[ handle-kevent ] with each ;
M: kqueue-mx wait-for-events ( us mx -- )
swap dup [ make-timespec ] when