PFE 0.33.70

generated
(C) Guido U. Draheim
guidod@gmx.de

chain

of executions

---

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

 
  : link,        here over @ a, swap ! ;
  

primitive code = [p4_link_comma]

---

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

show chain - compare with WORDS

primitive code = [p4_dot_chain]

---

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

show all chains registered in the system - compare with VLIST

primitive code = [p4_dot_chains]

---

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, ' , )
  

primitive code = [p4_chain_add]

---

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, ' , )
  

primitive code = [p4_chain_add_before]

---

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

execute chain

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

primitive code = [p4_do_chain]