write-message ( msg word-name level -- )

Vocabulary

logging.server

Inputs

msg	an object
word-name	an object
level	an object

Outputs

None

Definition

USING: io sequences ;

IN: logging.server

:: write-message ( msg word-name level -- )
    msg harvest [
        timestamp-header.
        [ multiline-header. ]
        [ level write bl word-name write ": " write print ]
        interleave
    ] unless-empty ;