diff options
| author | Jim Blandy <[email protected]> | 1993-01-29 21:32:37 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1993-01-29 21:32:37 +0000 |
| commit | 5e43ddf5ffd1313c66df0955caa6f9130ed975ec (patch) | |
| tree | 43b864f3c4bb6bf4aba0de078229dd08be8b46f8 /src/lread.c | |
| parent | b5e6f936b9b76d07c5ef4831fe36da196774ef22 (diff) | |
* lread.c (read1): Although digits followed by a '.' are an
integer, a single . by itself (like, say, \.) should be a symbol.
Diffstat (limited to 'src/lread.c')
| -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 721955c358..e2aa7206ab 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1047,7 +1047,7 @@ read1 (readcharfun) while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++; #ifdef LISP_FLOAT_TYPE /* Integers can have trailing decimal points. */ - if (p1 < p && *p1 == '.') p1++; + if (p1 > read_buffer && p1 < p && *p1 == '.') p1++; #endif if (p1 == p) /* It is an integer. */ |