write-priority ( level -- )

Vocabulary

syslog.private

Inputs

level

an object

Outputs

None

Definition

USING: io math math.parser namespaces syslog ;

IN: syslog.private

: write-priority ( level -- )
    "<" write syslog-facility get-global 8 * +
    number>string write ">" write ;