summaryrefslogtreecommitdiff
path: root/libguile/num2integral.i.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/num2integral.i.c')
-rw-r--r--libguile/num2integral.i.c10
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);
}