]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/repeat-tie-engraver.cc
Doc: NR - Explain LP footer string is 'tagline'
[lilypond.git] / lily / repeat-tie-engraver.cc
index a1d9c9a803ff2bf8cce709d6d426fb7e866d618a..4eea8e5800ae271fe103da8241a225a1790386c0 100644 (file)
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 2005--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 2005--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 
   LilyPond is free software: you can redistribute it and/or modify
@@ -68,7 +68,7 @@ Repeat_tie_engraver::acknowledge_note_head (Grob_info inf)
 
   if (!semi_tie_column_)
     {
-      semi_tie_column_ = make_item ("RepeatTieColumn", event_->self_scm ());
+      semi_tie_column_ = make_item ("RepeatTieColumn", SCM_EOL);
     }
 
   SCM cause = event_->self_scm ();
@@ -80,9 +80,9 @@ Repeat_tie_engraver::acknowledge_note_head (Grob_info inf)
   semi_tie->set_parent (semi_tie_column_, Y_AXIS);
   semi_ties_.push_back (semi_tie);
 
-  if (is_direction (unsmob_stream_event (cause)->get_property ("direction")))
+  if (is_direction (unsmob<Stream_event> (cause)->get_property ("direction")))
     {
-      Direction d = to_dir (unsmob_stream_event (cause)->get_property ("direction"));
+      Direction d = to_dir (unsmob<Stream_event> (cause)->get_property ("direction"));
       semi_tie->set_property ("direction", scm_from_int (d));
     }