X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finstrument-switch-engraver.cc;h=67a58c7e6fca4ebec53bc57ec8f61b409fa12769;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=717d06d6776ba2119febe790733692d3011b4659;hpb=bc95f4434f760d41191341ab4508b2064eb19025;p=lilypond.git diff --git a/lily/instrument-switch-engraver.cc b/lily/instrument-switch-engraver.cc index 717d06d677..67a58c7e6f 100644 --- a/lily/instrument-switch-engraver.cc +++ b/lily/instrument-switch-engraver.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2006--2010 Han-Wen Nienhuys + Copyright (C) 2006--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify @@ -21,8 +21,8 @@ #include "engraver.hh" #include "item.hh" #include "text-interface.hh" -#include "translator.icc" +#include "translator.icc" class Instrument_switch_engraver : public Engraver { @@ -34,8 +34,15 @@ protected: void stop_translation_time_step (); void process_music (); + + virtual void derived_mark () const; }; +void +Instrument_switch_engraver::derived_mark () const +{ + scm_gc_mark (cue_name_); +} Instrument_switch_engraver::Instrument_switch_engraver () { @@ -50,7 +57,7 @@ void Instrument_switch_engraver::process_music () { SCM cue_text = get_property ("instrumentCueName"); - + if (!scm_is_eq (cue_name_, cue_text)) { if (Text_interface::is_markup (cue_text)) @@ -69,15 +76,15 @@ Instrument_switch_engraver::stop_translation_time_step () } ADD_TRANSLATOR (Instrument_switch_engraver, - /* doc */ - "Create a cue text for taking instrument.", - - /* create */ - "InstrumentSwitch ", - - /* read */ - "instrumentCueName ", - - /* write */ - "" - ); + /* doc */ + "Create a cue text for taking instrument.", + + /* create */ + "InstrumentSwitch ", + + /* read */ + "instrumentCueName ", + + /* write */ + "" + );