diff src/lread.c @ 826:e9b9a1cff2c9

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 21 Jul 1992 04:09:28 +0000
parents 465cf9f9153b
children 9620f7edf04d
line wrap: on
line diff
--- a/src/lread.c	Tue Jul 21 02:48:51 1992 +0000
+++ b/src/lread.c	Tue Jul 21 04:09:28 1992 +0000
@@ -1049,8 +1049,10 @@
     }
   return (*cp == 0
 	  && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT)
+	      || state == (DOT_CHAR|TRAIL_INT)
 	      || state == (LEAD_INT|E_CHAR|EXP_INT)
-	      || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT)));
+	      || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT)
+	      || state == (DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT)));
 }
 #endif /* LISP_FLOAT_TYPE */