]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/io/sockets/windows/windows.factor
Make sure io.backend.windows loads the implementations for the generics it defines...
[factor.git] / basis / io / sockets / windows / windows.factor
index 3d9b3a6e14c9e04ba98a108ded0f850edf11d3ae..d41240d1b3437f13cbaa4311b62cec59873d42d3 100755 (executable)
@@ -38,7 +38,7 @@ M: win32-socket dispose* ( stream -- )
     [ empty-sockaddr/size ] [ protocol-family ] bi pick family<< ;\r
 \r
 : opened-socket ( handle -- win32-socket )\r
-    <win32-socket> |dispose dup add-completion ;\r
+    <win32-socket> |dispose add-completion ;\r
 \r
 : open-socket ( addrspec type -- win32-socket )\r
     [ protocol-family ] dip\r