factor: trim using lists

[factor.git] / extra / modern / paths / paths.factor

diff --git a/extra/modern/paths/paths.factor b/extra/modern/paths/paths.factor
index a6e46ebde0e92b6c954b0454c6f0bd70042b7988..2b54684760adb3fa9846bbaa6f7a84e247f71ccd 100644 (file)
--- a/extra/modern/paths/paths.factor
+++ b/extra/modern/paths/paths.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2015 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators.smart io.files kernel sequences
-splitting vocabs.files vocabs.hierarchy vocabs.loader
-vocabs.metadata sets ;
+USING: accessors combinators.smart io.files sequences sets
+vocabs.files vocabs.hierarchy vocabs.loader ;
 IN: modern.paths
 
 ERROR: not-a-source-path path ;
@@ -43,7 +42,7 @@ CONSTANT: core-broken-vocabs
         extra-vocabs
     ] { } append-outputs-as ;
 
-: filter-exists ( seq -- seq' ) [ exists? ] filter ;
+: filter-exists ( seq -- seq' ) [ file-exists? ] filter ;
 
 ! These paths have syntax errors on purpose...
 : reject-some-paths ( seq -- seq' )