fix subdirs

db4
Doug Coleman 2008-10-19 20:37:11 -05:00
parent 16f2a281d6
commit 3dc4002c35
1 changed files with 2 additions and 3 deletions

View File

@ -207,10 +207,9 @@ M: vocab-link summary vocab-summary ;
dup vocab-authors-path set-vocab-file-contents ;
: subdirs ( dir -- dirs )
dup [
[
[ link-info directory? ] filter
] with-directory-files
[ append-path ] with map natural-sort ;
] with-directory-files natural-sort ;
: (all-child-vocabs) ( root name -- vocabs )
[