>From 4de97260fcf465b2e1d3a6c7c89845de5bd1697d Mon Sep 17 00:00:00 2001 From: Nala Ginrut Date: Thu, 13 Sep 2012 14:46:16 +0800 Subject: [PATCH] change scm_vtable_index_printer to scm_vtable_index_instance_printer modified: corba/gnome/corba/guile-gnome-corba-types.c --- corba/gnome/corba/guile-gnome-corba-types.c | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/corba/gnome/corba/guile-gnome-corba-types.c b/corba/gnome/corba/guile-gnome-corba-types.c index e5ad9f8..546339d 100644 --- a/corba/gnome/corba/guile-gnome-corba-types.c +++ b/corba/gnome/corba/guile-gnome-corba-types.c @@ -60,7 +60,7 @@ print_corba_struct (SCM corba_struct, SCM port) CORBA_TypeCode tc; gchar *message; - printer = SCM_PACK (SCM_STRUCT_DATA (corba_struct) [scm_vtable_index_printer]); + printer = SCM_PACK (SCM_STRUCT_DATA (corba_struct) [scm_vtable_index_instance_printer]); if (SCM_NIMP (printer) && scm_procedure_p (printer)) return scm_call_2 (printer, corba_struct, port); @@ -80,7 +80,7 @@ print_corba_sequence (SCM corba_sequence, SCM port) CORBA_TypeCode tc; gchar *message; - printer = SCM_PACK (SCM_STRUCT_DATA (corba_sequence) [scm_vtable_index_printer]); + printer = SCM_PACK (SCM_STRUCT_DATA (corba_sequence) [scm_vtable_index_instance_printer]); if (SCM_NIMP (printer) && scm_procedure_p (printer)) return scm_call_2 (printer, corba_sequence, port); @@ -822,7 +822,7 @@ scm_init_gnome_corba_types (void) SCM_SET_CORBA_STRUCT_TYPECODE (scm_corba_struct_vtable, TC_CORBA_TypeCode); scm_c_define ("%corba-struct-vtable", scm_corba_struct_vtable); scm_c_define ("%corba-struct-vtable-offset-user", scm_from_int (scm_corba_struct_vtable_offset_user)); - scm_c_define ("%corba-struct-vtable-offset-printer", scm_from_int (scm_vtable_index_printer)); + scm_c_define ("%corba-struct-vtable-offset-printer", scm_from_int (scm_vtable_index_instance_printer)); gsubr = scm_c_make_gsubr ("%print-corba-sequence", 2, 0, 0, print_corba_sequence); scm_corba_sequence_vtable = scm_permanent_object @@ -831,7 +831,7 @@ scm_init_gnome_corba_types (void) SCM_SET_CORBA_SEQUENCE_TYPECODE (scm_corba_sequence_vtable, TC_CORBA_TypeCode); scm_c_define ("%corba-sequence-vtable", scm_corba_sequence_vtable); scm_c_define ("%corba-sequence-vtable-offset-user", scm_from_int (scm_corba_sequence_vtable_offset_user)); - scm_c_define ("%corba-sequence-vtable-offset-printer", scm_from_int (scm_vtable_index_printer)); + scm_c_define ("%corba-sequence-vtable-offset-printer", scm_from_int (scm_vtable_index_instance_printer)); scm_c_export ("%corba-struct-vtable", "%corba-struct-vtable-offset-user", -- 1.7.7