X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Ffloat.4th;h=c256da93f6522a8fc26557adf7e0224dfa9bc4c9;hp=bdedd9265be2ae906ecc176bc3d8190cd0aac823;hb=06e8259c96d3282d8904006aa9137ed563d8fe86;hpb=dee0ca5343f31d2fd0480f515a07665c1a6c8951

diff --git a/src/float.4th b/src/float.4th
index bdedd92..c256da9 100644
--- a/src/float.4th
+++ b/src/float.4th
@@ -79,3 +79,18 @@ 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
+;