- Pitch first;
- int count=0;
-
- Pitch last = p;
- for (SCM s = music_list (); gh_pair_p (s); s = ly_cdr (s))
- {
- if (Music *m = unsmob_music (ly_car (s)))
- {
- last = m->to_relative_octave (last);
- if (!count ++)
- first = last;
- }
- }
-
- if (count && first != last)
- {
- String str = _("Changing relative definition may cause octave change.");
- str += "\nWas: " + first.to_string ()
- + " -- now returning: " + last.to_string () + "\n";
-
- origin()->warning (str);
- }
-
- return last;
+ if (lily_1_8_relative)
+ lily_1_8_compatibility_used = true;
+
+ return music_list_to_relative (music_list(), p, lily_1_8_relative);