see, vocabs.prettyprint: move pprint-; between vocabs

diff --git a/basis/see/see.factor b/basis/see/see.factor
index df14c4249c077a55e243199ca0471de91dd18e3e..cca05757c2138adb207beb9b9be252c23dd8cc3e 100644 (file)
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -8,7 +8,8 @@ generic.single generic.standard io io.pathnames
 io.streams.string io.styles kernel make namespaces prettyprint
 prettyprint.backend prettyprint.config prettyprint.custom
 prettyprint.sections sequences sets slots sorting strings
-summary vocabs words words.alias words.constant words.symbol ;
+summary vocabs vocabs.prettyprint words words.alias
+words.constant words.symbol ;
 IN: see
 
 GENERIC: synopsis* ( defspec -- )
@@ -125,8 +126,6 @@ M: word declarations.
         POSTPONE: flushable
     } [ declaration. ] with each ;
 
-: pprint-; ( -- ) \ ; pprint-word ;
-
 M: object see*
     [
         12 nesting-limit namespaces:set

diff --git a/basis/vocabs/prettyprint/prettyprint.factor b/basis/vocabs/prettyprint/prettyprint.factor
index 890ab2a8ef7e92f4f22bff2a66f244f0bca0e1f5..3af26b0efb621db59d53a9fbc031628910e88f56 100644 (file)
--- a/basis/vocabs/prettyprint/prettyprint.factor
+++ b/basis/vocabs/prettyprint/prettyprint.factor
@@ -12,6 +12,8 @@ IN: vocabs.prettyprint
 : pprint-in ( vocab -- )
     [ \ IN: pprint-word pprint-vocab ] with-pprint ;
 
+: pprint-; ( -- ) \ ; pprint-word ;
+
 <PRIVATE
 
 : sort-vocabs ( seq -- seq' ) [ vocab-name ] sort-by ;
@@ -21,7 +23,7 @@ IN: vocabs.prettyprint
     sort-vocabs [
         \ USING: pprint-word
         [ pprint-vocab ] each
-        \ ; pprint-word
+        pprint-;
     ] with-pprint ;
 
 GENERIC: pprint-qualified ( qualified -- )
@@ -42,7 +44,7 @@ M: from pprint-qualified
         \ FROM: pprint-word
         [ vocab>> pprint-vocab "=>" text ]
         [ names>> [ text ] each ] bi
-        \ ; pprint-word
+        pprint-;
     ] with-pprint ;
 
 M: exclude pprint-qualified
@@ -50,7 +52,7 @@ M: exclude pprint-qualified
         \ EXCLUDE: pprint-word
         [ vocab>> pprint-vocab "=>" text ]
         [ names>> [ text ] each ] bi
-        \ ; pprint-word
+        pprint-;
     ] with-pprint ;
 
 M: rename pprint-qualified