X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcontext-def.cc;h=83da70df60b5c7f5f5f4754f6ad355cad9e02cff;hb=ba7dd825738031e7c1f9ec7787594ad78f2442ee;hp=37690fd61a096d7c8a21f7fe777924b36393d431;hpb=a6a4b3fc2009f17a1a48cca0c11bfd3f38645937;p=lilypond.git diff --git a/lily/context-def.cc b/lily/context-def.cc index 37690fd61a..83da70df60 100644 --- a/lily/context-def.cc +++ b/lily/context-def.cc @@ -1,9 +1,20 @@ /* - context-def.cc -- implement Context_def + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2000--2009 Han-Wen Nienhuys - (c) 2000--2008 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ /* TODO: should junk this class an replace by @@ -123,12 +134,11 @@ Context_def::add_context_mod (SCM mod) if (ly_symbol2scm ("default-child") == tag) default_child_ = sym; else if (ly_symbol2scm ("consists") == tag - || ly_symbol2scm ("consists-end") == tag || ly_symbol2scm ("remove") == tag) { if (!get_translator (sym)) - error (_f ("program has no such type: `%s'", - ly_symbol2string (sym).c_str ())); + warning (_f ("program has no such type: `%s'", + ly_symbol2string (sym).c_str ())); else translator_mods_ = scm_cons (scm_list_2 (tag, sym), translator_mods_); } @@ -286,7 +296,8 @@ Context_def::get_translator_names (SCM user_mod) const if (ly_symbol2scm ("consists") == tag) l1 = scm_cons (arg, l1); - else if (ly_symbol2scm ("remove") == tag) + else if (ly_symbol2scm ("remove") == tag + && get_translator (arg)) l1 = scm_delete_x (arg, l1); }