honeylisp/vendor/lite/data/core/strict.lua

local strict = {}
strict.defined = {}


-- used to define a global variable
function global(t)
  for k, v in pairs(t) do
    strict.defined[k] = true
    rawset(_G, k, v)
  end
end


function strict.__newindex(t, k, v)
  error("cannot set undefined variable: " .. k, 2)
end


function strict.__index(t, k)
  if not strict.defined[k] and k ~= nil then
    error("cannot get undefined variable: " .. k, 2)
  end
end


setmetatable(_G, strict)