![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to getdoers.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to getdoers.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.11, 2005/12/31 15:46:14 | version 1.12, 2006/02/19 13:33:42 |
|---|---|
| Line 24 doer? :docon [IF] | Line 24 doer? :docon [IF] |
| ['] bl >code-address ; | ['] bl >code-address ; |
| [THEN] | [THEN] |
| doer? :dovalue [IF] | |
| : dovalue: ( -- addr ) \ gforth | |
| \G The code address of a @code{CONSTANT}. | |
| ['] def#tib >code-address ; | |
| [THEN] | |
| : docol: ( -- addr ) \ gforth | : docol: ( -- addr ) \ gforth |
| \G The code address of a colon definition. | \G The code address of a colon definition. |
| ['] on >code-address ; | ['] on >code-address ; |