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

[factor.git] / extra / alien / fortran / fortran.factor

diff --git a/extra/alien/fortran/fortran.factor b/extra/alien/fortran/fortran.factor
index f760036b40bf1d654b24745d9a9b1345fed45615..0dc7b79fc2e12ec2038108ea9bf2778d60dc1663 100755 (executable)
--- a/extra/alien/fortran/fortran.factor
+++ b/extra/alien/fortran/fortran.factor
@@ -442,11 +442,11 @@ MACRO: fortran-invoke ( return library function parameters -- )
 
 SYNTAX: SUBROUTINE: 
     f current-library get scan-token ";" parse-tokens
-    [ "()" subseq? not ] filter define-fortran-function ;
+    [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: FUNCTION:
     scan-token current-library get scan-token ";" parse-tokens
-    [ "()" subseq? not ] filter define-fortran-function ;
+    [ "()" subseq? ] reject define-fortran-function ;
 
 SYNTAX: LIBRARY:
     scan-token