[PATCH] guile-gnome corba change scm_vtable_index_printer to scm_vtable_index_instance_printer

[nalaginrut]

The patch to fix the error while compiling the corba module.


>From 4de97260fcf465b2e1d3a6c7c89845de5bd1697d Mon Sep 17 00:00:00 2001
From: Nala Ginrut <nalagin...@gmail.com>
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