Fix some bugs in the dynamic engraver and PostScript backend

[lilypond.git] / lily / grob-closure.cc

diff --git a/lily/grob-closure.cc b/lily/grob-closure.cc
index a3075e2cd1e4eb2ad733ab71f6884132728519e5..81bd393adb98de880c1a05e26a77dc16b9fe30dc 100644 (file)
--- a/lily/grob-closure.cc
+++ b/lily/grob-closure.cc
@@ -48,9 +48,11 @@ add_offset_callback (Grob *g, SCM proc, Axis a)
     data = simple_closure_expression (data);
 
   SCM plus = ly_lily_module_constant ("+");
-  SCM expr = scm_list_3 (plus,
-                        ly_make_simple_closure (scm_list_1 (proc)),
-                        data);
+
+  if (ly_is_procedure (proc))
+    proc = ly_make_simple_closure (scm_list_1 (proc));
+  
+  SCM expr = scm_list_3 (plus, proc, data);
   g->internal_set_property (axis_offset_symbol (a),
                            ly_make_simple_closure (expr));
 }