From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 21 May 2007 01:31:13 +0000 (-0300)
Subject: fix calling convention for tab formatter.
X-Git-Tag: release/2.10.25-1
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=11863dc310f28e5972f4d3a59ce28587a9677b9c;p=lilypond.git

fix calling convention for tab formatter.
---

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);