syscall-error ( r -- event )

Vocabulary

io.sockets.secure.openssl

Inputs

r

an object

Outputs

event

an object

Definition

USING: combinators io.sockets.secure kernel libc math openssl
openssl.libcrypto ;

IN: io.sockets.secure.openssl

: syscall-error ( r -- event )
    ERR_get_error [
        {
            {
                -1
                [
                    errno ECONNRESET =
                    [ premature-close ] [ throw-errno ] if
                ]
            }
            { 0 [ f ] }
        } case
    ] [ nip (ssl-error) ] if-zero ;