help.vocabs: continue using convert-prefixes in $vocabs.
parent
c48d3da8b5
commit
d8813bf61a
|
@ -26,8 +26,13 @@ IN: help.vocabs
|
|||
[ "Children from " prepend ] [ "Children" ] if*
|
||||
$heading ;
|
||||
|
||||
<PRIVATE
|
||||
: convert-prefixes ( seq -- seq' )
|
||||
[ dup vocab-prefix? [ name>> <vocab-link> ] when ] map ;
|
||||
PRIVATE>
|
||||
|
||||
: $vocabs ( seq -- )
|
||||
[ vocab-row ] map vocab-headings prefix $table ;
|
||||
convert-prefixes [ vocab-row ] map vocab-headings prefix $table ;
|
||||
|
||||
: $vocab-roots ( assoc -- )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue