shithub: mc

ref: 3c7cf598f83d27ac3b98e0061075052f9f9baaf1
dir: /lib/std/sldup.myr/

use "alloc"
use "die"
use "slcp"

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

generic sldup = {sl
	var ret

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