help.vocabs: 'authors' and 'tags' weren't recursing like they should've been
parent
c925724d7b
commit
bb51ee8d26
|
@ -249,7 +249,8 @@ C: <vocab-author> vocab-author
|
||||||
} cleave ;
|
} cleave ;
|
||||||
|
|
||||||
: keyed-vocabs ( str quot -- seq )
|
: keyed-vocabs ( str quot -- seq )
|
||||||
[ all-vocabs ] 2dip '[ [ _ swap @ member? ] filter ] assoc-map ; inline
|
[ all-vocabs-recursive ] 2dip
|
||||||
|
'[ [ _ swap @ member? ] filter no-prefixes ] assoc-map ; inline
|
||||||
|
|
||||||
: tagged ( tag -- assoc )
|
: tagged ( tag -- assoc )
|
||||||
[ vocab-tags ] keyed-vocabs ;
|
[ vocab-tags ] keyed-vocabs ;
|
||||||
|
|
Loading…
Reference in New Issue