diff options
| author | Tom Tromey <tom@tromey.com> | 2018-07-07 15:32:52 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2018-07-12 22:12:27 -0600 |
| commit | 1e8ae6ca237e22e11b3db63a01e558ad5a3d6ef3 (patch) | |
| tree | a8fabadc647288ce253d2813b8074c5b903b52b8 /src/data.c | |
| parent | 580d173b9a7db78f6d62972ef8e943d31dde5c9d (diff) | |
| download | emacs-1e8ae6ca237e22e11b3db63a01e558ad5a3d6ef3.tar.gz | |
Make the reader accept bignums
* src/data.c (Fstring_to_number): Update.
* src/lisp.h (S2N_OVERFLOW_TO_FLOAT): Remove.
* src/lread.c (free_contents): New function.
(read_integer): Handle bignums.
(read1): Update.
(string_to_number): Handle bignums.
(syms_of_lread): Remove read-integer-overflow-as-float.
* src/process.c (Fsignal_process): Update.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index efcffbbf6ab..8ffed8bbb52 100644 --- a/src/data.c +++ b/src/data.c @@ -2727,8 +2727,7 @@ If the base used is not 10, STRING is always parsed as an integer. */) while (*p == ' ' || *p == '\t') p++; - int flags = S2N_IGNORE_TRAILING | S2N_OVERFLOW_TO_FLOAT; - Lisp_Object val = string_to_number (p, b, flags); + Lisp_Object val = string_to_number (p, b, S2N_IGNORE_TRAILING); return NILP (val) ? make_fixnum (0) : val; } |