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

vocabs: enforce sorting of keyed vocabs.

db4
John Benediktsson 2012-07-24 14:40:36 -07:00
parent 56404b8b89
commit 17a50c649b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/help/vocabs/vocabs.factor
View File

@ -254,8 +254,10 @@ C: <vocab-author> vocab-author
} cleave ; } cleave ;
: keyed-vocabs ( str quot -- seq ) : keyed-vocabs ( str quot -- seq )
[ all-vocabs-recursive ] 2dip [ all-vocabs-recursive ] 2dip '[
'[ [ _ swap @ member? ] filter no-prefixes ] assoc-map ; inline [ _ swap @ member? ] filter no-prefixes
[ name>> ] sort-with
] assoc-map ; inline
: tagged ( tag -- assoc ) : tagged ( tag -- assoc )
[ vocab-tags ] keyed-vocabs ; [ vocab-tags ] keyed-vocabs ;