From dd47565aebd8a04448122862883a95096eb92d64 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 20 Sep 2000 21:04:19 +0000 Subject: [PATCH] * 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. --- libguile/numbers.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/numbers.c b/libguile/numbers.c index b5dc2fbbb..590e46cca 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -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;