create-secure-context ( threaded-server -- threaded-server )

Vocabulary

io.servers.private

Inputs

threaded-server

an object

Outputs

threaded-server

an object

Definition

USING: accessors io.sockets.secure kernel ;

IN: io.servers.private

: create-secure-context
    ( threaded-server -- threaded-server )
    dup secure>> ssl-supported? and
    [ dup secure-config>> <secure-context> >>secure-context ]
    when ;