Diff for /gforth/float.fs between versions 1.34 and 1.36

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
   

Removed from v.1.34  
changed lines
  Added in v.1.36


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>