From 7aa2bb3f302c46e6323bc29189b2ad629228f8b5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 16 May 2008 06:28:19 -0500
Subject: [PATCH] Fix Windows bootstrap
---
extra/io/windows/nt/sockets/sockets.factor | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/extra/io/windows/nt/sockets/sockets.factor b/extra/io/windows/nt/sockets/sockets.factor
index fcad915d94..c680d18077 100755
--- a/extra/io/windows/nt/sockets/sockets.factor
+++ b/extra/io/windows/nt/sockets/sockets.factor
@@ -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 )
[