summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/numbers.c2
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;