make-input/output-secure ( input output -- )

Vocabulary

io.sockets.secure.openssl

Inputs

input	an object
output	an object

Outputs

None

Definition

USING: accessors io.sockets.secure kernel ;

IN: io.sockets.secure.openssl

: make-input/output-secure ( input output -- )
    dup handle>> non-ssl-socket?
    [ upgrade-on-non-socket ] unless
    [ f <ssl-socket> ] change-handle handle>> >>handle drop ;