Name

pfe-chain-ext ? chain of executions

Synopsis

link, ( some-list* -- ) ?=>? ();?
"EXTENSIONS";
?
.chain ( some-chain* -- ) ?=>? ();?
"EXTENSIONS";
?
.chains ( -- ) ?=>? ();?
"EXTENSIONS";
?
chain-add ( some-chain* "word-to-add" -- ) ?=>? ();?
"EXTENSIONS";
?
chain-add-before ( some-chain* "word-to-add" -- ) ?=>? ();?
"EXTENSIONS";
?
do-chain ( some-chain* -- ) ?=>? ();?
"EXTENSIONS";
?

Description

semicolon-chain ( -- semicolon-chain* ) [EXT] [OLD] * do not use.

link, ( some-list* -- ) [EXT] => "EXTENSIONS"

 
  : link,        here over @ a, swap ! ;
  

.chain ( some-chain* -- ) [EXT] => "EXTENSIONS"

show chain - compare with WORDS

.chains ( -- ) [EXT] => "EXTENSIONS"

show all chains registered in the system - compare with VLIST

chain-add ( some-chain* "word-to-add" -- ) [EXT] => "EXTENSIONS"

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-before ( some-chain* "word-to-add" -- ) [EXT] => "EXTENSIONS"

add chain item, for reverse chain like BYE

  : chain-add-before ' >r here over @ , r> , swap ! ;
  ( chain-add-before link, ' , )
  

do-chain ( some-chain* -- ) [EXT] => "EXTENSIONS"

execute chain

  : do-chain being @ ?dup while dup>r cell+ @execute r> repeat ;