split-subsystem% ( vocabs -- )

Vocabulary

format-using

Inputs

vocabs

an object

Outputs

None

Definition

USING: arrays kernel make math sequences ;

IN: format-using

: split-subsystem% ( vocabs -- )
    [ indent-length 1 - f ] dip [
        pick over length + 1 + dup too-long? [
            drop [ dupd 3array , ] dip
            [ length indent-length + ] keep 1array
        ] [ -rot suffix nipd ] if
    ] each dupd 3array , ;