vocabs.hierarchy: simplify vocab-subdirs.

2014-06-03 09:05:03 -07:00 · 2014-06-03 09:05:03 -07:00 · 7190ea5dc8
parent 980fba617d
commit 7190ea5dc8
1 changed files with 6 additions and 8 deletions
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@ -16,14 +16,12 @@ M: vocab-prefix vocab-name name>> ;
 <PRIVATE

 : vocab-subdirs ( dir -- dirs )
-    [
-        [
-            {
-                [ type>> +directory+ = ]
-                [ name>> "." head? not ]
-            } 1&&
-        ] filter [ name>> ] map!
-    ] with-directory-entries natural-sort ;
+    directory-entries [
+        {
+            [ type>> +directory+ = ]
+            [ name>> "." head? not ]
+        } 1&&
+    ] filter [ name>> ] map! natural-sort ;

 : vocab-dir? ( root name -- ? )
    over