io.sockets.windows: get the handle from the handle.

2012-05-29 11:20:55 -07:00 · 2012-05-29 11:20:55 -07:00 · 2db76ac23c
parent 51fcae2d8b
commit 2db76ac23c
1 changed files with 1 additions and 1 deletions
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@ -9,7 +9,7 @@ FROM: namespaces => get ;
 IN: io.sockets.windows

 : set-socket-option ( handle level opt -- )
-    1 int <ref> dup byte-length setsockopt socket-error ;
+    [ handle>> ] 2dip 1 int <ref> dup byte-length setsockopt socket-error ;

 M: windows addrinfo-error ( n -- )
    winsock-return-check ;