c-addr c@ [char] E =\r
c-addr c@ [char] e = OR\r
IF\r
- 1 +-> c-addr -1 +-> u' \ skip E char
- u' 0>
+ 1 +-> c-addr -1 +-> u' \ skip E char\r
+ u' 0>\r
IF\r
- c-addr c@ [char] + = \ ignore + on exponent
+ c-addr c@ [char] + = \ ignore + on exponent\r
IF\r
1 +-> c-addr -1 +-> u' \ skip char\r
THEN\r
IF\r
nshift + -> nshift\r
true -> flag\r
- THEN
- ELSE
- true -> flag \ allow "1E"
+ THEN\r
+ ELSE\r
+ true -> flag \ allow "1E"\r
THEN\r
THEN\r
ELSE\r