+\ Structures.
+
+: defstruct ( -- struct-sys )
+ \ Commence a new structure.
+ 0 ;
+
+: slot ( "name" struct-sys u -- struct-sys' )
+ \ Add a new slot called `name', `u' units in size. The word `name'
+ \ applies the necessary offset to find the slot given the structure's
+ \ base address.
+ create over , + does> @ + ;
+
+: endstruct ( "name" struct-sys' -- )
+ \ End a structure definition. The word `name' becomes a constant
+ \ containing the requires size of the structure.
+ create , does> @ ;
+