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\r
+ u' 0>\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\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
+ THEN\r
+ ELSE\r
+ true -> flag \ allow "1E"\r
THEN\r
THEN\r
ELSE\r