version 1.34, 2000/09/23 15:46:56
|
version 1.36, 2002/01/17 12:02:55
|
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 |
Line 180 IS interpreter-notfound
|
Line 180 IS interpreter-notfound
|
\G Divide 1.0e0 by @i{r1}. |
\G Divide 1.0e0 by @i{r1}. |
1.0e0 fswap f/ ; |
1.0e0 fswap f/ ; |
|
|
|
get-current environment-wordlist set-current |
|
1.7976931348623157e308 FConstant max-float |
|
set-current |
|
|
\ We now have primitives for these, so we need not define them |
\ We now have primitives for these, so we need not define them |
|
|