pfe-chain-ext ? chain of executions
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"
;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 ;