steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.unix.sockets: cleanup do-accept

db4
Eduardo Cavazos 2008-05-12 18:39:45 -05:00
parent d1bae00e8a
commit 0c83995f62
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/io/unix/sockets/sockets.factor
View File

@ -71,10 +71,7 @@ TUPLE: accept-task < input-task ;
dup <c-object> [ swap heap-size <int> accept ] keep ; inline
: do-accept ( port fd sockaddr -- )
rot
[ server-port-addr parse-sockaddr ] keep
[ set-server-port-client-addr ] keep
set-server-port-client ;
swapd over addr>> parse-sockaddr >>client-addr (>>client) ;
M: accept-task do-io-task
io-task-port dup accept-sockaddr