release: 1.3.81

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

diff --git a/lily/dynamic-performer.cc b/lily/dynamic-performer.cc
index f51ae2beb67cd805e5c1b74ea83c9f6813ab9db7..3ed300021e056ac87647595b3b16706c7f9bbbaf 100644 (file)
--- a/lily/dynamic-performer.cc
+++ b/lily/dynamic-performer.cc
@@ -66,12 +66,13 @@ Dynamic_performer::do_process_music ()
   if (text_script_req_l_)
     {
       
-      SCM s = scm_eval
+      SCM s = scm_eval2
        (gh_list
         (ly_symbol2scm ("dynamic-absolute-volume"),
          ly_quote_scm (ly_str02scm (text_script_req_l_->text_str_.ch_C ())),
-         SCM_UNDEFINED));
-      Real volume = gh_scm2double (scm_eval (ly_symbol2scm ("dynamic-default-volume")));
+         SCM_UNDEFINED),
+        SCM_EOL);
+      Real volume = gh_scm2double (scm_eval2 (ly_symbol2scm ("dynamic-default-volume"), SCM_EOL));
       if (gh_number_p (s))
        volume = gh_scm2double (s);
       
@@ -103,8 +104,9 @@ Dynamic_performer::do_process_music ()
            s = ly_str02scm ("piano");
          
          
-         s = scm_eval (gh_list (ly_symbol2scm ("instrument-equaliser"),
-                                s, SCM_UNDEFINED));
+         s = scm_eval2 (gh_list (ly_symbol2scm ("instrument-equaliser"),
+                                s, SCM_UNDEFINED),
+                        SCM_EOL);
          if (gh_pair_p (s))
            {
              Interval iv;