Fix Windows bootstrap

db4
Slava Pestov 2008-05-16 06:28:19 -05:00
parent 1124d7e6ea
commit 7aa2bb3f30
1 changed files with 1 additions and 3 deletions

View File

@ -131,9 +131,7 @@ TUPLE: WSARecvFrom-args port
WSARecvFrom-args >tuple*< WSARecvFrom socket-error* ;
: parse-WSARecvFrom ( n WSARecvFrom -- packet sockaddr )
[ lpBuffers*>> WSABUF-buf swap memory>byte-array ]
[ lpFromLen*>> *int . ]
[ lpFrom*>> ] tri ;
[ lpBuffers*>> WSABUF-buf swap memory>byte-array ] [ lpFrom*>> ] bi ;
M: winnt (receive) ( datagram -- packet addrspec )
[