(isfloat_string): Permit trailing space.

diff --git a/src/lread.c b/src/lread.c
index 1af746ad9efa3b90d87e0d8e1e004c934588be09..267db735404673ea3a4445bcb9ac981a46abb8ae 100644 (file)
--- 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)