From 11863dc310f28e5972f4d3a59ce28587a9677b9c Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 20 May 2007 22:31:13 -0300 Subject: [PATCH] fix calling convention for tab formatter. --- lily/tab-note-heads-engraver.cc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lily/tab-note-heads-engraver.cc b/lily/tab-note-heads-engraver.cc index 8871ba4b2d..2e43f28bbc 100644 --- a/lily/tab-note-heads-engraver.cc +++ b/lily/tab-note-heads-engraver.cc @@ -96,9 +96,9 @@ Tab_note_heads_engraver::process_music () if (tabstring_event) string_number = scm_to_int (tabstring_event->get_property ("string-number")); + SCM scm_pitch = event->get_property ("pitch"); if (!string_number) { - SCM scm_pitch = event->get_property ("pitch"); int min_fret = robust_scm2int (get_property ("minimumFret"), 0); int start = (high_string_one) ? 1 : string_count; int end = (high_string_one) ? string_count : 1; @@ -123,8 +123,8 @@ Tab_note_heads_engraver::process_music () { SCM proc = get_property ("tablatureFormat"); SCM text = scm_call_3 (proc, scm_from_int (string_number), - context ()->self_scm (), - event->self_scm ()); + string_tunings, + scm_pitch); Item *note = make_item ("TabNoteHead", event->self_scm ()); note->set_property ("text", text); -- 2.39.2