shithub: mc

ref: 57d3cab36e26b6f18dfc4832caa301ef953fb1d9
dir: /libstd/slcp.myr/

View raw version 
use "die.use"

pkg std =
	generic slcp : (a : @a[:], b : @a[:] -> void)
;;

generic slcp = {a, b
	var i

	assert(a.len == b.len, "arguments to slcp() must be of equal length")

	for i = 0; i < a.len; i++
		a[i] = b[i]
	;;
}