diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index db0ff297783..279f64a81b7 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1049,8 +1049,10 @@ isfloat_string (cp) | |||
| 1049 | } | 1049 | } |
| 1050 | return (*cp == 0 | 1050 | return (*cp == 0 |
| 1051 | && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) | 1051 | && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) |
| 1052 | || state == (DOT_CHAR|TRAIL_INT) | ||
| 1052 | || state == (LEAD_INT|E_CHAR|EXP_INT) | 1053 | || state == (LEAD_INT|E_CHAR|EXP_INT) |
| 1053 | || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT))); | 1054 | || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT) |
| 1055 | || state == (DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT))); | ||
| 1054 | } | 1056 | } |
| 1055 | #endif /* LISP_FLOAT_TYPE */ | 1057 | #endif /* LISP_FLOAT_TYPE */ |
| 1056 | 1058 | ||