format-using ( vocabs -- str )

Vocabulary

format-using

Inputs

vocabs

an object

Outputs

str

an object

Definition

USING: kernel sequences sorting ;

IN: format-using

: format-using ( vocabs -- str )
    dup length 1 =
    [ first "USE: " prepend ] [
        sort dup oneliner-length too-long?
        [ group-subsystems "\n" ] [ " " ] if
        [ { "USING:" } { ";" } surround ] dip join
    ] if ;