* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / sequential-iterator.cc

diff --git a/lily/sequential-iterator.cc b/lily/sequential-iterator.cc
index 9c88c4e88aa49e175da2763599e0aae5b4c2db27..2e7deb71d358f97ab7ddc6663df47befc397a6a6 100644 (file)
--- a/lily/sequential-iterator.cc
+++ b/lily/sequential-iterator.cc
@@ -23,7 +23,7 @@
   Invariant for the data structure.
 
 
-  if (gh_pair_p (cursor_))
+  if (ly_pair_p (cursor_))
     iter_->music_ == unsmob_music (ly_car (cursor_))
   else
     iter_ == 0;
@@ -85,7 +85,7 @@ create_grace_fixup_list (SCM cursor)
   Grace_fixup *head = 0;
   Grace_fixup **tail = &head;
 
-  for (; gh_pair_p (cursor); cursor = ly_cdr (cursor))
+  for (; ly_pair_p (cursor); cursor = ly_cdr (cursor))
     {
       Music *mus = unsmob_music (ly_car (cursor));
       Moment s = mus->start_mom ();
@@ -123,7 +123,7 @@ Sequential_iterator::construct_children ()
   cursor_ = get_music_list ();
 
   iter_ = 0;
-  if (gh_pair_p (cursor_))
+  if (ly_pair_p (cursor_))
     {
       Music *m = unsmob_music (ly_car (cursor_));
       iter_ = unsmob_iterator (get_iterator (m));
@@ -188,7 +188,7 @@ Sequential_iterator::next_element (bool)
   cursor_ = ly_cdr (cursor_);
 
   iter_->quit ();
-  if (gh_pair_p (cursor_))
+  if (ly_pair_p (cursor_))
     iter_ = unsmob_iterator (get_iterator (unsmob_music (ly_car (cursor_))));
   else
     iter_ = 0;