* chain-add-before ( chain* "word-to-add" -- ) add chain item, for reverse chain like BYE : chain-add-before ' >r here over @ , r> , swap ! ; ( chain-add-before link, ' , )
chain-add-before
( chain* "word-to-add" -- )
: chain-add-before ' >r here over @ , r> , swap ! ; ( chain-add-before link, ' , )
EXTENSIONS chain ordinary primitive