--- lam.util

local m = {}

function m.pop (tbl)
	--[[ Remove the first element from TBL. ]]
	return table.remove(tbl, 1)
end

function m.assert_arity (r, min, max)
	local rmin = min or 0
	local rmax = max or 1/0 -- infinity
	local rlen = #r
	if rlen < rmin or rlen > rmax then
		error(string.format("Wrong arity: %s; expecting %s",
				rlen,
				rmin == rmax and rmin or (rmin..".."..rmax)))
	end
end

---
return m