![[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.9, 2003/08/18 19:29:16 | version 1.10, 2005/06/28 06:45:08 |
|---|---|
| Line 46 doer? :douser [IF] | Line 46 doer? :douser [IF] |
| doer? :dodefer [IF] | doer? :dodefer [IF] |
| : dodefer: ( -- addr ) \ gforth | : dodefer: ( -- addr ) \ gforth |
| \G The code address of a @code{defer}ed word. | \G The code address of a @code{defer}ed word. |
| ['] parser >code-address ; | ['] parser1 >code-address ; |
| [THEN] | [THEN] |
| doer? :dofield [IF] | doer? :dofield [IF] |