check-log-message ( msg word level -- msg word level )

Vocabulary

logging

Inputs

msg	an object
word	an object
level	an object

Outputs

msg	an object
word	an object
level	an object

Definition

USING: kernel strings words ;

IN: logging

: check-log-message ( msg word level -- msg word level )
    3dup [ string? ] [ word? ] [ word? ] tri* and and
    [ bad-log-message-parameters ] unless ; inline