changeset 16342:b91af71f45f1

(isfloat_string): Accept E like e.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 Sep 1996 21:20:05 +0000
parents d7c001f4e79f
children e2b0e3d63822
files src/lread.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Thu Sep 26 08:44:42 1996 +0000
+++ b/src/lread.c	Thu Sep 26 21:20:05 1996 +0000
@@ -1671,7 +1671,7 @@
       while (*cp >= '0' && *cp <= '9')
 	cp++;
     }
-  if (*cp == 'e')
+  if (*cp == 'e' || *cp == 'E')
     {
       state |= E_CHAR;
       cp++;