add-multiline ( line -- )

Vocabulary

logging.parser

Inputs

line

an object

Outputs

None

Definition

USING: accessors io kernel make namespaces sequences ;

IN: logging.parser

: add-multiline ( line -- )
    building get empty?
    [ "Warning: log begins with multiline entry" print drop ]
    [ message>> first building get last message>> push ] if ;