steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.sockets.secure.windows: Fix using, remove duplication.

db4
Doug Coleman 2014-07-07 21:44:40 -05:00
parent 59c5373263
commit 377180baf6
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/io/sockets/secure/windows/windows.factor
View File

@ -1,6 +1,6 @@
USING: accessors alien io.ports io.sockets.private io.sockets.secure USING: accessors alien io.ports io.sockets.private io.sockets.secure
io.sockets.secure.openssl io.sockets.windows kernel locals openssl 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 IN: io.sockets.secure.windows
M: openssl ssl-supported? t ; M: openssl ssl-supported? t ;
@ -8,12 +8,6 @@ M: openssl ssl-certificate-verification-supported? f ;
M: windows socket-handle handle>> alien-address ; 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 ) M: secure ((client)) ( addrspec -- handle )
addrspec>> ((client)) <ssl-socket> ; addrspec>> ((client)) <ssl-socket> ;