 : make-pprint ( obj quot -- block manifest )
     [
         0 position ,,
-        H{ } clone pprinter-use ,,
+        HS{ } clone pprinter-use ,,
         V{ } clone recursion-check ,,
         V{ } clone pprinter-stack ,,
     ] H{ } make [

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



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