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

vocabs.hierarchy: simplify vocab-subdirs.

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

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

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