io.sockets.secure.openssl: do-ssl-connect needs to call wait-for-fd
parent
58388f7c26
commit
4d8f3e8a78
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue