]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/dynamic-performer.cc
* lily/include/lily-guile.hh: is_x -> ly_c_X_p naming.
[lilypond.git] / lily / dynamic-performer.cc
index 1b3aa246ee4ecb48591ff987c7cb19eb1a1853de..53e8a5e0d4392475d8a26eb9c49b0a4dbe4da1d7 100644 (file)
@@ -46,7 +46,7 @@ Dynamic_performer::create_audio_elements ()
       SCM proc = get_property ("dynamicAbsoluteVolumeFunction");
 
       SCM svolume  = SCM_EOL;
-      if (is_procedure (proc))
+      if (ly_c_procedure_p (proc))
        {
          // urg
          svolume = scm_call_1 (proc, script_req_->get_property ("text"));
@@ -83,7 +83,7 @@ Dynamic_performer::create_audio_elements ()
          
          
          SCM eq = get_property ("instrumentEqualizer");
-         if (is_procedure (eq))
+         if (ly_c_procedure_p (eq))
            {
              s = scm_call_1 (eq, s);
            }