 : 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 [


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


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

GENERIC: vocabulary-name ( obj -- string )

