diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 721955c358b..e2aa7206ab4 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1047,7 +1047,7 @@ read1 (readcharfun) | |||
| 1047 | while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++; | 1047 | while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++; |
| 1048 | #ifdef LISP_FLOAT_TYPE | 1048 | #ifdef LISP_FLOAT_TYPE |
| 1049 | /* Integers can have trailing decimal points. */ | 1049 | /* Integers can have trailing decimal points. */ |
| 1050 | if (p1 < p && *p1 == '.') p1++; | 1050 | if (p1 > read_buffer && p1 < p && *p1 == '.') p1++; |
| 1051 | #endif | 1051 | #endif |
| 1052 | if (p1 == p) | 1052 | if (p1 == p) |
| 1053 | /* It is an integer. */ | 1053 | /* It is an integer. */ |