![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to float.fs CVS log | Up to [gforth] / gforth |
| version 1.21, 1997/05/21 20:39:25 | version 1.22, 1997/07/06 16:00:11 |
|---|---|
| Line 60 dofield: lastxt code-address! \ change t | Line 60 dofield: lastxt code-address! \ change t |
| 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 -- ) |