diff options
Diffstat (limited to 'lisp/read.c')
| -rw-r--r-- | lisp/read.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/read.c b/lisp/read.c index 9c70b64..a49e240 100644 --- a/lisp/read.c +++ b/lisp/read.c @@ -1474,9 +1474,7 @@ LispParseNumber(char *str, int radix, LispObj *read__stream, int read__line) integer = strtol(str, NULL, radix); /* if does not fit in a long */ - if (errno == ERANGE && - ((*str == '-' && integer == LONG_MIN) || - (*str != '-' && integer == LONG_MAX))) { + if (errno == ERANGE) { bignum = LispMalloc(sizeof(mpi)); mpi_init(bignum); mpi_setstr(bignum, str, radix); |