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

[lilypond.git] / lily / lyric-combine-music.cc

diff --git a/lily/lyric-combine-music.cc b/lily/lyric-combine-music.cc
index 916510732b4cc9425ba9fdefda8754c672cff732..420677d9047f49b35d1fd098e261d8b47088c13a 100644 (file)
--- a/lily/lyric-combine-music.cc
+++ b/lily/lyric-combine-music.cc
@@ -25,9 +25,9 @@ Music*
 Lyric_combine_music::get_music () const
 {
   SCM l = get_property ("elements");
-  if (!gh_pair_p (l))
+  if (!ly_pair_p (l))
     return 0;
-  return unsmob_music (gh_car (l));
+  return unsmob_music (ly_car (l));
 }
 
 
@@ -35,12 +35,12 @@ Music*
 Lyric_combine_music::get_lyrics () const
 {
   SCM l = get_property ("elements");
-  if (!gh_pair_p (l))
+  if (!ly_pair_p (l))
     return 0;
-  l = gh_cdr (l);
-  if (!gh_pair_p (l))
+  l = ly_cdr (l);
+  if (!ly_pair_p (l))
     return 0;
-  return unsmob_music (gh_car (l));
+  return unsmob_music (ly_car (l));
 }