From: hanwen <hanwen>
Date: Tue, 3 May 2005 12:26:45 +0000 (+0000)
Subject: (get_default_child): new function.
X-Git-Tag: release/2.5.23~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ff197c74529b42e0a074ff239a67f8d5a31ffa60;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