X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob-closure.cc;h=124d1437932c034f7fa5e2ba1dd5195585dac6ad;hb=81abebcfecdb22d2e7b6b8e2a6d9f758aa45a13a;hp=b2d0160adaf175942ff0e1e5a057cf7d57ff1dff;hpb=13a8e28de140702edbb0629002073972008e17ad;p=lilypond.git diff --git a/lily/grob-closure.cc b/lily/grob-closure.cc index b2d0160ada..124d143793 100644 --- a/lily/grob-closure.cc +++ b/lily/grob-closure.cc @@ -67,9 +67,9 @@ add_offset_callback (Grob *g, SCM proc, Axis a) */ void -chain_offset_callback (Grob *g, SCM proc, Axis a) +chain_callback (Grob *g, SCM proc, SCM sym) { - SCM data = g->get_property_data (axis_offset_symbol (a)); + SCM data = g->get_property_data (sym); if (ly_is_procedure (data)) data = ly_make_simple_closure (scm_list_1 (data)); @@ -84,9 +84,15 @@ chain_offset_callback (Grob *g, SCM proc, Axis a) data = SCM_UNDEFINED; SCM expr = scm_list_2 (proc, data); - g->set_property (axis_offset_symbol (a), + g->set_property (sym, // twice: one as a wrapper for grob property routines, // once for the actual delayed binding. ly_make_simple_closure (ly_make_simple_closure (expr))); } + +void +chain_offset_callback (Grob *g, SCM proc, Axis a) +{ + chain_callback (g, proc, axis_offset_symbol (a)); +}