summaryrefslogtreecommitdiff
path: root/libguile/num2integral.i.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-20 08:17:25 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-20 08:17:25 +0000
commit147c18a0e4d196eb770a648b4cf1bf11a5ef7043 (patch)
tree7f3b0072afc765b3426afc497f9179f911ace4eb /libguile/num2integral.i.c
parent9d7e6c84cabbd2408a4c2b2c839f5b078a88661e (diff)
downloadguile-147c18a0e4d196eb770a648b4cf1bf11a5ef7043.tar.gz
* num2integral.i.c (NUM2INTEGRAL): Report an error when these
routines are passed an inexact. This change in behavior is motivated by concordance with R5RS: It is more common that a primitive doesn't want to accept an inexact for an exact.
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);
}