] with-destructors ;
: check-shutdown-response ( handle r -- event )
- #! We don't do two-step shutdown here because I couldn't
- #! figure out how to do it with non-blocking BIOs. Also, it
- #! seems that SSL_shutdown always returns 0 -- this sounds
- #! like a bug
+ ! We don't do two-step shutdown here because I couldn't
+ ! figure out how to do it with non-blocking BIOs. Also, it
+ ! seems that SSL_shutdown always returns 0 -- this sounds
+ ! like a bug
over handle>> over SSL_get_error
{
{ SSL_ERROR_NONE [ 2drop f ] }