Fix rest-dot-position.ly

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

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index f72a523225b4497cc9e7ea1db6dfd37fa8739c8e..d7f29aed3db1e29b7d9ade31f27ed6178dad5f64 100644 (file)
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -25,6 +25,16 @@ Protected_scm grob_property_callback_stack = SCM_EOL;
 
 #ifndef NDEBUG
 extern bool debug_property_callbacks;
+
+static void
+print_property_callback_stack ()
+{
+  int frame = 0;
+  for (SCM s = grob_property_callback_stack; scm_is_pair (s); s = scm_cdr (s))
+    message (_f ("%d: %s", frame++, ly_scm_write_string (scm_car (s)).c_str ()));
+}
+
+
 static SCM modification_callback = SCM_EOL;
 static SCM cache_callback = SCM_EOL;
 
@@ -60,6 +70,7 @@ LY_DEFINE (ly_set_property_cache_callback, "ly:set-property-cache-callback",
   cache_callback = cb;
   return SCM_UNSPECIFIED;
 }
+#endif
 
 void
 Grob::instrumented_set_property (SCM sym, SCM v,
@@ -67,6 +78,7 @@ Grob::instrumented_set_property (SCM sym, SCM v,
                                 int line,
                                 char const *fun)
 {
+#ifndef NDEBUG
   if (ly_is_procedure (modification_callback))
     scm_apply_0 (modification_callback,
                 scm_list_n (self_scm (),
@@ -74,9 +86,10 @@ Grob::instrumented_set_property (SCM sym, SCM v,
                             scm_from_int (line),
                             scm_from_locale_string (fun),
                             sym, v, SCM_UNDEFINED));
+#endif
+  
   internal_set_property (sym, v);
 }
-#endif
 
 SCM
 Grob::get_property_alist_chain (SCM def) const
@@ -143,14 +156,6 @@ Grob::internal_get_property_data (SCM sym) const
   return (handle == SCM_BOOL_F) ? SCM_EOL : scm_cdr (handle);
 }
 
-static void
-print_property_callback_stack ()
-{
-  int frame = 0;
-  for (SCM s = grob_property_callback_stack; scm_is_pair (s); s = scm_cdr (s))
-    message (_f ("%d: %s", frame++, ly_scm_write_string (scm_car (s)).c_str ()));
-}
-
 SCM
 Grob::internal_get_property (SCM sym) const
 {