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 )