io.sockets.windows: plug receive-from memory leak

Should fix #387.

diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index 15b7521a92d31ddf0d29162a129e404e17a8c160..6b0fa1da4727f7630491f8efb21d2e24ed46301a 100755 (executable)
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -213,7 +213,7 @@ TUPLE: WSARecvFrom-args port
 \r
 :: make-receive-buffer ( n buf -- buf' WSABUF )\r
     buf >c-ptr pinned-alien?\r
-    [ buf ] [ n malloc [ buf n memcpy ] keep ] if :> buf'\r
+    [ buf ] [ n malloc &free [ buf n memcpy ] keep ] if :> buf'\r
     buf'\r
     WSABUF malloc-struct &free\r
         n >>len\r