gforth/struct0x.fs - diff

Return to struct0x.fs CVS log

Up to [gforth] / gforth

version 1.2, 2007/12/31 18:40:24	version 1.3, 2012/01/02 17:16:52
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 ! ;