help.markup: slightly faster collect-elements.

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index bd46a4e66aaeb5838b2b3658d2c39e1482286c9a..59b71b2188f0d21bf1c917a8945f61fd2c12a0e7 100644 (file)
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -491,7 +491,7 @@ M: array elements*
 : elements ( elt-type element -- seq ) [ elements* ] { } make ;
 
 : collect-elements ( element seq -- elements )
-    swap '[ _ elements [ rest ] map concat ] gather ;
+    swap '[ [ _ elements* ] each ] { } make [ rest ] map concat ;
 
 : <$link> ( topic -- element )
     1array \ $link prefix ;