X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fglobal-context.cc;h=f0f138f324336c338543c737c924610b0573d0b4;hb=a281c854e3d3fa55dda8c72dae42f386455a3cb0;hp=5aa70669dd259711b9daf4dae30bc3405a09ab64;hpb=956fae8eca8bd56b40f3dae7dc9da0504ffa7c5f;p=lilypond.git

diff --git a/lily/global-context.cc b/lily/global-context.cc
index 5aa70669dd..f0f138f324 100644
--- a/lily/global-context.cc
+++ b/lily/global-context.cc
@@ -181,9 +181,7 @@ Global_context::apply_finalizations ()
   SCM lst = get_property ("finalizations");
   set_property ("finalizations", SCM_EOL);
   for (SCM s = lst; scm_is_pair (s); s = scm_cdr (s))
-
-    /* TODO: make safe.  */
-    scm_primitive_eval (scm_car (s));
+    scm_apply_0 (scm_caar (s), scm_cdar (s));
 }
 
 /* Add a function to execute before stepping to the next time step.  */