1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00

* numbers.c (scm_istr2flo): Throw an `out of range' error when

exponent is too large instead of returning `#f'.  The rationale is
that in this case the string represents a valid number but we
can't deal with it.
This commit is contained in:
Marius Vollmer 2000-09-20 21:04:19 +00:00
parent 216b559acd
commit dd47565aeb

View file

@ -2641,7 +2641,7 @@ scm_istr2flo (char *str, long len, long radix)
case DIGITS:
expon = expon * 10 + c - '0';
if (expon > SCM_MAXEXP)
return SCM_BOOL_F; /* exponent too large */
scm_out_of_range ("string->number", SCM_MAKINUM (expon));
break;
default:
goto out4;