*** empty log message ***

diff --git a/lily/context-property.cc b/lily/context-property.cc
index 45dccdc05c6a5b8b609537cb5e3b2e814b5f3095..68f8f5035e3c31380d5cc93150200a5891f07466 100644 (file)
--- a/lily/context-property.cc
+++ b/lily/context-property.cc
@@ -14,6 +14,7 @@
 #include "spanner.hh"
 #include "warn.hh"
 #include "paper-column.hh"
+#include "simple-closure.hh"
 
 SCM
 lookup_nested_property (SCM alist,
@@ -137,7 +138,7 @@ execute_general_pushpop_property (Context *context,
       if (!scm_is_pair (scm_cdr (grob_property_path)))
        {
          if (!ly_is_procedure (new_value)
-             && !is_callback_chain (new_value))
+             && !is_simple_closure (new_value))
            ok = type_check_assignment (symbol, new_value,
                                        ly_symbol2scm ("backend-type?"));
 

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index 5d4d03fe34edb969f25b768fcec50a401936e3a8..38306c536b01fe84367e13b16c2545259f3d166c 100644 (file)
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -102,7 +102,6 @@ Grob::internal_get_property (SCM sym) const
 {
   SCM val = get_property_data (sym);
   if (ly_is_procedure (val)
-      || is_callback_chain (val)
       || is_simple_closure (val))
     {
       val = ((Grob*)this)->try_callback (sym, val);