(get_default_child): new function.

(get_accepted): place default child in front of list.

diff --git a/lily/context-def.cc b/lily/context-def.cc
index cf01d38dcda0900b8b10f7d1b11bc4b26a99fb6f..a17eb49954d38e43a249e0be5d2ad48982627d3c 100644 (file)
--- a/lily/context-def.cc
+++ b/lily/context-def.cc
@@ -112,7 +112,7 @@ Context_def::add_context_mod (SCM mod)
 
   if (ly_symbol2scm ("default-child") == tag)
     {
-      default_child_ = scm_cadr (mod);
+      default_child_ = sym;
     }
   else if (ly_symbol2scm ("consists") == tag
       || ly_symbol2scm ("consists-end") == tag