(get_curve): always use scm_is_pair() looping

[lilypond.git] / lily / mensural-ligature.cc

diff --git a/lily/mensural-ligature.cc b/lily/mensural-ligature.cc
index c327da0b551d3c7455302b5db73e1d20c7c58fca..936f64b877b90d965d8c4d4ab860d9ca10463389 100644 (file)
--- 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 (join_right_scm != SCM_EOL)
+  if (scm_is_pair (join_right_scm))
     {
       int join_right = scm_to_int (join_right_scm);
       if (join_right)