M: anonymous-intersection word-name*
class-name "intersection{ " " }" surround ;
-M: word word-name* ( word -- str )
+M: word word-name*
[ name>> "( no name )" or ] [ record-vocab ] bi ;
: pprint-word ( word -- )
M: hashtable pprint-narrow? drop t ;
M: tuple pprint-narrow? drop t ;
-M: object pprint-object ( obj -- )
+M: object pprint-object
[
<flow
dup pprint-delims [