From: Han-Wen Nienhuys Date: Mon, 8 Nov 2004 19:36:00 +0000 (+0000) Subject: (start_translation_timestep): split X-Git-Tag: release/2.5.14~599 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=885941ba40b854b714fb793875b2987403ce2c72;p=lilypond.git (start_translation_timestep): split scm_cadddr --- 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