(isfloat_string): Permit trailing space.

37579d7c · Richard M. Stallman · 0bb083c2 · 37579d7c
Commit 37579d7c authored Mar 31, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/lread.c src/lread.c +1 -1

No files found.
--- 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)