- SCM proc = scm_primitive_eval (ly_symbol2scm ("midi-program"));
- SCM program = gh_call1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));
+ SCM proc = ly_scheme_function ("midi-program");
+ SCM program = scm_call_1 (proc, ly_symbol2scm (audio_->str_.to_str0 ()));