help.vocabs: 'authors' and 'tags' weren't recursing like they should've been

db4
Slava Pestov 2009-08-24 21:56:14 -05:00
parent c925724d7b
commit bb51ee8d26
1 changed files with 2 additions and 1 deletions

View File

@ -249,7 +249,8 @@ C: <vocab-author> vocab-author
} cleave ;
: 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 )
[ vocab-tags ] keyed-vocabs ;