stack>message ( obj -- inputs>message )

Vocabulary

logging.private

Inputs

obj

an object

Outputs

inputs>message

an object

Definition

USING: arrays kernel namespaces prettyprint prettyprint.config
sequences strings ;

IN: logging.private

: stack>message ( obj -- inputs>message )
    dup array? [ dup length 1 = [ first ] when ] when
    dup string? [
        [
            boa-tuples? on string-limit? off 1 line-limit set
            3 nesting-limit set 0 margin set unparse
        ] with-scope
    ] unless ;