--- gforth/struct.fs 1995/11/07 18:07:02 1.8 +++ gforth/struct.fs 1997/02/09 21:51:41 1.9 @@ -37,7 +37,7 @@ : field ( offset1 align1 size align -- offset2 align2 ) \ note: this version uses local variables - Header reveal dofield: cfa, + (Field) \ Header reveal dofield: cfa, >r rot r@ nalign dup , ( align1 size offset ) + swap r> nalign ;