![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to basics.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to basics.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.29, 2000/09/23 15:47:09 | version 1.30, 2001/09/04 08:15:47 |
|---|---|
| Line 63 hex | Line 63 hex |
| has? ec | has? ec |
| [IF] | [IF] |
| unlock ram-dictionary area nip lock | unlock ram-dictionary borders nip lock |
| Constant dictionary-end | AConstant dictionary-end |
| [ELSE] | [ELSE] |
| : dictionary-end ( -- addr ) | : dictionary-end ( -- addr ) |
| forthstart [ 3 cells ] Aliteral @ + ; | forthstart [ 3 cells ] Aliteral @ + ; |