fix subdirs
parent
16f2a281d6
commit
3dc4002c35
|
@ -207,10 +207,9 @@ M: vocab-link summary vocab-summary ;
|
||||||
dup vocab-authors-path set-vocab-file-contents ;
|
dup vocab-authors-path set-vocab-file-contents ;
|
||||||
|
|
||||||
: subdirs ( dir -- dirs )
|
: subdirs ( dir -- dirs )
|
||||||
dup [
|
[
|
||||||
[ link-info directory? ] filter
|
[ link-info directory? ] filter
|
||||||
] with-directory-files
|
] with-directory-files natural-sort ;
|
||||||
[ append-path ] with map natural-sort ;
|
|
||||||
|
|
||||||
: (all-child-vocabs) ( root name -- vocabs )
|
: (all-child-vocabs) ( root name -- vocabs )
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue