Fix REPOSITION-FILE, HISTORY, locked file handle and other problems.

[pforth] / fth / floats.fth

diff --git a/fth/floats.fth b/fth/floats.fth
index cb77770..9196575 100644 (file)
--- a/fth/floats.fth
+++ b/fth/floats.fth
@@ -406,16 +406,21 @@ false fp-require-e !   \ violate ANSI !!
                        c-addr c@ [char] E =\r
                        c-addr c@ [char] e =  OR\r
                        IF\r
                        c-addr c@ [char] E =\r
                        c-addr c@ [char] e =  OR\r
                        IF\r

-                               1 +-> c-addr   -1 +-> u'   \ skip char\r
-                               c-addr c@ [char] + = \ ignore + on exponent\r
+                               1 +-> c-addr   -1 +-> u'   \ skip E char
+                               u' 0>

                                IF\r
                                IF\r

-                                       1 +-> c-addr   -1 +-> u'   \ skip char\r
-                               THEN\r
-                               c-addr u' ((number?))\r
-                               num_type_single =\r
-                               IF\r
-                                       nshift + -> nshift\r
-                                       true -> flag\r
+                               c-addr c@ [char] + = \ ignore + on exponent
+                               IF\r
+                        1 +-> c-addr   -1 +-> u'   \ skip char\r
+                    THEN\r
+                                   c-addr u' ((number?))\r
+                                   num_type_single =\r
+                                   IF\r
+                                          nshift + -> nshift\r
+                                          true -> flag\r
+                                   THEN
+                               ELSE
+                                   true -> flag   \ allow "1E"

                                THEN\r
                        THEN\r
                ELSE\r
                                THEN\r
                        THEN\r
                ELSE\r