diff options
author | Richard M. Stallman <[email protected]> | 1995-03-31 19:16:44 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-03-31 19:16:44 +0000 |
commit | 37579d7c57bc27d6e10561021d312dc35eff2e49 (patch) | |
tree | c05822b2f5bea7e674ddb955a5f20d020d87827d /src | |
parent | 0bb083c202a8d34275b1850b39e3187ac5369a99 (diff) |
(isfloat_string): Permit trailing space.
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 1af746ad9e..267db73540 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1453,7 +1453,7 @@ isfloat_string (cp) while (*cp >= '0' && *cp <= '9') cp++; } - return (*cp == 0 + return (((*cp == 0) || (*cp == ' ') || (*cp == '\t') || (*cp == '\n') || (*cp == '\r') || (*cp == '\f')) && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) || state == (DOT_CHAR|TRAIL_INT) || state == (LEAD_INT|E_CHAR|EXP_INT) |