From 885941ba40b854b714fb793875b2987403ce2c72 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 8 Nov 2004 19:36:00 +0000 Subject: [PATCH] (start_translation_timestep): split scm_cadddr --- ChangeLog | 5 +++++ lily/grace-engraver.cc | 2 +- scm/part-combiner.scm | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 29040fdc35..452f8d5f0b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2004-11-08 Han-Wen Nienhuys + + * lily/grace-engraver.cc (start_translation_timestep): split + scm_cadddr + 2004-11-07 Han-Wen Nienhuys * lily/quote-iterator.cc (Module): remove old quote-iterator diff --git a/lily/grace-engraver.cc b/lily/grace-engraver.cc index 352fc840fd..ee998dda5d 100644 --- a/lily/grace-engraver.cc +++ b/lily/grace-engraver.cc @@ -65,7 +65,7 @@ Grace_engraver::start_translation_timestep () SCM context_name = scm_car (entry); SCM grob = scm_cadr (entry); SCM sym = scm_caddr (entry); - SCM val = scm_cadddr (entry); + SCM val = scm_cadr (scm_cddr (entry)); Context *c = context (); while (c diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm index 94872ae657..5fe821ff5f 100644 --- a/scm/part-combiner.scm +++ b/scm/part-combiner.scm @@ -504,7 +504,7 @@ the mark when there are no spanners active." (context (ly:run-translator (context-spec-music mus 'Voice) part-combine-listener)) (first-voice-handle (last-pair noticed))) - +q ;; (display (last-pair noticed)) (if (pair? first-voice-handle) (hash-set! tab name -- 2.39.2