vocabs.hierarchy: simplify vocab-subdirs.

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index e960a0c4dcc4c6b3ba7831961b916549db7b3bca..6bd3c8aa2d10e381f6a0992da4f62d5aa25b9714 100644 (file)
--- a/basis/vocabs/hierarchy/hierarchy.factor
+++ b/basis/vocabs/hierarchy/hierarchy.factor
@@ -16,14 +16,12 @@ M: vocab-prefix vocab-name name>> ;
 <PRIVATE\r
 \r
 : vocab-subdirs ( dir -- dirs )\r
-    [\r
-        [\r
-            {\r
-                [ type>> +directory+ = ]\r
-                [ name>> "." head? not ]\r
-            } 1&&\r
-        ] filter [ name>> ] map!\r
-    ] with-directory-entries natural-sort ;\r
+    directory-entries [\r
+        {\r
+            [ type>> +directory+ = ]\r
+            [ name>> "." head? not ]\r
+        } 1&&\r
+    ] filter [ name>> ] map! natural-sort ;\r
 \r
 : vocab-dir? ( root name -- ? )\r
     over\r