vocabs.metadata.resources: don't try to expand resource patterns for vocabs without a resources.txt

2010-02-14 09:59:36 -08:00 · 2010-02-14 09:59:36 -08:00 · 05e53c0c58
parent a0853aef4e
commit 05e53c0c58
1 changed files with 2 additions and 1 deletions
--- a/basis/vocabs/metadata/resources/resources.factor
+++ b/basis/vocabs/metadata/resources/resources.factor
@ -21,4 +21,5 @@ PRIVATE>
    ] with-directory-tree-files ;

 : vocab-resource-files ( vocab -- filenames )
-    dup vocab-resources expand-vocab-resource-files ;
+    dup vocab-resources
+    [ drop f ] [ expand-vocab-resource-files ] if-empty ;