From 0c83995f62ade144ef56a20ba17a35028d3b1ec3 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 12 May 2008 18:39:45 -0500
Subject: [PATCH] io.unix.sockets: cleanup do-accept
---
extra/io/unix/sockets/sockets.factor | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/extra/io/unix/sockets/sockets.factor b/extra/io/unix/sockets/sockets.factor
index c9fc9905a8..741e10f7a6 100755
--- a/extra/io/unix/sockets/sockets.factor
+++ b/extra/io/unix/sockets/sockets.factor
@@ -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