with-existing-secure-context ( threaded-server quot -- )

Vocabulary

io.servers.private

Inputs

threaded-server	an object
quot	an object

Outputs

None

Definition

USING: accessors io.sockets.secure kernel namespaces ;

IN: io.servers.private

: with-existing-secure-context ( threaded-server quot -- )
    [ secure-context>> secure-context ] dip with-variable ;
    inline