X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..e6231089306f4bf6f8e6bee0c5a4eacb5dbe1714:/fth/floats.fth

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