* $Id: repl.sno,v 1.2 2014-12-14 04:39:06 phil Exp $
* replace pat with expr
* Phil Budne 12/13/14
	DEFINE("repl(src,pat,expr)")		:(repl.end)
repl	repl =
repl.lp	IDENT(src)				:s(return)
	src pat =				:f(repl.done)
	repl = repl EVAL(expr)			:(repl.lp)
*
repl.done
	repl = repl src				:(return)
repl.end
