diff --git a/core/modern/paths/paths.factor b/core/modern/paths/paths.factor index 01d4f77d4d..2cf77690f2 100644 --- a/core/modern/paths/paths.factor +++ b/core/modern/paths/paths.factor @@ -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 ; \ No newline at end of file