fix subdirs

2008-10-19 20:37:11 -05:00 · 2008-10-19 20:37:11 -05:00 · 3dc4002c35
parent 16f2a281d6
commit 3dc4002c35
1 changed files with 2 additions and 3 deletions
--- a/basis/tools/vocabs/vocabs.factor
+++ b/basis/tools/vocabs/vocabs.factor
@ -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 )
    [