[gforth] / gforth / float.fs  

gforth: gforth/float.fs

Diff for /gforth/float.fs between version 1.21 and 1.22

version 1.21, Wed May 21 20:39:25 1997 UTC version 1.22, Sun Jul 6 16:00:11 1997 UTC
Line 60 
Line 60 
 DOES> ( -- r )  DOES> ( -- r )
     f@ ;      f@ ;
   
 : fdepth  ( -- n )  f0 @ fp@ - [ 1 floats ] Literal / ;  : fdepth  ( -- n )  fp0 @ fp@ - [ 1 floats ] Literal / ;
   
 : FLit ( -- r )  r> dup f@ float+ >r ;  : FLit ( -- r )  r> dup f@ float+ >r ;
 : FLiteral ( r -- )  : FLiteral ( r -- )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help