AccessorFunc but cool

local AccessorFunc do
    local setter_env = {select = select}

    local setter_codens = [[
        local _ENV = ...
        _ENV.%s = select(2, ...)
    ]]

    function AccessorFunc(mt, vars, name)
        assert(istable(mt), string.format("bad argument #1 to 'AccessorFunc' (table expected, got %s)", type(mt)))
        assert(isstring(name), string.format("bad argument #3 to 'AccessorFunc' (string expected, got %s)", type(name)))

        if not istable(vars) then
            assert(isstring(vars), string.format("bad argument #2 to 'AccessorFunc' (string or table expected, got %s)", type(name)))
            vars = {vars}
        else
            assert(istable(vars), string.format("bad argument #2 to 'AccessorFunc' (string or table expected, got %s)", type(name)))
        end

        local setter = CompileString(
            string.format(setter_codens, table.concat(vars, ", _ENV.")),
            "AccessorFunc: Set" .. name
        )

        local getter = CompileString(
            "return " .. table.concat(vars, ", "),
            "AccessorFunc: Get" .. name
        )

        mt[string.format("Set%s", name)] = setfenv(setter, setmetatable(setter_env, {__newindex = mt}))
        mt[string.format("Get%s", name)] = setfenv(getter, mt)
    end
end