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

modern.paths: add a different all-paths word.

locals-and-roots
Doug Coleman 2016-06-22 09:06:07 -07:00
parent 7e04ce08ab
commit 63b7b7e15f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/modern/paths/paths.factor
View File

@ -81,9 +81,13 @@ IN: modern.paths
vocab-roots get [ vocabs-from ] map concat
] { } append-outputs-as ;
: all-paths ( -- seq )
: all-vocab-paths ( -- seq )
[
all-vocabs less-core-test-vocabs
unsupported-vocabs diff
[ modern-source-paths ] [ modern-docs-paths ] [ modern-tests-paths ] tri
] { } append-outputs-as reject-some-paths filter-exists ;
: all-paths ( -- seq )
vocab-roots get [ [ ".factor" tail? ] find-all-files ] map
reject-some-paths ;