![[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.6, 2000/10/29 20:27:03 | version 1.7, 2003/01/08 10:25:34 |
|---|---|
| Line 55 doer? :dofield [IF] | Line 55 doer? :dofield [IF] |
| ['] reveal-method >code-address ; | ['] reveal-method >code-address ; |
| [THEN] | [THEN] |
| has? prims 0= [IF] | true [IF] \ !! don't know what to put here |
| : dodoes: ( -- addr ) \ gforth | : dodoes: ( -- addr ) \ gforth |
| \G The code address of a @code{field}??? | \G The code address of a @code{field}??? |
| ['] spaces >code-address ; | ['] spaces >code-address ; |