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

[factor.git] / basis / gobject-introspection / ffi / ffi.factor

diff --git a/basis/gobject-introspection/ffi/ffi.factor b/basis/gobject-introspection/ffi/ffi.factor
index 40561da87f706cff00c4126a7fcd7d0cb21c993e..0735b582414bc5f5691c33307f97f8a6b07b04f2 100644 (file)
--- a/basis/gobject-introspection/ffi/ffi.factor
+++ b/basis/gobject-introspection/ffi/ffi.factor
@@ -79,16 +79,16 @@ M: utf8-type parse-const-value drop ;
     [ value>> ] [ type>> ] bi parse-const-value ;
 
 : def-const ( const -- )
-    [ c-identifier>> create-in dup reset-generic ]
-    [ const-value ] bi define-constant ;
+    [ c-identifier>> create-function ] [ const-value ] bi
+    define-constant ;
 
 : def-consts ( consts -- )
     [ def-const ] each ;
 
 : define-enum-member ( member -- )
-    [ c-identifier>> create-in dup reset-generic ]
-    [ value>> ] bi define-constant ;
-           
+    [ c-identifier>> create-function ] [ value>> ] bi
+    define-constant ;
+
 : def-enum-type ( enum -- )
     [ members>> [ define-enum-member ] each ]
     [ c-type>> int def-c-type ] bi ;
@@ -323,7 +323,7 @@ M: array-type field-type>c-type type>c-type ;
 : def-classes ( classes -- ) [ def-class ] each ;
 
 : def-boxeds ( boxeds -- )
-    [ find-existing-boxed-type not ] filter
+    [ find-existing-boxed-type ] reject
     [ def-boxed-type ] each ;
 
 : def-records ( records -- )