shithub: mc

ref: da5f858f60c9a8d52add2f60845483be2f4b416e
dir: /libstd/slappend.myr/

View raw version 
use "alloc.use"

pkg std =
	generic slappend	: (sl : @a[:], v : @a	-> @a[:])
;;

generic slappend = {sl, v
	sl = slgrow(sl, sl.len + 1)
	sl[sl.len - 1] = v
	-> sl
}