![[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.64, 2008/12/31 15:29:14 | version 1.65, 2010/01/08 18:54:34 |
|---|---|
| Line 83 AConstant dictionary-end | Line 83 AConstant dictionary-end |
| \G the region addressed by @code{here}. | \G the region addressed by @code{here}. |
| usable-dictionary-end here - ; | usable-dictionary-end here - ; |
| has? ec [IF] | has? ec has? primcentric 0= and [IF] |
| : in-dictionary? ( x -- f ) | : in-dictionary? ( x -- f ) |
| dictionary-end u< ; | dictionary-end u< ; |
| [ELSE] | [ELSE] |