stop GDB crashing on ly_display_scm

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 3422089e9c50e043b884093d37600de8d42e14e3..0f94e2ebbb9000541a4225952c73004a239d63c1 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -114,9 +114,7 @@ inline SCM ly_append4 (SCM x1, SCM x2, SCM x3, SCM x4)
 /*
   display and print newline.
 */
-extern "C" {
-  void ly_display_scm (SCM s);
-}
+void ly_display_scm (void *s);
 
 void read_lily_scm_file (string);
 void ly_c_init_guile ();

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index e1a0e9bffdc059fde75766d07b559dff3393bd2e..e932f342b731a2f2bd5fbdf4ddab27e5ec0ac18d 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -114,15 +114,12 @@ gulp_file_to_string (string fn, bool must_exist, int size)
   return result;
 }
 
-extern "C" {
-  // maybe gdb 5.0 becomes quicker if it doesn't do fancy C++ typing?
-  void
-  ly_display_scm (SCM s)
-  {
-    scm_display (s, scm_current_output_port ());
-    scm_newline (scm_current_output_port ());
-  }
-};
+void
+ly_display_scm (void *s)
+{
+  scm_display ((SCM)s, scm_current_output_port ());
+  scm_newline (scm_current_output_port ());
+}
 
 string
 ly_scm2string (SCM str)