X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Ffloat.4th;h=bd429ce23215ee766d1373504e7c80bec80e99ea;hp=2305749a9a8a51fcfee643d5a38a521fba17ac7d;hb=18d5eef9c97da9c27bf9bb5cdaba6baf4a85f966;hpb=a7e883b206fc496d7c0faaf713bb7bdd91ff29d3

diff --git a/src/float.4th b/src/float.4th
index 2305749..bd429ce 100644
--- a/src/float.4th
+++ b/src/float.4th
@@ -210,12 +210,13 @@ variable precision
     ." e" f->i 0 .R
 ;
 
-: f. ( float -- )
+: f.nospace ( float -- )
     dup fabs dup 1000000 i->f f>= swap 1 i->f 10000 i->f f/ f< or if
         f.scientific
     else
         f.plain
     then
-
-    space
 ;
+
+: f. ( float -- )
+    f.nospace space ;