GENERIC: pprint-qualified ( qualified -- )
-M: qualified pprint-qualified ( qualified -- )
+M: qualified pprint-qualified
[
dup [ vocab>> vocab-name ] [ prefix>> ] bi = [
\ QUALIFIED: pprint-word
] if
] with-pprint ;
-M: from pprint-qualified ( from -- )
+M: from pprint-qualified
[
\ FROM: pprint-word
[ vocab>> pprint-vocab "=>" text ]
\ ; pprint-word
] with-pprint ;
-M: exclude pprint-qualified ( exclude -- )
+M: exclude pprint-qualified
[
\ EXCLUDE: pprint-word
[ vocab>> pprint-vocab "=>" text ]
\ ; pprint-word
] with-pprint ;
-M: rename pprint-qualified ( rename -- )
+M: rename pprint-qualified
[
\ RENAME: pprint-word
[ word>> text ]