Merge branch 'master' of git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond into jneeman

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

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index f89d42194d04324ac4a636838552fd6af66f04d8..084ea42fbdb60ede609beddcf35b61cf8889f876 100644 (file)
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -83,7 +83,6 @@ Grob::get_property_alist_chain (SCM def) const
                     SCM_UNDEFINED);
 }
 
-
 extern void check_interfaces_for_property (Grob const *me, SCM sym);
 
 void
@@ -289,37 +288,3 @@ call_pure_function (SCM unpure, SCM args, int start, int end)
                      scm_list_4 (unpure, args, scm_from_int (start), scm_from_int (end)));
 }
 
-
-/*
-  PROP_PATH should be big-to-small ordering
- */
-SCM 
-nested_property_alist (SCM alist, SCM prop_path, SCM value)
-{
-  SCM new_value = SCM_BOOL_F;
-  if (scm_is_pair (scm_cdr (prop_path)))
-    {
-      SCM sub_alist = ly_assoc_get (scm_car (prop_path), alist, SCM_EOL);
-      new_value = nested_property_alist (sub_alist, scm_cdr (prop_path), value);
-    }
-  else
-    {
-      new_value = value;
-    }
-  
-  return scm_acons (scm_car (prop_path), new_value, alist);
-}
-
-
-void
-set_nested_property (Grob *me, SCM property_path, SCM value)
-{
-  SCM big_to_small = scm_reverse (property_path);
-  SCM alist = me->get_property (scm_car (big_to_small));
-
-  alist = nested_property_alist (alist, scm_cdr (big_to_small), value);
-  
-  me->set_property (scm_car (big_to_small),
-                   alist);
-}
-