Name
chain-add:chain — ordinary primitive
Synopsis
EXTENSIONS
chain-add
( chain* "word-to-add" -- )( | ); | |
Description
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, ' , )