use reject instead of [ ... not ] filter.

[factor.git] / basis / vocabs / prettyprint / prettyprint.factor

diff --git a/basis/vocabs/prettyprint/prettyprint.factor b/basis/vocabs/prettyprint/prettyprint.factor
index 2cdec0d382eb35f66d5ba20b2f3f5fcca541d265..07fecef4a2d96e352ba731d6324b9de7fa2254a5 100644 (file)
--- a/basis/vocabs/prettyprint/prettyprint.factor
+++ b/basis/vocabs/prettyprint/prettyprint.factor
@@ -8,7 +8,7 @@ FROM: io.styles => inset ;
 IN: vocabs.prettyprint
 
 : pprint-vocab ( vocab -- )
-    [ vocab-name ] [ vocab vocab-style ] bi styled-text ;
+    [ vocab-name ] [ lookup-vocab vocab-style ] bi styled-text ;
 
 : pprint-in ( vocab -- )
     [ \ IN: pprint-word pprint-vocab ] with-pprint ;
@@ -19,7 +19,7 @@ IN: vocabs.prettyprint
     [ vocab-name ] sort-with ;
 
 : pprint-using ( seq -- )
-    [ "syntax" vocab = not ] filter
+    [ "syntax" lookup-vocab = ] reject
     sort-vocabs [
         \ USING: pprint-word
         [ pprint-vocab ] each
@@ -65,7 +65,7 @@ M: rename pprint-qualified ( rename -- )
     ] with-pprint ;
 
 : filter-interesting ( seq -- seq' )
-    [ [ vocab? ] [ extra-words? ] bi or not ] filter ;
+    [ [ vocab? ] [ extra-words? ] bi or ] reject ;
 
 PRIVATE>
 
@@ -96,4 +96,4 @@ PRIVATE>
         { inset { 5 5 } }
     } [ manifest get pprint-manifest ] with-nesting
     nl nl
-] print-use-hook set-global
\ No newline at end of file
+] print-use-hook set-global