diff --git a/extra/io/unix/sockets/sockets.factor b/extra/io/unix/sockets/sockets.factor index 741e10f7a6..ba0dedf0cc 100755 --- a/extra/io/unix/sockets/sockets.factor +++ b/extra/io/unix/sockets/sockets.factor @@ -71,7 +71,7 @@ TUPLE: accept-task < input-task ; dup [ swap heap-size accept ] keep ; inline : do-accept ( port fd sockaddr -- ) - swapd over addr>> parse-sockaddr >>client-addr (>>client) ; + swapd over addr>> parse-sockaddr >>client-addr (>>client) ; M: accept-task do-io-task io-task-port dup accept-sockaddr