X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-dispatch-list.cc;h=5174bb33d3859129ab6386520b36e4e61ef07f1c;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=1c5c94d667a74f27fa4d9554227de033f95d9944;hpb=bb8a0a5387af94dd2702877256334b160575a730;p=lilypond.git diff --git a/lily/translator-dispatch-list.cc b/lily/translator-dispatch-list.cc index 1c5c94d667..5174bb33d3 100644 --- a/lily/translator-dispatch-list.cc +++ b/lily/translator-dispatch-list.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2005--2011 Han-Wen Nienhuys + Copyright (C) 2005--2015 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 @@ -20,7 +20,6 @@ #include "translator-dispatch-list.hh" #include "engraver.hh" -#include "ly-smobs.icc" void Engraver_dispatch_list::apply (Grob_info gi) @@ -32,7 +31,7 @@ Engraver_dispatch_list::apply (Grob_info gi) if (e.engraver_ == origin) continue; - (*e.function_) (e.engraver_, gi); + (e.engraver_->*e.function_) (gi); } } @@ -48,7 +47,7 @@ Engraver_dispatch_list::create (SCM trans_list, for (SCM s = trans_list; scm_is_pair (s); s = scm_cdr (s)) { Engraver *eng - = dynamic_cast (unsmob_translator (scm_car (s))); + = dynamic_cast (Translator::unsmob (scm_car (s))); if (!eng) continue; @@ -72,21 +71,3 @@ Engraver_dispatch_list::create (SCM trans_list, return found ? retval : SCM_EOL; } - -SCM -Engraver_dispatch_list::mark_smob (SCM) -{ - return SCM_BOOL_F; -} - -int -Engraver_dispatch_list::print_smob (SCM /* x */, - SCM p, - scm_print_state *) -{ - scm_puts ("#", p); - return 1; -} - -IMPLEMENT_SIMPLE_SMOBS (Engraver_dispatch_list); -IMPLEMENT_DEFAULT_EQUAL_P (Engraver_dispatch_list);