+: readflonum ( -- flonum )
+ \ DRAFT!!!
+ readfixnum drop i->f
+
+ [char] . netchar = if
+ 10 i->f
+ begin digit? while
+ nextchar [char] 0 - i->f over f/ f+
+ inc-parse-idx
+ repeat
+ then
+
+ [char] e nextchar = [char] E nextchar = or if
+ readfixnum drop i->f
+ f^
+ then
+
+ flonum-type
+;
+