shithub: mc

ref: 7096d0e99d9deb053a7763f49b2b1b7b1df20a6a
dir: /lib/std/slpop.myr/

View raw version 
use "types"
use "alloc"

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

generic slpop = {sl
	var elt

	elt = sl[sl.len - 1]
	slgrow(&sl, sl.len - 1)
	-> (elt, sl)
}