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

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

diff --git a/basis/prettyprint/sections/sections.factor b/basis/prettyprint/sections/sections.factor
index 8cd172bffef73066006491859403da3e0e76afd4..2e308f963a8d4fedab52f7957a68a5179168efac 100644 (file)
--- a/basis/prettyprint/sections/sections.factor
+++ b/basis/prettyprint/sections/sections.factor
@@ -191,7 +191,7 @@ M: block section-fits? ( section -- ? )
 
 : pprint-sections ( block advancer -- )
     [
-        sections>> [ line-break? not ] filter
+        sections>> [ line-break? ] reject
         unclip-slice pprint-section
     ] dip
     [ [ pprint-section ] bi ] curry each ; inline