From 63b7b7e15f4587031cdc23d0d0b1354e5c37f4d1 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 22 Jun 2016 09:06:07 -0700 Subject: [PATCH] modern.paths: add a different all-paths word. --- core/modern/paths/paths.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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