Doc-de: update webpage

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 6ddcad079ba749924f0a6d93cd4b56253e48675d..96097e4cf0058bb8205ad83d9159ba88ce6d5a7e 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -581,10 +581,12 @@ SCM
 ly_rational2scm (Rational r)
 {
   if (r.is_infinity ())
-    if (r > Rational(0))
-      return scm_inf ();
-    else
+    {
+      if (r > Rational(0))
+       return scm_inf ();
+
       return scm_difference (scm_inf (), SCM_UNDEFINED);
+    }
 
   return scm_divide (scm_from_int64 (r.numerator ()),
                      scm_from_int64 (r.denominator ()));
@@ -616,14 +618,20 @@ ly_scm2rational (SCM r)
 Rational
 robust_scm2rational (SCM n, Rational rat)
 {
-  if (scm_is_real (n)
-      && (scm_is_true (scm_exact_p (n))
-         || scm_is_true (scm_inf_p (n))))
+  if (ly_is_rational (n))
     return ly_scm2rational (n);
   else
     return rat;
 }
 
+bool
+ly_is_rational (SCM n)
+{
+  return (scm_is_real (n)
+         && (scm_is_true (scm_exact_p (n))
+             || scm_is_true (scm_inf_p (n))));
+}
+
 SCM
 alist_to_hashq (SCM alist)
 {