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

[factor.git] / basis / peg / ebnf / ebnf.factor

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