FIXME: fix build issue temporarily (bug 31488)

This is fmod W/A till upstream patch is ready, which should be

File: /usr/lib/libm.a(w_fmod.o)
    12: 00000000   112 FUNC    WEAK   DEFAULT    2 fmod

File: /usr/lib/libm.a(w_fmodf.o)
    11: 00000000   107 FUNC    WEAK   DEFAULT    2 fmodf

Change-Id: I28e758c3f9908ee2a778e33df8105ce65d823d2b
Signed-off-by: Dongkyun Son <dongkyun.s@samsung.com>

diff --git a/libguile/numbers.c b/libguile/numbers.c
index 13223f8cbe63f36ecda52d70f307afad2e236b95..5004c2a4a19c1a35bb63368559270990e1e532d6 100644 (file)
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -725,7 +725,7 @@ SCM_PRIMITIVE_GENERIC (scm_odd_p, "odd?", 1, 0, 0,
       double val = SCM_REAL_VALUE (n);
       if (isfinite (val))
        {
-         double rem = fabs (fmod (val, 2.0));
+         double rem = fabs (fmodl (val, 2.0));
          if (rem == 1.0)
            return SCM_BOOL_T;
          else if (rem == 0.0)
@@ -759,7 +759,7 @@ SCM_PRIMITIVE_GENERIC (scm_even_p, "even?", 1, 0, 0,
       double val = SCM_REAL_VALUE (n);
       if (isfinite (val))
        {
-         double rem = fabs (fmod (val, 2.0));
+         double rem = fabs (fmodl (val, 2.0));
          if (rem == 1.0)
            return SCM_BOOL_F;
          else if (rem == 0.0)