![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / misc |
| version 1.21, 2007/12/31 19:02:25 | version 1.22, 2008/10/23 14:21:25 |
|---|---|
| Line 850 include ./optcmove.fs | Line 850 include ./optcmove.fs |
| : (bye) ; | : (bye) ; |
| : bye ; | : bye ; |
| : float+ 8 + ; | : float+ 8 + ; |
| : x@+/string ( addr u -- addr' u' c ) | |
| over c@ >r 1 /string r> ; |