log-server ( -- )

Vocabulary

logging.server

Inputs

None

Outputs

None

Definition

USING: continuations debugger namespaces threads ;

IN: logging.server

: log-server ( -- )
    [
        init-namestack
        [ log-server-loop ] [ error. (close-logs) ] recover t
    ] "Log server" spawn-server "log-server" set-global ;