do-chain:chain — ordinary primitive
EXTENSIONS
do-chain ( chain* -- )();p4:"do-chain";
do-chain ( chain* -- )(
)
execute chain
: do-chain being @ ?dup while dup>r cell+ @execute r> repeat ;