* chain-add ( chain* "word-to-add" -- ) add chain item, for normal setup, at end of do-chain : chain-add ' >r begin dup @ while @ repeat here swap ! 0 , r> , ; ( chain-add begin dup @ while @ repeat here swap ! 0, ' , )
chain-add
( chain* "word-to-add" -- )
: chain-add ' >r begin dup @ while @ repeat here swap ! 0 , r> , ; ( chain-add begin dup @ while @ repeat here swap ! 0, ' , )
EXTENSIONS chain ordinary primitive