# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894156606 0
# Node ID 8087931b409efc9c9855c925a05209f5a08c8f26
# Parent  702383d93b752a2aa9c4dad5356cbd34a4f7db9e
(isfloat_string): Don't look at bytes before the string.

diff -r 702383d93b75 -r 8087931b409e src/lread.c
--- a/src/lread.c	Sun May 03 00:02:10 1998 +0000
+++ b/src/lread.c	Sun May 03 00:50:06 1998 +0000
@@ -1995,6 +1995,8 @@
 {
   register int state;
   
+  char *start = cp;
+
   state = 0;
   if (*cp == '+' || *cp == '-')
     cp++;
@@ -2030,6 +2032,8 @@
       while (*cp >= '0' && *cp <= '9')
 	cp++;
     }
+  else if (cp == start)
+    ;
   else if (cp[-1] == '+' && cp[0] == 'I' && cp[1] == 'N' && cp[2] == 'F')
     {
       state |= EXP_INT;