clear-ctx-flag ( ctx flag -- )


Vocabulary
io.sockets.secure.openssl

Inputs
ctxan object
flagan object


Outputs
None

Definition
USING: accessors kernel math openssl openssl.libssl ;

IN: io.sockets.secure.openssl

: clear-ctx-flag ( ctx flag -- )
[ handle>> ] dip
[ [ SSL_CTX_get_options ] dip bitnot bitand ]
[ drop swap SSL_CTX_set_options ssl-error ] 2bi ;