aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/lread.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c
index 4eba8635521..50fc6ef8f3a 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3798,10 +3798,11 @@ string_to_number (char const *string, int base, int flags)
3798 3798
3799 if (! (state & DOT_CHAR) && ! (flags & S2N_OVERFLOW_TO_FLOAT)) 3799 if (! (state & DOT_CHAR) && ! (flags & S2N_OVERFLOW_TO_FLOAT))
3800 { 3800 {
3801 AUTO_STRING (fmt, ("%s is out of fixnum range; " 3801 AUTO_STRING (fmt, ("%s (base %d) is out of fixnum range; "
3802 "maybe set `read-integer-overflow-as-float'?")); 3802 "maybe set `read-integer-overflow-as-float'?"));
3803 AUTO_STRING_WITH_LEN (arg, string, cp - string); 3803 AUTO_STRING_WITH_LEN (arg, string, cp - string);
3804 xsignal1 (Qoverflow_error, CALLN (Fformat_message, fmt, arg)); 3804 xsignal1 (Qoverflow_error,
3805 CALLN (Fformat_message, fmt, arg, make_number (base)));
3805 } 3806 }
3806 } 3807 }
3807 3808