[gforth] / gforth / kernel / getdoers.fs  

gforth: gforth/kernel/getdoers.fs

Diff for /gforth/kernel/getdoers.fs between version 1.12 and 1.13

version 1.12, Sun Feb 19 13:33:42 2006 UTC version 1.13, Sun Feb 26 17:23:47 2006 UTC
Line 56 
Line 56 
 [THEN]  [THEN]
   
 doer? :dofield [IF]  doer? :dofield [IF]
   
 : dofield: ( -- addr )  \ gforth  : dofield: ( -- addr )  \ gforth
     \G The code address of a @code{field}.      \G The code address of a @code{field}.
     ['] reveal-method >code-address ;      ['] >body >code-address ;
 [THEN]  [THEN]
   
 true [IF] \ !! don't know what to put here  true [IF] \ !! don't know what to put here


Generate output suitable for use with a patch program
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help