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

[factor.git] / basis / help / html / html.factor

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 7930f165b68af0669c2a30b02201e26fc894f526..5b9a646ee5ee662cf2c11d4ccd8c065593d8e53b 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -99,7 +99,7 @@ M: pathname url-of
 
 : all-vocabs-really ( -- seq )
     all-vocabs-recursive no-roots remove-redundant-prefixes
-    [ vocab-name "scratchpad" = not ] filter ;
+    [ vocab-name "scratchpad" = ] reject ;
 
 : all-topics ( -- topics )
     [