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

[factor.git] / unmaintained / alien / inline / inline.factor

diff --git a/unmaintained/alien/inline/inline.factor b/unmaintained/alien/inline/inline.factor
index 6428bead751fdc9383f89409b9d041d95ceb2374..b40bc8cce12f84d7d584a827af4f24f95094ab4b 100644 (file)
--- a/unmaintained/alien/inline/inline.factor
+++ b/unmaintained/alien/inline/inline.factor
@@ -51,7 +51,7 @@ PRIVATE>
 
 : function-types-effect ( -- function types effect )
     scan scan swap ")" parse-tokens
-    [ "(" subseq? not ] filter swap parse-arglist ;
+    [ "(" subseq? ] reject swap parse-arglist ;
 
 : prototype-string ( function types effect -- str )
     [ [ cify-type ] map ] dip