diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-20 08:17:25 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-20 08:17:25 +0000 |
commit | 147c18a0e4d196eb770a648b4cf1bf11a5ef7043 (patch) | |
tree | 7f3b0072afc765b3426afc497f9179f911ace4eb /libguile/num2integral.i.c | |
parent | 9d7e6c84cabbd2408a4c2b2c839f5b078a88661e (diff) | |
download | guile-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.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); } |