Diff for /gforth/float.fs between versions 1.19 and 1.20

version 1.19, 1996/05/13 16:36:55 version 1.20, 1996/09/10 16:08:37
Line 55  dofield: lastxt code-address! \ change t Line 55  dofield: lastxt code-address! \ change t
   
 : f, ( f -- )  here 1 floats allot f! ;  : f, ( f -- )  here 1 floats allot f! ;
   
 : fconstant  ( r -- ) \ float  : fconstant  ( r "name" -- ) \ float
     Create f,      Create f,
 DOES> ( -- r )  DOES> ( -- r )
     f@ ;      f@ ;
Line 131  IS compiler-notfound Line 131  IS compiler-notfound
     ENDIF ;      ENDIF ;
 IS interpreter-notfound  IS interpreter-notfound
   
 : fvariable ( -- )  : fvariable ( "name" -- ) \ float
     Create 0.0E0 f, ;      Create 0.0E0 f, ;
     \ does> ( -- f-addr )      \ does> ( -- f-addr )
   

Removed from v.1.19  
changed lines
  Added in v.1.20


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