Index: lily/grob-closure.cc |
diff --git a/lily/grob-closure.cc b/lily/grob-closure.cc |
index 4c63fe3c0c55436c4a608e0747582ff026c6ffd7..049522dff8e2d4054489b5812e6d3ec1050434bf 100644 |
--- a/lily/grob-closure.cc |
+++ b/lily/grob-closure.cc |
@@ -19,41 +19,6 @@ axis_parent_positioning (Axis a) |
} |
/* |
- Replace |
- |
- (orig-proc GROB) |
- |
- by |
- |
- (+ (PROC GROB) (orig-proc GROB)) |
-*/ |
-void |
-add_offset_callback (Grob *g, SCM proc, Axis a) |
-{ |
- SCM data = g->get_property_data (axis_offset_symbol (a)); |
- if (!scm_is_number (data) |
- && !ly_is_procedure (data) |
- && !is_simple_closure (data)) |
- { |
- g->set_property (axis_offset_symbol (a), proc); |
- return; |
- } |
- |
- if (ly_is_procedure (data) || is_unpure_pure_container (data)) |
- data = ly_make_simple_closure (scm_list_1 (data)); |
- else if (is_simple_closure (data)) |
- data = simple_closure_expression (data); |
- |
- SCM plus = ly_lily_module_constant ("+"); |
- |
- if (ly_is_procedure (proc)) |
- proc = ly_make_simple_closure (scm_list_1 (proc)); |
- |
- SCM expr = scm_list_3 (plus, proc, data); |
- g->set_property (axis_offset_symbol (a), ly_make_simple_closure (expr)); |
-} |
- |
-/* |
replace |
(orig-proc GROB) |