Name

end-variant:struct — ordinary primitive

Synopsis

EXTENSIONS
END-VARIANT ( outer-offset here some-offset -- outer-offset )(); 
 ;

Description

terminate definition of a new variant (mpe.000)

 : END-STRUCT  TUCK SWAP !  2DUP < IF NIP ELSE DROP THEN ;