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

vocabs.hierarchy: a little bit cleaner.

db4
John Benediktsson 2014-06-03 09:45:22 -07:00
parent 7190ea5dc8
commit bdb2d476c1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/vocabs/hierarchy/hierarchy.factor
View File

@ -15,13 +15,16 @@ M: vocab-prefix vocab-name name>> ;
<PRIVATE <PRIVATE
: vocab-subdirs ( dir -- dirs ) : visible-dirs ( seq -- seq' )
directory-entries [ [
{ {
[ type>> +directory+ = ] [ type>> +directory+ = ]
[ name>> "." head? not ] [ name>> "." head? not ]
} 1&& } 1&&
] filter [ name>> ] map! natural-sort ; ] filter ;
: vocab-subdirs ( dir -- dirs )
directory-entries visible-dirs [ name>> ] map! natural-sort ;
: vocab-dir? ( root name -- ? ) : vocab-dir? ( root name -- ? )
over over