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

diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index afdc17359b999af1db882ca45760777d69ff5e4e..566f8c7a8c1cded73f9e0d3332db626b6c1e6f70 100755 (executable)
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -396,7 +396,7 @@ M: windows home
     ] if ;
 
 : alternate-file-streams ( path -- streams )
-    file-streams [ cStreamName>> alien>native-string "::$DATA" = not ] filter ;
+    file-streams [ cStreamName>> alien>native-string "::$DATA" = ] reject ;
 
 : alternate-file-streams? ( path -- streams )
     alternate-file-streams empty? not ;

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 5bf5604dd61e1955b592f21e384b72ebca87253a..a93314702a01ea1de5fec5b5ec1b7de916e90bd8 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -86,7 +86,7 @@ C: <ebnf> ebnf
 
 : filter-hidden ( seq -- seq )
     ! Remove elements that produce no AST from sequence
-    [ ebnf-ensure-not? ] reject [ ebnf-ensure? not ] filter ;
+    [ ebnf-ensure-not? ] reject [ ebnf-ensure? ] reject ;
 
 : syntax ( string -- parser )
     ! Parses the string, ignoring white space, and