* lily/music-function.cc (ly_make_music_function): when an

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

diff --git a/lily/music-function.cc b/lily/music-function.cc
index e496ec6838f38b727fb1d13ea9a8ba76e33c3b23..31ff12dcb8937fb38d2e916e1df4c2e823a5f903 100644 (file)
--- a/lily/music-function.cc
+++ b/lily/music-function.cc
@@ -42,6 +42,8 @@ LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
       
       if (scm_car (s) == Music_type_p_proc)
        str += "music";
+      else if (scm_car (s) == ly_scheme_function("markup?"))
+       str += "markup";
       else if (ly_c_procedure_p (scm_car (s)))
        str += "scm";
     }