pprint-line ( seq -- )

Vocabulary

editors

Inputs

seq

an object

Outputs

None

Definition

USING: io kernel sequences strings ;

IN: editors

: pprint-line ( seq -- )
    [
        dup string?
        [ print ] [
            unclip-last
            [ [ write-pprint ] each ] [ print-pprint ] bi*
        ] if
    ] unless-empty ; inline