From: Rune Zedeler <rune@lilypond.org>
Date: Tue, 17 Sep 2002 16:47:31 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.0~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c419fba51d06d4ac4f615486f292d3c89bc879c;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/accidental-engraver.cc b/lily/accidental-engraver.cc
index 3a610ce30c..6a566d0423 100644
--- a/lily/accidental-engraver.cc
+++ b/lily/accidental-engraver.cc
@@ -241,7 +241,7 @@ Accidental_engraver::process_acknowledged_grobs ()
       SCM barnum = get_property ("currentBarNumber");
       SCM smp = get_property("measurePosition");
       Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
-      if(mp<0 && gh_number_p(barnum)) barnum = gh_int2scm(gh_scm2int(barnum)-1);
+      if(mp<0 && gh_number_p(barnum)) barnum = scm_int2num(gh_scm2int(barnum)-1);
       bool extra_natural_b = get_property ("extraNatural") == SCM_BOOL_T;
       for (int i = 0; i  < accidentals_.size (); i++) 
 	{