From d922345d76f194d51a9e0ac00a491034223bbea0 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 5 Feb 2005 16:51:24 +0000 Subject: [PATCH] (simultaneous_relative_callback): do what-if analysis on copy, not on original. Fixes old-relative compatibility. --- ChangeLog | 4 ++++ lily/music-sequence.cc | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 17f736cc45..221d3b7fd7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2005-02-05 Han-Wen Nienhuys + * lily/music-sequence.cc (simultaneous_relative_callback): do + what-if analysis on copy, not on original. Fixes old-relative + compatibility. + * scm/backend-library.scm (postscript->png): space before --verbose. diff --git a/lily/music-sequence.cc b/lily/music-sequence.cc index f81a2069ad..7ce0568bb1 100644 --- a/lily/music-sequence.cc +++ b/lily/music-sequence.cc @@ -152,12 +152,17 @@ Music_sequence::simultaneous_relative_callback (SCM music, SCM pitch) Music *me = unsmob_music (music); Pitch p = *unsmob_pitch (pitch); - SCM elts = me->get_property ("elements"); + SCM elts = me->get_property ("elements"); + SCM copied = SCM_EOL; + if (lily_1_8_relative) + copied = ly_music_deep_copy (elts); Pitch retval = music_list_to_relative (elts, p, false); + if (lily_1_8_relative) { - Pitch retval_1_8 = music_list_to_relative (elts, p, true); + + Pitch retval_1_8 = music_list_to_relative (copied, p, true); if (retval_1_8 != retval) lily_1_8_compatibility_used = true; -- 2.39.5