]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/music-function.cc
* lily/ligature-bracket-engraver: Bugfix: Add missing stream event
[lilypond.git] / lily / music-function.cc
index 4f49a05519775cae7093c7352755cbcfd67468fc..6795ca67d4566c7aa1fb41b01bfaf0a62ccda08d 100644 (file)
@@ -33,28 +33,9 @@ LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
           "Its arguments. @code{signature} is a list containing either "
           "@code{ly:music?} predicates or other type predicates.")
 {
-  extern SCM ly_music_p_proc;
-  
-  String str = "";
-  for (SCM s = signature; scm_is_pair (s); s = scm_cdr (s))
-    {
-      if (str != "")
-       str += "-";
-
-      if (scm_car (s) == ly_music_p_proc)
-       str += "music";
-      else if (scm_car (s) == ly_lily_module_constant ("markup?"))
-       str += "markup";
-      else if (ly_is_procedure (scm_car (s)))
-       str += "scm";
-    }
-  if (str == "") str = "noarg";
   scm_set_object_property_x (func, ly_symbol2scm ("music-function-signature"),
                             signature);
 
-  scm_set_object_property_x (func, ly_symbol2scm ("music-function-signature-keyword"),
-                            ly_symbol2scm (str.c_str ()));
-
   SCM_RETURN_NEWSMOB (music_function_tag, func);
 }