*** empty log message ***

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

diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc
index 163f9256e5a67f4f94bbcd8fd31e762029140401..8e0affdf282c19bb2a6457f77c1656f43e0865b7 100644 (file)
--- a/lily/quote-iterator.cc
+++ b/lily/quote-iterator.cc
@@ -100,7 +100,7 @@ Quote_iterator::construct_children ()
   start_moment_ = now;
   event_vector_ = get_music ()->get_property ("quoted-events");
 
-  if (is_vector (event_vector_))
+  if (ly_c_vector_p (event_vector_))
     {
       event_idx_ = binsearch_scm_vector (event_vector_, now.smobbed_copy (), &moment_less);
       end_idx_ = binsearch_scm_vector (event_vector_, stop.smobbed_copy (), &moment_less);
@@ -144,12 +144,12 @@ Quote_iterator::process (Moment m)
       event_idx_++;
     }
 
-  if (is_pair (entry))
+  if (ly_c_pair_p (entry))
     {
       Pitch * quote_pitch = unsmob_pitch (ly_cdar (entry));
       Pitch * me_pitch = unsmob_pitch (get_outlet ()->get_property ("instrumentTransposition"));
       
-      for (SCM s = ly_cdr (entry); is_pair (s); s = ly_cdr (s))
+      for (SCM s = ly_cdr (entry); ly_c_pair_p (s); s = ly_cdr (s))
        {
          SCM ev_acc = ly_car (s);