ocaml 3.09 transition

[helm.git] / helm / DEVEL / lablgtksourceview / ml_gtk_sourceview.c

diff --git a/helm/DEVEL/lablgtksourceview/ml_gtk_sourceview.c b/helm/DEVEL/lablgtksourceview/ml_gtk_sourceview.c
index 5d813d446edd28635e3cfd354880188ebbec2088..965618d2662737c598cbbcad3fae3cacd3bc544f 100644 (file)
--- a/helm/DEVEL/lablgtksourceview/ml_gtk_sourceview.c
+++ b/helm/DEVEL/lablgtksourceview/ml_gtk_sourceview.c
@@ -90,7 +90,7 @@ ml_gtk_source_languages_manager_set_lang_files_dirs(GObject *obj, value list)
 #define GtkSourceTagTable_val(val) check_cast(GTK_SOURCE_TAG_TABLE,val)
 #define GtkSourceBuffer_val(val) check_cast(GTK_SOURCE_BUFFER,val)
 #define GtkSourceView_val(val) check_cast(GTK_SOURCE_VIEW,val)
-#define GtkTextIter_val(val) ((GtkTextIter*)Data_custom_val(val))
+#define GtkTextIter_val(val) ((GtkTextIter*)MLPointer_val(val))
 #define Val_option_GtkAny(v) Val_option(v,Val_GtkAny)
 #define string_list_of_GSList(l) Val_GSList(l, (value_in) Val_string)
 /* #define GSList_of_string_list(l) GSList_val(l, String_val) */