shithub: mc

Info  •  Files  •  Log  •  Branches

make slpop take a pointer to a slice

--- a/lib/std/slpop.myr

+++ b/lib/std/slpop.myr

@@ -2,13 +2,13 @@

 use "alloc"

 pkg std =

-	generic slpop	: (sl : @a[:] -> (@a, @a[:]))

+	generic slpop	: (sl : @a[:]# -> @a)

 ;;

 generic slpop = {sl

 	var elt

-	elt = sl[sl.len - 1]

-	slgrow(&sl, sl.len - 1)

-	-> (elt, sl)

+	elt = sl#[sl#.len - 1]

+	slgrow(sl, sl#.len - 1)

+	-> elt

 }