free-context ( ctx -- )

Vocabulary

io.sockets.secure.openssl

Inputs

ctx

an object

Outputs

None

Definition

USING: accessors assocs destructors kernel libc openssl.libssl
sequences ;

IN: io.sockets.secure.openssl

: free-context ( ctx -- )
    [
        [ aliens>> [ &free drop ] each ]
        [ sessions>> values [ SSL_SESSION_free ] each ]
        [ handle>> SSL_CTX_free ] tri
    ] with-destructors ;