[gforth] / gforth / struct0x.fs  

gforth: gforth/struct0x.fs

Diff for /gforth/struct0x.fs between version 1.2 and 1.3

version 1.2, Mon Dec 31 18:40:24 2007 UTC version 1.3, Mon Jan 2 17:16:52 2012 UTC
Line 25 
Line 25 
     then      then
     + ;      + ;
   
   : extend-structure ( n "name" -- struct-sys n ) \ Gforth
       \g extend an existing structure
       >r 0 value lastxt >body r> ;
   
 : begin-structure ( "name" -- struct-sys 0 ) \ X:structures  : begin-structure ( "name" -- struct-sys 0 ) \ X:structures
     0 value lastxt >body 0 ;      0 extend-structure ;
   
 : end-structure ( struct-sys +n -- ) \ X:structures  : end-structure ( struct-sys +n -- ) \ X:structures
     swap ! ;      swap ! ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help