From: Jürgen Reuter <j@web.de>
Date: Thu, 12 Oct 2006 18:43:34 +0000 (+0000)
Subject: 	* lily/mensural-ligature.cc (internal_brew_primitive): Bugfix:
X-Git-Tag: release/2.10.0-2~185
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2f349394e0fc16f713529b297778478ac816e4b;p=lilypond.git

	* lily/mensural-ligature.cc (internal_brew_primitive): Bugfix:
	fix Han-Wen's fix (rev. 1.53): scm_is_pair -> scm_is_number.
---

diff --git a/ChangeLog b/ChangeLog
index f49e22c735..75231efbec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -58,6 +58,9 @@
 	* Documentation/user/instrument-notation.itely: Tune Ancient
 	Articulations figure, such that the episem actually shows.
 
+	* lily/mensural-ligature.cc (internal_brew_primitive): Bugfix:
+	fix Han-Wen's fix (rev. 1.53): scm_is_pair -> scm_is_number.
+
 2006-10-12  Graham Percival  <gpermus@gmail.com>
 
 	* Documentation/user/ {some}: minor edits that were lost somehow.
diff --git a/lily/mensural-ligature.cc b/lily/mensural-ligature.cc
index 936f64b877..5f1d0e6df1 100644
--- a/lily/mensural-ligature.cc
+++ b/lily/mensural-ligature.cc
@@ -167,7 +167,7 @@ internal_brew_primitive (Grob *me)
 
   SCM join_right_scm = me->get_property ("join-right-amount");
 
-  if (scm_is_pair (join_right_scm))
+  if (scm_is_number (join_right_scm))
     {
       int join_right = scm_to_int (join_right_scm);
       if (join_right)