 
 : pprinter-manifest ( -- manifest )
     <manifest>
-    [ [ pprinter-use get keys >vector ] dip search-vocabs<< ]
+    [ [ pprinter-use get members >vector ] dip search-vocabs<< ]
     [ [ pprinter-in get ] dip current-vocab<< ]
     [ ]
     tri ;

prettyprint.config splitting classes continuations
accessors sets vocabs.parser combinators vocabs
classes.maybe ;
FROM: namespaces => set ;
IN: prettyprint.sections



: (record-vocab) ( vocab -- )
    dup pprinter-in get dup [ vocab-name ] when =
    [ drop ] [ pprinter-use get adjoin ] if ;

GENERIC: vocabulary-name ( obj -- string )

