patch::: 1.5.4.jcn4

[lilypond.git] / lily / staff-performer.cc

diff --git a/lily/staff-performer.cc b/lily/staff-performer.cc
index f79bf760f28a37576cd4dec5b9c6a9e31040dbef..aee7edc6a0e05c96651110648e90880c3b4c6468 100644 (file)
--- a/lily/staff-performer.cc
+++ b/lily/staff-performer.cc
@@ -91,7 +91,7 @@ Staff_performer::create_audio_elements ()
 void
 Staff_performer::stop_translation_timestep ()
 {
-  SCM proc = scm_eval2 (ly_symbol2scm ("percussion-p"), SCM_EOL); 
+  SCM proc = scm_primitive_eval (ly_symbol2scm ("percussion-p")); 
   SCM drums_p = gh_call1 (proc, ly_symbol2scm (instrument_str_.ch_C()));
   audio_staff_p_->channel_i_ = (drums_p == SCM_BOOL_T ? 9 : -1 );
   if (name_p_)