X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Funpure-pure-container.cc;fp=lily%2Funpure-pure-container.cc;h=9b2f871769356ea1de2f47900d8a5a6fb5ffb037;hb=0364212c01e7874c7f729f5c7080b58464d1b68a;hp=05e9c4bcc8ea0d1f1f8db9dee1796f2789f297ba;hpb=ac45f7744dddc9831f5db3705dd3539cc6763bc2;p=lilypond.git

diff --git a/lily/unpure-pure-container.cc b/lily/unpure-pure-container.cc
index 05e9c4bcc8..9b2f871769 100644
--- a/lily/unpure-pure-container.cc
+++ b/lily/unpure-pure-container.cc
@@ -137,7 +137,7 @@ void init_unpure_pure_container ()
   unpure_pure_call_tag = scm_make_smob_type ("unpure-pure-call", 0);
   scm_set_smob_mark (unpure_pure_call_tag, scm_markcdr);
   scm_set_smob_apply (unpure_pure_call_tag,
-                      (SCM (*)()) apply_unpure_pure, 2, 0, 1);
+                      (scm_t_subr) apply_unpure_pure, 2, 0, 1);
 };
 
 ADD_SCM_INIT_FUNC (unpure_pure_container, init_unpure_pure_container);