From 77f56b648fe2999daec09dff1cde552d23d6db9d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 9 Feb 2018 10:19:06 -0800
Subject: [PATCH] vocabs.metadata.resources: sometimes vocab-resources can be
 ``f``.

---
 basis/vocabs/metadata/resources/resources.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/basis/vocabs/metadata/resources/resources.factor b/basis/vocabs/metadata/resources/resources.factor
index ca1d0e95c5..354b893acb 100644
--- a/basis/vocabs/metadata/resources/resources.factor
+++ b/basis/vocabs/metadata/resources/resources.factor
@@ -33,10 +33,12 @@ ERROR: resource-missing pattern ;
     '[ _ match-pattern ] gather ;
 
 : vocab-resource-files ( vocab -- filenames )
-    [ vocab-resources ] [ vocab-dir-in-root ] bi
-    [
-        match-patterns [ expand-resource ] map concat
-    ] with-directory-files ;
+    dup vocab-resources [
+        swap vocab-dir-in-root
+        [
+            match-patterns [ expand-resource ] map concat
+        ] with-directory-files
+    ] [ drop f ] if* ;
 
 : copy-vocab-resources ( dir vocab -- )
     dup vocab-resource-files