From 7190ea5dc8eb364a82247c54519b690f076398b9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 3 Jun 2014 09:05:03 -0700
Subject: [PATCH] vocabs.hierarchy: simplify vocab-subdirs.

---
 basis/vocabs/hierarchy/hierarchy.factor | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/basis/vocabs/hierarchy/hierarchy.factor b/basis/vocabs/hierarchy/hierarchy.factor
index e960a0c4dc..6bd3c8aa2d 100644
--- 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