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

Should fix #387.
2011-11-11 17:56:04 -08:00 · 2011-11-11 17:56:04 -08:00 · 1c99568492
parent 69f35b36aa
commit 1c99568492
1 changed files with 1 additions and 1 deletions
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@ -213,7 +213,7 @@ TUPLE: WSARecvFrom-args port

 :: make-receive-buffer ( n buf -- buf' WSABUF )
    buf >c-ptr pinned-alien?
-    [ buf ] [ n malloc [ buf n memcpy ] keep ] if :> buf'
+    [ buf ] [ n malloc &free [ buf n memcpy ] keep ] if :> buf'
    buf'
    WSABUF malloc-struct &free
        n >>len