diff options
-rw-r--r-- | libguile/numbers.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |