* lily/output-def-scheme.cc: new file.

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

diff --git a/lily/music-function.cc b/lily/music-function.cc
index 31ff12dcb8937fb38d2e916e1df4c2e823a5f903..46ac068575c92f0dce211807c0f5378fb167954c 100644 (file)
--- a/lily/music-function.cc
+++ b/lily/music-function.cc
@@ -6,8 +6,9 @@
   (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
   
 */
+
 #include "music-function.hh"
-#include "string.hh"
+
 #include "music.hh"
 
 static scm_t_bits music_function_tag;
@@ -42,7 +43,7 @@ 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?"))
+      else if (scm_car (s) == ly_lily_module_constant("markup?"))
        str += "markup";
       else if (ly_c_procedure_p (scm_car (s)))
        str += "scm";