Merge branch 'gtk' into gtk-image-loader

[factor.git] / basis / glib / ffi / ffi.factor

diff --git a/basis/glib/ffi/ffi.factor b/basis/glib/ffi/ffi.factor
index f5af540dfaf9a9f997453beb7d54dc20e6c6d0be..22b40f47adbecb8377ab0784b2bb8c623cbcb5a8 100644 (file)
--- a/basis/glib/ffi/ffi.factor
+++ b/basis/glib/ffi/ffi.factor
@@ -14,8 +14,6 @@ IN: glib.ffi
 } cond
 >>
 
-<< double "long double" current-vocab create typedef >>
-
 TYPEDEF: char gchar
 TYPEDEF: uchar guchar
 TYPEDEF: short gshort
@@ -66,7 +64,9 @@ TYPEDEF: guint32 gunichar
 TYPEDEF: guint16 gunichar2
 
 TYPEDEF: gpointer pointer
-TYPEDEF: gpointer any
+
+REPLACE-C-TYPE: long\sdouble double
+REPLACE-C-TYPE: any gpointer
 
 IMPLEMENT-STRUCTS: GError GPollFD GSource GSourceFuncs ;