with-log-root ( path quot -- )

Vocabulary

logging.server

Inputs

path	an object
quot	an object

Outputs

None

Definition

USING: continuations kernel namespaces ;

IN: logging.server

:: with-log-root ( path quot -- )
    [ close-log-streams path \ log-root set-global quot call ]
    \ log-root get-global
    [ \ log-root set-global close-log-streams ] curry finally ;
    inline