shithub: mc

ref: bf8b4ecc51a8adc0eee50424f5e1a13f3a20452e
dir: /libstd/sldup.myr/

View raw version 
use "alloc.use"
use "die.use"
use "slcp.use"

pkg std =
	generic sldup : (sl : @a[:] -> @a[:])
;;

generic sldup = {sl
	var ret

	ret = slalloc(sl.len)
	slcp(ret, sl)
	-> ret
}