start-accept-loop ( threaded-server server -- )

Vocabulary

io.servers.private

Inputs

threaded-server	an object
server	an object

Outputs

None

Definition

USING: continuations generalizations kernel logging ;

IN: io.servers.private

: start-accept-loop ( threaded-server server -- )
    [
        2
        \ start-accept-loop
        \ NOTICE
        log-stack
        [ accept-loop ]
        curry
        with-existing-secure-context
    ] [ \ start-accept-loop log-error 2 ndrop ] recover ;