Simple saga-like pattern in Lua for Defold

saga.lua

local M = {}

local traceback = debug.traceback
local yield = coroutine.yield
local resume = coroutine.resume
local create = coroutine.create
local status = coroutine.status

function M.create(f, ...)
	local co = create(f)
	local ok, err = resume(co, ...)
	if not ok then
		print(traceback(co, err))
	end
	return status(co) ~= 'dead' and co or null
end

function M.continue(co, ...)
	local ok, err = resume(co, ...)
	if not ok then
		print(traceback(co, err))
	end
	return status(co) ~= 'dead' and co or null
end

function M.yield(...)
	yield(...)	
end

function M.take(message_id)
	local id, message, sender
	repeat
		id, message, sender = yield()
	until id == message_id
	return id, message, sender
end

function M.take_any(...)
	local msg_set = {}
	for _, v in ipairs({...}) do
		msg_set[v] = true
	end
	local id, message, sender
	repeat
		id, message, sender = yield()
	until msg_set[id]
	return id, message, sender
end

return M