steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocabs.metadata.resources: sometimes vocab-resources can be ``f``.

factor-shell
John Benediktsson 2018-02-09 10:19:06 -08:00
parent 69b8555b32
commit 77f56b648f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/vocabs/metadata/resources/resources.factor
View File

@ -33,10 +33,12 @@ ERROR: resource-missing pattern ;
'[ _ match-pattern ] gather ; '[ _ match-pattern ] gather ;
: vocab-resource-files ( vocab -- filenames ) : vocab-resource-files ( vocab -- filenames )
[ vocab-resources ] [ vocab-dir-in-root ] bi dup vocab-resources [
[ swap vocab-dir-in-root
match-patterns [ expand-resource ] map concat [
] with-directory-files ; match-patterns [ expand-resource ] map concat
] with-directory-files
] [ drop f ] if* ;
: copy-vocab-resources ( dir vocab -- ) : copy-vocab-resources ( dir vocab -- )
dup vocab-resource-files dup vocab-resource-files