* chained ( xt list -- ) \ gforth generic chains : chained linked , ;
chained
( xt list -- )
\ gforth
: chained linked , ;
gforth' gforth ordinary primitive