projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix floating point conversion and printing.
[pforth]
/
fth
/
floats.fth
diff --git
a/fth/floats.fth
b/fth/floats.fth
index
9196575
..
02d1625
100644
(file)
--- a/
fth/floats.fth
+++ b/
fth/floats.fth
@@
-406,10
+406,10
@@
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 E char
- u' 0>
+ 1 +-> c-addr -1 +-> u' \ skip E char
\r
+ u' 0>
\r
IF
\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
1 +-> c-addr -1 +-> u' \ skip char
\r
THEN
\r
@@
-418,9
+418,9
@@
false fp-require-e ! \ violate ANSI !!
IF
\r
nshift + -> nshift
\r
true -> flag
\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
THEN
\r
THEN
\r
ELSE
\r