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
- 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