From 377180baf6fd25d8174c226092f545e26c710c52 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 7 Jul 2014 21:44:40 -0500
Subject: [PATCH] io.sockets.secure.windows: Fix using, remove duplication.

---
 basis/io/sockets/secure/windows/windows.factor | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/basis/io/sockets/secure/windows/windows.factor b/basis/io/sockets/secure/windows/windows.factor
index e7309e3d06..95525a170e 100644
--- a/basis/io/sockets/secure/windows/windows.factor
+++ b/basis/io/sockets/secure/windows/windows.factor
@@ -1,6 +1,6 @@
 USING: accessors alien io.ports io.sockets.private io.sockets.secure
 io.sockets.secure.openssl io.sockets.windows kernel locals openssl
-openssl.libcrypto openssl.libssl windows.winsock ;
+openssl.libcrypto openssl.libssl windows.winsock system ;
 IN: io.sockets.secure.windows
 
 M: openssl ssl-supported? t ;
@@ -8,12 +8,6 @@ M: openssl ssl-certificate-verification-supported? f ;
 
 M: windows socket-handle handle>> alien-address ;
 
-: <ssl-socket> ( winsock -- ssl )
-    [
-        handle>> alien-address BIO_NOCLOSE BIO_new_socket dup ssl-error
-    ] keep <ssl-handle>
-    [ handle>> swap dup SSL_set_bio ] keep ;
-
 M: secure ((client)) ( addrspec -- handle )
     addrspec>> ((client)) <ssl-socket> ;