* REPLACE-IN ( to-xt from-xt n "name" -- ) will handle the body of the named word as a sequence of cells (or tokens) and replaces the n'th occurences of from-xt into to-xt. A negative value will change all occurences. A zero value will not change any.
REPLACE-IN
( to-xt from-xt n "name" -- )
EXTENSIONS useful ordinary primitive