use reject instead of [ ... not ] filter.

[factor.git] / basis / io / directories / directories.factor

diff --git a/basis/io/directories/directories.factor b/basis/io/directories/directories.factor
index 86c2778cd7bc2aae7a73780071073aa7609ee384..eee03c78520e5e0491c406fc120a771df02918e4 100644 (file)
--- a/basis/io/directories/directories.factor
+++ b/basis/io/directories/directories.factor
@@ -38,7 +38,7 @@ HOOK: (directory-entries) os ( path -- seq )
 : directory-entries ( path -- seq )
     normalize-path
     (directory-entries)
-    [ name>> { "." ".." } member? not ] filter ;
+    [ name>> { "." ".." } member? ] reject ;
 
 : directory-files ( path -- seq )
     directory-entries [ name>> ] map! ;