axis-group-interface: test result of dynamic-cast; issue 4302

[lilypond.git] / lily / music-function.cc

diff --git a/lily/music-function.cc b/lily/music-function.cc
index da0860b9fe770f0a6a6b8d20b2fb8fce98809e62..d8f7d3a27cde9768bb489431ef62def04da65e26 100644 (file)
--- a/lily/music-function.cc
+++ b/lily/music-function.cc
@@ -27,7 +27,7 @@ const char Music_function::type_p_name_[] = "ly:music-function?";
 
 /* Print a textual represenation of the smob to a given port.  */
 int
-Music_function::print_smob (SCM port, scm_print_state *)
+Music_function::print_smob (SCM port, scm_print_state *) const
 {
   scm_puts ("#<Music function ", port);
   scm_write (get_function (), port);