And indent...

db4
Eduardo Cavazos 2008-05-12 18:40:20 -05:00
parent 0c83995f62
commit 881739eda7
1 changed files with 1 additions and 1 deletions

View File

@ -71,7 +71,7 @@ TUPLE: accept-task < input-task ;
dup <c-object> [ swap heap-size <int> 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