From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 3 May 2005 12:26:45 +0000 (+0000)
Subject: (get_default_child): new function.
X-Git-Tag: release/2.5.22~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=efb31db9ee31a5e454ec5e421491742ae0e1f2fe;p=lilypond.git

(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 cf01d38dcd..a17eb49954 100644
--- 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