* num2integral.i.c (NUM2INTEGRAL): Report an error when these

[bpt/guile.git] / libguile / num2integral.i.c

diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index 65afa26..61b1255 100644 (file)
--- a/libguile/num2integral.i.c
+++ b/libguile/num2integral.i.c
@@ -69,16 +69,6 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
 
       return res;
     }
-  else if (SCM_REALP (num))
-    { /* inexact */
-    
-      double u = SCM_REAL_VALUE (num);
-      ITYPE res = u;
-      if ((double) res == u)
-        return res;
-      else
-        scm_out_of_range (s_caller, num);
-    }
   else
     scm_wrong_type_arg (s_caller, pos, num);
 }