io.sockets.secure.openssl: do-ssl-connect needs to call wait-for-fd

db4
Björn Lindqvist 2014-03-29 20:11:53 +01:00 committed by Doug Coleman
parent 58388f7c26
commit 4d8f3e8a78
1 changed files with 1 additions and 1 deletions

View File

@ -268,7 +268,7 @@ M: ssl-handle drain
: do-ssl-connect ( ssl-handle -- )
dup dup handle>> SSL_connect check-connect-response dup
[ dupd 2drop do-ssl-connect ] [ 2drop ] if ;
[ dupd wait-for-fd do-ssl-connect ] [ 2drop ] if ;
: resume-session ( ssl-handle ssl-session -- )
[ [ handle>> ] dip SSL_set_session ssl-error ]