X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/9d7e6c84cabbd2408a4c2b2c839f5b078a88661e..147c18a0e4d196eb770a648b4cf1bf11a5ef7043:/libguile/num2integral.i.c

diff --git a/libguile/num2integral.i.c b/libguile/num2integral.i.c
index 65afa2603..61b1255c8 100644
--- 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);
 }