(pprint-manifest ( manifest -- quots )

Vocabulary

vocabs.prettyprint

Inputs

manifest

an object

Outputs

quots

an object

Definition

USING: accessors kernel make sequences
vocabs.prettyprint.private ;

IN: vocabs.prettyprint

: (pprint-manifest ( manifest -- quots )
    [
        [
            search-vocabs>>
            [ [ pprint-using ] curry , ] unless-empty
        ] [
            qualified-vocabs>> filter-interesting
            [ [ pprint-qualified ] curry , ] each
        ] [ current-vocab>> [ [ pprint-in ] curry , ] when* ]
        tri
    ] { } make ;