version 1.34, 2000/09/23 15:46:56
|
version 1.35, 2001/08/07 09:39:30
|
Line 102 DOES> ( -- r )
|
Line 102 DOES> ( -- r )
|
: f. ( r -- ) \ float-ext f-dot |
: f. ( r -- ) \ float-ext f-dot |
\G Display (the floating-point number) @i{r} without exponent, |
\G Display (the floating-point number) @i{r} without exponent, |
\G followed by a space. |
\G followed by a space. |
f$ dup >r 0< |
f$ dup >r 0<= |
IF '0 emit |
IF '0 emit |
ELSE scratch r@ min type r@ precision - zeros THEN |
ELSE scratch r@ min type r@ precision - zeros THEN |
'. emit r@ negate zeros |
'. emit r@ negate zeros |