]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/staff-performer.cc
* lily/modified-font-metric.cc (text_dimension): try
[lilypond.git] / lily / staff-performer.cc
index ffc0cb7358788eb368e008b91d8a8e6ac5ae7ddb..ee168faa824cb99f45b24378d87ac1ab08250684 100644 (file)
@@ -96,7 +96,7 @@ Staff_performer::create_audio_elements ()
 void
 Staff_performer::stop_translation_timestep ()
 {
-  SCM proc = ly_scheme_function ("percussion?");
+  SCM proc = ly_lily_module_constant ("percussion?");
   
   SCM drums = scm_call_1 (proc, ly_symbol2scm (instrument_string_.to_str0 ()));
   audio_staff_->channel_ = (drums == SCM_BOOL_T ? 9 : -1 );