io.unix.sockets: cleanup accept-sockaddr

2008-05-12 14:09:24 -05:00 · 2008-05-12 14:09:24 -05:00 · 2e4a171fcb
parent cc390dd53a
commit 2e4a171fcb
1 changed files with 1 additions and 1 deletions
--- a/extra/io/unix/sockets/sockets.factor
+++ b/extra/io/unix/sockets/sockets.factor
@ -67,7 +67,7 @@ TUPLE: accept-task < input-task ;
    accept-task <io-task> ;

 : accept-sockaddr ( port -- fd sockaddr )
-    dup port-handle swap server-port-addr sockaddr-type
+    [ handle>> ] [ addr>> sockaddr-type ] bi
    dup <c-object> [ swap heap-size <int> accept ] keep ; inline

 : do-accept ( port fd sockaddr -- )