diff options
Diffstat (limited to 'libguile/num2integral.i.c')
-rw-r--r-- | libguile/num2integral.i.c | 10 |
1 files changed, 0 insertions, 10 deletions
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); } |