X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..c1b0551debcb415cbc9fc976d011998d9f14759b:/fth/floats.fth

diff --git a/fth/floats.fth b/fth/floats.fth
index cb77770..02d1625 100644
--- a/fth/floats.fth
+++ b/fth/floats.fth
@@ -406,16 +406,21 @@ false fp-require-e !   \ violate ANSI !!
 			c-addr c@ [char] E =
 			c-addr c@ [char] e =  OR
 			IF
-				1 +-> c-addr   -1 +-> u'   \ skip char
-				c-addr c@ [char] + = \ ignore + on exponent
+				1 +-> c-addr   -1 +-> u'   \ skip E char
+				u' 0>
 				IF
-					1 +-> c-addr   -1 +-> u'   \ skip char
-				THEN
-				c-addr u' ((number?))
-				num_type_single =
-				IF
-					nshift + -> nshift
-					true -> flag
+    				c-addr c@ [char] + = \ ignore + on exponent
+    				IF
+                        1 +-> c-addr   -1 +-> u'   \ skip char
+                    THEN
+				    c-addr u' ((number?))
+				    num_type_single =
+				    IF
+					   nshift + -> nshift
+					   true -> flag
+				    THEN
+				ELSE
+				    true -> flag   \ allow "1E"
 				THEN
 			THEN
 		ELSE