use radix literals

[factor.git] / basis / io / sockets / windows / windows.factor

diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index 15b7521a92d31ddf0d29162a129e404e17a8c160..39d4310bb24af961a013efd17620e2db10ff43d1 100755 (executable)
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -72,7 +72,7 @@ M: object ((client)) ( addrspec -- handle )
 \r
 ! http://support.microsoft.com/kb/127144\r
 ! NOTE: Possibly tweak this because of SYN flood attacks\r
-: listen-backlog ( -- n ) HEX: 7fffffff ; inline\r
+: listen-backlog ( -- n ) 0x7fffffff ; inline\r
 \r
 M: object (server) ( addrspec -- handle )\r
     [\r
@@ -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