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

io.unix.sockets: Clean up setup-receive

db4
Eduardo Cavazos 2008-05-14 19:22:41 -05:00
parent 09f4e4b032
commit 45da8d6c33
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -107,9 +107,8 @@ SYMBOL: receive-buffer
packet-size <byte-array> receive-buffer set-global packet-size <byte-array> receive-buffer set-global
: setup-receive ( port -- s buffer len flags from fromlen ) : setup-receive ( port -- s buffer len flags from fromlen )
dup port-handle [ handle>> ] [ addr>> sockaddr-type ] bi
swap datagram-port-addr sockaddr-type [ <c-object> ] [ heap-size <int> ] bi
dup <c-object> swap heap-size <int>
>r >r receive-buffer get-global packet-size 0 r> r> ; >r >r receive-buffer get-global packet-size 0 r> r> ;
: do-receive ( s buffer len flags from fromlen -- sockaddr data ) : do-receive ( s buffer len flags from fromlen -- sockaddr data )