steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.markup: slightly faster collect-elements.

clean-linux-x86-64
John Benediktsson 2019-09-11 04:59:56 -07:00
parent 04f96c83f1
commit 5dfe740c16
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/markup/markup.factor
View File

@ -491,7 +491,7 @@ M: array elements*
: elements ( elt-type element -- seq ) [ elements* ] { } make ; : elements ( elt-type element -- seq ) [ elements* ] { } make ;
: collect-elements ( element seq -- elements ) : collect-elements ( element seq -- elements )
swap '[ _ elements [ rest ] map concat ] gather ; swap '[ [ _ elements* ] each ] { } make [ rest ] map concat ;
: <$link> ( topic -- element ) : <$link> ( topic -- element )
1array \ $link prefix ; 1array \ $link prefix ;