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

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

diff --git a/basis/help/help.factor b/basis/help/help.factor
index afbcc7c849b528f877187ed49855911b66201b6f..77304db86b084708e897b4f2dfa1d1f2e90b1e91 100644 (file)
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -33,7 +33,7 @@ M: predicate word-help* drop \ $predicate ;
 
 : orphan-articles ( -- seq )
     articles get keys
-    [ article-parent not ] filter ;
+    [ article-parent ] reject ;
 
 : xref-help ( -- )
     all-articles [ xref-article ] each ;