diff --git a/basis/help/vocabs/vocabs.factor b/basis/help/vocabs/vocabs.factor index 1f39d06ab8..c0546a4645 100644 --- a/basis/help/vocabs/vocabs.factor +++ b/basis/help/vocabs/vocabs.factor @@ -26,8 +26,13 @@ IN: help.vocabs [ "Children from " prepend ] [ "Children" ] if* $heading ; +> ] when ] map ; +PRIVATE> + : $vocabs ( seq -- ) - [ vocab-row ] map vocab-headings prefix $table ; + convert-prefixes [ vocab-row ] map vocab-headings prefix $table ; : $vocab-roots ( assoc -- ) [