From 45da8d6c33cbac7c7d6acb02a9f484457d174ff1 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 14 May 2008 19:22:41 -0500
Subject: [PATCH] io.unix.sockets: Clean up setup-receive

---
 extra/io/unix/sockets/sockets.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extra/io/unix/sockets/sockets.factor b/extra/io/unix/sockets/sockets.factor
index 51b198bdc0..273b3f6c11 100755
--- a/extra/io/unix/sockets/sockets.factor
+++ b/extra/io/unix/sockets/sockets.factor
@@ -107,9 +107,8 @@ SYMBOL: receive-buffer
 packet-size <byte-array> receive-buffer set-global
 
 : setup-receive ( port -- s buffer len flags from fromlen )
-    dup port-handle
-    swap datagram-port-addr sockaddr-type
-    dup <c-object> swap heap-size <int>
+    [ handle>> ] [ addr>> sockaddr-type ] bi
+    [ <c-object> ] [ heap-size <int> ] bi
     >r >r receive-buffer get-global packet-size 0 r> r> ;
 
 : do-receive ( s buffer len flags from fromlen -- sockaddr data )