Add vocab: for vocab-relative paths

[factor.git] / basis / tools / vocabs / vocabs.factor

diff --git a/basis/tools/vocabs/vocabs.factor b/basis/tools/vocabs/vocabs.factor
index fe380e0afe6cbcf7cb56fc24ff736553ab1b65cf..6167a5be233fe5a42884d8d667c9be52563e1e45 100644 (file)
--- a/basis/tools/vocabs/vocabs.factor
+++ b/basis/tools/vocabs/vocabs.factor
@@ -241,6 +241,12 @@ M: vocab-link summary vocab-summary ;
         swap [ "." glue ] with map\r
     ] unless-empty ;\r
 \r
+: vocab-dir? ( root name -- ? )\r
+    over\r
+    [ ".factor" vocab-dir+ append-path exists? ]\r
+    [ 2drop f ]\r
+    if ;\r
+\r
 : vocabs-in-dir ( root name -- )\r
     dupd (all-child-vocabs) [\r
         2dup vocab-dir? [ dup >vocab-link , ] when\r