The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added draft readflonum.
[scheme.forth.jl.git]
/
src
/
float.4th
diff --git
a/src/float.4th
b/src/float.4th
index
bdedd92
..
c256da9
100644
(file)
--- a/
src/float.4th
+++ b/
src/float.4th
@@
-79,3
+79,18
@@
END-CODE
CODE i->f
pushPS(reinterpret(Int64, Float64(popPS())))
END-CODE
CODE i->f
pushPS(reinterpret(Int64, Float64(popPS())))
END-CODE
+
+: f.scientific ( float -- )
+;
+
+: f.plain ( float -- )
+
+;
+
+: f. ( float -- )
+ dup dup 1000000 i->f f>= swap 1 i->f 10000 i->f f/ f< or if
+ f.scientific
+ else
+ f.plain
+ then
+;