modern.paths: add a different all-paths word.
parent
7e04ce08ab
commit
63b7b7e15f
|
@ -81,9 +81,13 @@ IN: modern.paths
|
||||||
vocab-roots get [ vocabs-from ] map concat
|
vocab-roots get [ vocabs-from ] map concat
|
||||||
] { } append-outputs-as ;
|
] { } append-outputs-as ;
|
||||||
|
|
||||||
: all-paths ( -- seq )
|
: all-vocab-paths ( -- seq )
|
||||||
[
|
[
|
||||||
all-vocabs less-core-test-vocabs
|
all-vocabs less-core-test-vocabs
|
||||||
unsupported-vocabs diff
|
unsupported-vocabs diff
|
||||||
[ modern-source-paths ] [ modern-docs-paths ] [ modern-tests-paths ] tri
|
[ modern-source-paths ] [ modern-docs-paths ] [ modern-tests-paths ] tri
|
||||||
] { } append-outputs-as reject-some-paths filter-exists ;
|
] { } append-outputs-as reject-some-paths filter-exists ;
|
||||||
|
|
||||||
|
: all-paths ( -- seq )
|
||||||
|
vocab-roots get [ [ ".factor" tail? ] find-all-files ] map
|
||||||
|
reject-some-paths ;
|
Loading…
Reference in New Issue