@tilua/compiler 3.0.0 → 3.1.0

package/dist/{chunk-X4DM2BX2.js → chunk-VANZBLCL.js}

@@ -14,6 +14,7 @@ import { formatType } from "@tilua/parser";
 import { parse as parseLuau, parseExpressionFromSource } from "luau-parser";
 
 // src/luau.ts
+import { LUAU_KEYWORDS, isLuauName } from "@tilua/parser";
 var NO_SPAN = { line: { start: 0, end: 0 }, column: { start: 0, end: 0 } };
 var span = () => ({ line: { ...NO_SPAN.line }, column: { ...NO_SPAN.column } });
 var identifier = (name) => ({ type: "Identifier", name, ...span() });
@@ -74,32 +75,6 @@ var functionBody = (params, statements, hasVarargs = false) => ({
 });
 var localFunction = (name, func) => ({ type: "LocalFunctionStatement", name: identifier(name), func, ...span() });
 var program = (statements) => ({ type: "Program", body: block(statements), ...span() });
-var LUAU_KEYWORDS = /* @__PURE__ */ new Set([
-  "and",
-  "break",
-  "do",
-  "else",
-  "elseif",
-  "end",
-  "false",
-  "for",
-  "function",
-  "if",
-  "in",
-  "local",
-  "nil",
-  "not",
-  "or",
-  "repeat",
-  "return",
-  "then",
-  "true",
-  "until",
-  "while"
-]);
-function isLuauName(name) {
-  return /^[A-Za-z_][A-Za-z0-9_]*$/.test(name) && !LUAU_KEYWORDS.has(name);
-}
 
 // src/names.ts
 var Names = class _Names {
@@ -142,6 +117,7 @@ var Names = class _Names {
 
 // src/language.ts
 import { readFileSync } from "fs";
+import { luauString } from "@tilua/parser";
 var read = (name) => readFileSync(new URL(`../runtime/${name}`, import.meta.url), "utf8");
 var implemented = (source) => new Set([...source.matchAll(/function __NAME__\.(\w+)/g)].map((m) => m[1]));
 var array = read("array.luau");
@@ -175,7 +151,7 @@ function objectKeys(type) {
     orders.push(keys);
   }
   const order = JSON.stringify(orders[0] ?? []);
-  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => JSON.stringify(key)).join(", ")} }` : "nil";
+  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => luauString(key)).join(", ")} }` : "nil";
   return { known, open: String(open) };
 }
 var plugin = {
@@ -1439,6 +1415,9 @@ end
   callValues(node) {
     const chain = optionalChain(node);
     if (chain) return this.optionalChainExpression(chain);
+    if (node.type === "CallExpression" && (node.callee.type === "SuperExpression" || node.callee.type === "MemberExpression" && node.callee.object.type === "SuperExpression")) {
+      return this.expression(node);
+    }
     const object2 = linkObject(node);
     if (node.type === "CallExpression" && object2.type === "Identifier") {
       return this.link(node, this.reference(object2));
@@ -2021,11 +2000,13 @@ import {
   applyDirectives,
   UNUSED_EXPECT_ERROR,
   ParseError,
-  LexError
+  LexError,
+  luauString as luauString3
 } from "@tilua/parser";
 import { parse as parseLuau2, parseExpressionFromSource as parseExpressionFromSource2, print } from "luau-parser";
 
 // src/linemap.ts
+import { luauString as luauString2 } from "@tilua/parser";
 function statementsOf(node) {
   const out = [];
   const visit = (value) => {
@@ -2058,7 +2039,7 @@ function buildLineMap(emitted, printed, origins) {
 }
 function lineMapSource(map) {
   const entries = [...map.entries()].sort((a, b) => a[0] - b[0]);
-  const quoted = (s) => JSON.stringify(s.replace(/\\/g, "/"));
+  const quoted = (s) => luauString2(s.replace(/\\/g, "/"));
   return `{${entries.map(([line, o]) => `[${line}]={${quoted(o.file)},${o.line}}`).join(",")}}`;
 }
 
@@ -2185,7 +2166,7 @@ async function bundle(options) {
   const result = names.fresh("result");
   const entryStatements = parseLuau2(`
 local ${ok}, ${result} = xpcall(function()
-    return ${G}.require(${JSON.stringify(sources.get(entry).name)})
+    return ${G}.require(${luauString3(sources.get(entry).name)})
 end, ${G}.fail)
 if not ${ok} then
     error(${result}, 0)
@@ -2214,19 +2195,64 @@ ${G} = {
     -- and a traceback of those places follows. A message that is not a string
     -- is left as it is, and a position that is not this bundle's (a library
     -- that raised its error with one already mapped) is left alone.
+    --
+    -- It is an \`xpcall\` handler, and a handler that fails loses the error
+    -- altogether: Luau reports only "error in error handling". So the work is
+    -- done under \`pcall\`, leaning on nothing it has not checked is there (an
+    -- executor may lack \`debug.info\`, or refuse it), and an error it cannot
+    -- map is still answered as Luau raised it, with why.
     fail = function(message)
+        -- Taken first, before anything that can fail. Level 3 is the frame
+        -- that raised: past \`pcall\` and this handler.
+        local trace
+        if debug ~= nil and debug.traceback ~= nil then
+            local ok, text = pcall(debug.traceback, "", 3)
+            if ok and type(text) == "string" then
+                trace = text
+            end
+        end
+        local ok, described = pcall(${G}.describe, message, trace)
+        if ok then
+            return described
+        end
+        if type(message) ~= "string" then
+            return message
+        end
+        local why = type(described) == "string" and described or "unknown"
+        return message .. "\\n(tilua could not map this error to the project's files: " .. why .. ")" .. (trace or "")
+    end,
+    -- \`fail\`'s work. \`trace\` is a traceback from where the error was
+    -- raised, or nil when none could be taken.
+    describe = function(message, trace)
         if type(message) ~= "string" then
             return message
         end
         local lines = ${G}.lines
         if lines == nil then
-            return debug.traceback(message, 2)
+            return message .. (trace or "")
         end
+        -- The bundle's name, as a position in a message spells it: where this
+        -- function is, asked of the debug library by the function rather
+        -- than by a level, which \`pcall\` would shift. Failing that, a message
+        -- starts with the position it was raised at.
         local chunk
-        if debug.info ~= nil then
-            chunk = debug.info(1, "s")
-        else
-            chunk = debug.getinfo(1, "S").short_src
+        if debug ~= nil and debug.info ~= nil then
+            local found, source = pcall(debug.info, ${G}.describe, "s")
+            if found and type(source) == "string" then
+                chunk = source
+            end
+        end
+        if chunk == nil and debug ~= nil and debug.getinfo ~= nil then
+            local found, info = pcall(debug.getinfo, ${G}.describe, "S")
+            if found and type(info) == "table" and type(info.short_src) == "string" then
+                chunk = info.short_src
+            end
+        end
+        if chunk == nil then
+            chunk = message:match("^(.-):%d+:")
+        end
+        if chunk == nil then
+            return message .. (trace or "")
         end
         local prefix = chunk:gsub("%p", "%%%0")
         local function place(line)
@@ -2240,7 +2266,7 @@ ${G} = {
             return place(line)
         end)
         local frames = {}
-        for frame in debug.traceback("", 2):gmatch("[^\\n]+") do
+        for frame in (trace or ""):gmatch("[^\\n]+") do
             local line = frame:match(prefix .. ":(%d+)")
             local at = line ~= nil and place(line) or nil
             if at ~= nil then

package/dist/cli.cjs

@@ -12,7 +12,7 @@ var import_node_path3 = require("path");
 // src/bundle.ts
 var import_node_fs2 = require("fs");
 var import_node_path2 = require("path");
-var import_parser3 = require("@tilua/parser");
+var import_parser6 = require("@tilua/parser");
 var import_luau_parser2 = require("luau-parser");
 
 // src/config.ts
@@ -27,10 +27,11 @@ function resolveConfig(input, entry2, cwd = process.cwd()) {
 }
 
 // src/lower.ts
-var import_parser2 = require("@tilua/parser");
+var import_parser4 = require("@tilua/parser");
 var import_luau_parser = require("luau-parser");
 
 // src/luau.ts
+var import_parser2 = require("@tilua/parser");
 var NO_SPAN = { line: { start: 0, end: 0 }, column: { start: 0, end: 0 } };
 var span = () => ({ line: { ...NO_SPAN.line }, column: { ...NO_SPAN.column } });
 var identifier = (name) => ({ type: "Identifier", name, ...span() });
@@ -38,7 +39,7 @@ var nil = () => ({ type: "NilLiteral", ...span() });
 var boolean = (value) => ({ type: "BooleanLiteral", value, ...span() });
 var number = (value, raw = String(value)) => ({ type: "NumberLiteral", value, raw, ...span() });
 var string = (value) => ({ type: "StringLiteral", value, raw: "", ...span() });
-var member = (object2, property) => isLuauName(property) ? { type: "MemberExpression", object: object2, property: identifier(property), ...span() } : index(object2, string(property));
+var member = (object2, property) => (0, import_parser2.isLuauName)(property) ? { type: "MemberExpression", object: object2, property: identifier(property), ...span() } : index(object2, string(property));
 var index = (object2, key) => ({ type: "IndexExpression", object: object2, index: key, ...span() });
 var call = (callee, args2) => ({ type: "CallExpression", callee, arguments: args2, ...span() });
 var methodCall = (object2, method, args2) => ({ type: "MethodCallExpression", object: object2, method: identifier(method), arguments: args2, ...span() });
@@ -47,7 +48,7 @@ var binary = (operator, left, right) => ({ type: "BinaryExpression", operator, l
 var unary = (operator, argument) => ({ type: "UnaryExpression", operator, argument, ...span() });
 var parenthesized = (expression) => ({ type: "ParenthesizedExpression", expression, ...span() });
 var table = (fields) => ({ type: "TableExpression", fields, ...span() });
-var field = (key, value) => isLuauName(key) ? { type: "TableFieldNamed", name: identifier(key), value } : { type: "TableFieldComputed", key: string(key), value };
+var field = (key, value) => (0, import_parser2.isLuauName)(key) ? { type: "TableFieldNamed", name: identifier(key), value } : { type: "TableFieldComputed", key: string(key), value };
 var block = (statements) => ({ type: "Block", statements, ...span() });
 var local = (names, init) => ({
   type: "LocalStatement",
@@ -90,32 +91,6 @@ var functionBody = (params, statements, hasVarargs = false) => ({
   ...span()
 });
 var localFunction = (name, func) => ({ type: "LocalFunctionStatement", name: identifier(name), func, ...span() });
-var LUAU_KEYWORDS = /* @__PURE__ */ new Set([
-  "and",
-  "break",
-  "do",
-  "else",
-  "elseif",
-  "end",
-  "false",
-  "for",
-  "function",
-  "if",
-  "in",
-  "local",
-  "nil",
-  "not",
-  "or",
-  "repeat",
-  "return",
-  "then",
-  "true",
-  "until",
-  "while"
-]);
-function isLuauName(name) {
-  return /^[A-Za-z_][A-Za-z0-9_]*$/.test(name) && !LUAU_KEYWORDS.has(name);
-}
 
 // src/names.ts
 var Names = class _Names {
@@ -158,6 +133,7 @@ var Names = class _Names {
 
 // src/language.ts
 var import_node_fs = require("fs");
+var import_parser3 = require("@tilua/parser");
 var read = (name) => (0, import_node_fs.readFileSync)(new URL(`../runtime/${name}`, importMetaUrl), "utf8");
 var implemented = (source) => new Set([...source.matchAll(/function __NAME__\.(\w+)/g)].map((m) => m[1]));
 var array = read("array.luau");
@@ -191,7 +167,7 @@ function objectKeys(type) {
     orders.push(keys);
   }
   const order = JSON.stringify(orders[0] ?? []);
-  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => JSON.stringify(key)).join(", ")} }` : "nil";
+  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => (0, import_parser3.luauString)(key)).join(", ")} }` : "nil";
   return { known, open: String(open) };
 }
 var plugin = {
@@ -272,7 +248,7 @@ var Lowerer = class {
   // --------------------------------------------------------
   /** A tilua name as Luau can write it: `local` is a keyword there. */
   name(name) {
-    if (!LUAU_KEYWORDS.has(name)) return name;
+    if (!import_parser2.LUAU_KEYWORDS.has(name)) return name;
     let renamed = this.renamed.get(name);
     if (!renamed) {
       renamed = this.names.fresh(`${name}_`);
@@ -376,7 +352,7 @@ var Lowerer = class {
       const type = this.options.types?.typeOf.get(argument);
       return {
         type,
-        typeText: type ? (0, import_parser2.formatType)(type) : void 0,
+        typeText: type ? (0, import_parser4.formatType)(type) : void 0,
         source: this.writtenSource(argument),
         declaration: declaration ? this.writtenSource(declaration) : void 0,
         spread: argument.type === "SpreadElement"
@@ -1455,6 +1431,9 @@ end
   callValues(node) {
     const chain = optionalChain(node);
     if (chain) return this.optionalChainExpression(chain);
+    if (node.type === "CallExpression" && (node.callee.type === "SuperExpression" || node.callee.type === "MemberExpression" && node.callee.object.type === "SuperExpression")) {
+      return this.expression(node);
+    }
     const object2 = linkObject(node);
     if (node.type === "CallExpression" && object2.type === "Identifier") {
       return this.link(node, this.reference(object2));
@@ -1520,7 +1499,7 @@ end
             ...args2
           ]);
         }
-        if (!isLuauName(node.method.name)) {
+        if (!import_parser2.isLuauName(node.method.name)) {
           this.report(node.method, `'${node.method.name}' is a Luau keyword and cannot be called with ':'`);
         }
         return methodCall(object2, node.method.name, args2);
@@ -1882,7 +1861,7 @@ function topLevelDeclaration(statements, name) {
 function moduleName(key) {
   const last = key.split("/").filter(Boolean).pop() ?? "module";
   const cleaned = last.replace(/[^A-Za-z0-9_]/g, "_");
-  return /^[A-Za-z_]/.test(cleaned) && !LUAU_KEYWORDS.has(cleaned) ? cleaned : `module_${cleaned}`;
+  return /^[A-Za-z_]/.test(cleaned) && !import_parser2.LUAU_KEYWORDS.has(cleaned) ? cleaned : `module_${cleaned}`;
 }
 function alwaysTruthy(value) {
   switch (value.type) {
@@ -1997,6 +1976,7 @@ var CLASS_METAMETHODS = [
 ];
 
 // src/linemap.ts
+var import_parser5 = require("@tilua/parser");
 function statementsOf(node) {
   const out2 = [];
   const visit = (value) => {
@@ -2029,7 +2009,7 @@ function buildLineMap(emitted, printed, origins) {
 }
 function lineMapSource(map) {
   const entries = [...map.entries()].sort((a, b) => a[0] - b[0]);
-  const quoted = (s) => JSON.stringify(s.replace(/\\/g, "/"));
+  const quoted = (s) => (0, import_parser5.luauString)(s.replace(/\\/g, "/"));
   return `{${entries.map(([line, o]) => `[${line}]={${quoted(o.file)},${o.line}}`).join(",")}}`;
 }
 
@@ -2078,13 +2058,13 @@ async function bundle(options) {
     const parsed = parseFile(file, diagnostics, directives);
     if (!parsed) return { modules: [], diagnostics };
     const { program: program2, text } = parsed;
-    const scopes = (0, import_parser3.analyzeScopes)(program2);
+    const scopes = (0, import_parser6.analyzeScopes)(program2);
     for (const d of scopes.diagnostics) {
       diagnostics.push({ file, message: d.message, line: d.node.line.start, column: d.node.column.start, category: "scope" });
     }
     sources.set(file, { file, name: nameOf(file), text, program: program2, scopes });
     for (const specifier of importedSpecifiers(program2)) {
-      const target = (0, import_parser3.resolveModulePath)(file, specifier, config2);
+      const target = (0, import_parser6.resolveModulePath)(file, specifier, config2);
       if (target && !target.endsWith(".d.tilua")) queue.push(target);
     }
   }
@@ -2118,7 +2098,7 @@ async function bundle(options) {
         lines: `${G}.lines`,
         fail: `${G}.fail`,
         resolve: (specifier) => {
-          const target = (0, import_parser3.resolveModulePath)(file, specifier, config2);
+          const target = (0, import_parser6.resolveModulePath)(file, specifier, config2);
           if (!target || target.endsWith(".d.tilua") || !sources.has(target)) return void 0;
           pending.push(target);
           return sources.get(target).name;
@@ -2140,14 +2120,14 @@ async function bundle(options) {
   }
   for (const [file, fileDirectives] of directives) {
     const semantic = diagnostics.filter((d) => d.file === file && (d.category === "scope" || d.category === "type"));
-    const { kept, unusedExpectErrors } = (0, import_parser3.applyDirectives)(fileDirectives, semantic, (d) => d.line);
+    const { kept, unusedExpectErrors } = (0, import_parser6.applyDirectives)(fileDirectives, semantic, (d) => d.line);
     const suppressed = new Set(semantic.filter((d) => !kept.includes(d)));
     const remaining = diagnostics.filter((d) => !suppressed.has(d));
     diagnostics.length = 0;
     diagnostics.push(...remaining);
     if (options.typeCheck === false) continue;
     for (const d of unusedExpectErrors) {
-      diagnostics.push({ file, message: import_parser3.UNUSED_EXPECT_ERROR, line: d.line, column: d.column, category: "type" });
+      diagnostics.push({ file, message: import_parser6.UNUSED_EXPECT_ERROR, line: d.line, column: d.column, category: "type" });
     }
   }
   const moduleProblems = new Set(diagnostics.filter((d) => d.category === "module").map((d) => `${d.file}:${d.line}:${d.column}:${d.message}`));
@@ -2183,7 +2163,7 @@ async function bundle(options) {
   const result = names.fresh("result");
   const entryStatements = (0, import_luau_parser2.parse)(`
 local ${ok}, ${result} = xpcall(function()
-    return ${G}.require(${JSON.stringify(sources.get(entry2).name)})
+    return ${G}.require(${(0, import_parser6.luauString)(sources.get(entry2).name)})
 end, ${G}.fail)
 if not ${ok} then
     error(${result}, 0)
@@ -2212,19 +2192,64 @@ ${G} = {
     -- and a traceback of those places follows. A message that is not a string
     -- is left as it is, and a position that is not this bundle's (a library
     -- that raised its error with one already mapped) is left alone.
+    --
+    -- It is an \`xpcall\` handler, and a handler that fails loses the error
+    -- altogether: Luau reports only "error in error handling". So the work is
+    -- done under \`pcall\`, leaning on nothing it has not checked is there (an
+    -- executor may lack \`debug.info\`, or refuse it), and an error it cannot
+    -- map is still answered as Luau raised it, with why.
     fail = function(message)
+        -- Taken first, before anything that can fail. Level 3 is the frame
+        -- that raised: past \`pcall\` and this handler.
+        local trace
+        if debug ~= nil and debug.traceback ~= nil then
+            local ok, text = pcall(debug.traceback, "", 3)
+            if ok and type(text) == "string" then
+                trace = text
+            end
+        end
+        local ok, described = pcall(${G}.describe, message, trace)
+        if ok then
+            return described
+        end
+        if type(message) ~= "string" then
+            return message
+        end
+        local why = type(described) == "string" and described or "unknown"
+        return message .. "\\n(tilua could not map this error to the project's files: " .. why .. ")" .. (trace or "")
+    end,
+    -- \`fail\`'s work. \`trace\` is a traceback from where the error was
+    -- raised, or nil when none could be taken.
+    describe = function(message, trace)
         if type(message) ~= "string" then
             return message
         end
         local lines = ${G}.lines
         if lines == nil then
-            return debug.traceback(message, 2)
+            return message .. (trace or "")
         end
+        -- The bundle's name, as a position in a message spells it: where this
+        -- function is, asked of the debug library by the function rather
+        -- than by a level, which \`pcall\` would shift. Failing that, a message
+        -- starts with the position it was raised at.
         local chunk
-        if debug.info ~= nil then
-            chunk = debug.info(1, "s")
-        else
-            chunk = debug.getinfo(1, "S").short_src
+        if debug ~= nil and debug.info ~= nil then
+            local found, source = pcall(debug.info, ${G}.describe, "s")
+            if found and type(source) == "string" then
+                chunk = source
+            end
+        end
+        if chunk == nil and debug ~= nil and debug.getinfo ~= nil then
+            local found, info = pcall(debug.getinfo, ${G}.describe, "S")
+            if found and type(info) == "table" and type(info.short_src) == "string" then
+                chunk = info.short_src
+            end
+        end
+        if chunk == nil then
+            chunk = message:match("^(.-):%d+:")
+        end
+        if chunk == nil then
+            return message .. (trace or "")
         end
         local prefix = chunk:gsub("%p", "%%%0")
         local function place(line)
@@ -2238,7 +2263,7 @@ ${G} = {
             return place(line)
         end)
         local frames = {}
-        for frame in debug.traceback("", 2):gmatch("[^\\n]+") do
+        for frame in (trace or ""):gmatch("[^\\n]+") do
             local line = frame:match(prefix .. ":(%d+)")
             local at = line ~= nil and place(line) or nil
             if at ~= nil then
@@ -2323,13 +2348,13 @@ function parseFile(file, diagnostics, directives) {
     return void 0;
   }
   try {
-    const program = (0, import_parser3.parse)(text);
-    const found = (0, import_parser3.directivesOf)(text);
+    const program = (0, import_parser6.parse)(text);
+    const found = (0, import_parser6.directivesOf)(text);
     directives.set(file, found);
     if (stamp !== void 0) parsedFiles.set(file, { stamp, program, text, directives: found });
     return { program, text };
   } catch (error) {
-    if (error instanceof import_parser3.ParseError || error instanceof import_parser3.LexError) {
+    if (error instanceof import_parser6.ParseError || error instanceof import_parser6.LexError) {
       const { line, column } = error;
       diagnostics.push({ file, message: error.message, line, column, category: "syntax" });
       return void 0;
@@ -2351,7 +2376,7 @@ function parsedLibrary(file) {
   }
   const cached = libraryCache.get(file);
   if (cached && cached.stamp === stamp) return cached.program;
-  const program = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(file, "utf8"));
+  const program = (0, import_parser6.parse)((0, import_node_fs2.readFileSync)(file, "utf8"));
   libraryCache.set(file, { stamp, program });
   return program;
 }
@@ -2359,7 +2384,7 @@ var moduleAnalyses = /* @__PURE__ */ new Map();
 function analyzeModules(modules, config2) {
   const out2 = [];
   const analyses = /* @__PURE__ */ new Map();
-  const libraries = config2 ? (0, import_parser3.resolveTypeLibraries)(config2) : { files: [], lowerings: [], problems: [] };
+  const libraries = config2 ? (0, import_parser6.resolveTypeLibraries)(config2) : { files: [], lowerings: [], problems: [] };
   for (const p of libraries.problems) out2.push({ file: p.file, message: p.message, line: p.line ?? 1, column: p.column ?? 1, category: "config" });
   const libs = libraries.files.map(parsedLibrary);
   const globals = libs.flatMap((lib) => lib.body.statements.flatMap((s) => s.type === "DeclareStatement" ? [s.name] : []));
@@ -2379,14 +2404,14 @@ function analyzeModules(modules, config2) {
       readWhile.set(file, remembered.read);
       return remembered.result;
     }
-    const scopes = (0, import_parser3.analyzeScopes)(program, { builtinGlobals: globals, reportUndeclared: libs.length > 0 });
+    const scopes = (0, import_parser6.analyzeScopes)(program, { builtinGlobals: globals, reportUndeclared: libs.length > 0 });
     const said = [];
     for (const d of scopes.diagnostics) {
       if (d.kind !== "undeclared") continue;
       said.push({ file, message: d.message, line: d.node.line.start, column: d.node.column.start, category: "type" });
     }
     const before = partials;
-    const types = (0, import_parser3.analyzeTypes)(program, scopes, {
+    const types = (0, import_parser6.analyzeTypes)(program, scopes, {
       libs,
       resolveModule: resolverFor(file),
       reportUnknownTypes: libs.length > 0
@@ -2409,7 +2434,7 @@ function analyzeModules(modules, config2) {
     return result;
   };
   const resolverFor = (file) => (specifier) => {
-    const target = (0, import_parser3.resolveModulePath)(file, specifier, config2);
+    const target = (0, import_parser6.resolveModulePath)(file, specifier, config2);
     if (!target) return void 0;
     const noteRead = () => {
       const read2 = readWhile.get(file) ?? /* @__PURE__ */ new Map();
@@ -2430,16 +2455,16 @@ function analyzeModules(modules, config2) {
     let program = byFile.get(target)?.program;
     if (!program) {
       try {
-        program = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(target, "utf8"));
+        program = (0, import_parser6.parse)((0, import_node_fs2.readFileSync)(target, "utf8"));
       } catch {
         return void 0;
       }
     }
     inProgress.add(target);
     try {
-      const scopes = (0, import_parser3.analyzeScopes)(program, { builtinGlobals: globals });
-      const types = byFile.has(target) ? analyzeModule(target, program).types : (0, import_parser3.analyzeTypes)(program, scopes, { libs, resolveModule: resolverFor(target), diagnostics: false });
-      const exports2 = (0, import_parser3.moduleExports)(program, scopes, types, resolverFor(target));
+      const scopes = (0, import_parser6.analyzeScopes)(program, { builtinGlobals: globals });
+      const types = byFile.has(target) ? analyzeModule(target, program).types : (0, import_parser6.analyzeTypes)(program, scopes, { libs, resolveModule: resolverFor(target), diagnostics: false });
+      const exports2 = (0, import_parser6.moduleExports)(program, scopes, types, resolverFor(target));
       exportsCache.set(target, exports2);
       noteRead();
       return exports2;

package/dist/cli.js

@@ -1,7 +1,7 @@
 #!/usr/bin/env node
 import {
   bundle
-} from "./chunk-X4DM2BX2.js";
+} from "./chunk-VANZBLCL.js";
 
 // src/cli.ts
 import { writeFileSync } from "fs";

package/dist/index.cjs

@@ -35,7 +35,7 @@ var importMetaUrl = /* @__PURE__ */ getImportMetaUrl();
 // src/bundle.ts
 var import_node_fs2 = require("fs");
 var import_node_path2 = require("path");
-var import_parser3 = require("@tilua/parser");
+var import_parser6 = require("@tilua/parser");
 var import_luau_parser2 = require("luau-parser");
 
 // src/config.ts
@@ -50,10 +50,11 @@ function resolveConfig(input, entry, cwd = process.cwd()) {
 }
 
 // src/lower.ts
-var import_parser2 = require("@tilua/parser");
+var import_parser4 = require("@tilua/parser");
 var import_luau_parser = require("luau-parser");
 
 // src/luau.ts
+var import_parser2 = require("@tilua/parser");
 var NO_SPAN = { line: { start: 0, end: 0 }, column: { start: 0, end: 0 } };
 var span = () => ({ line: { ...NO_SPAN.line }, column: { ...NO_SPAN.column } });
 var identifier = (name) => ({ type: "Identifier", name, ...span() });
@@ -61,7 +62,7 @@ var nil = () => ({ type: "NilLiteral", ...span() });
 var boolean = (value) => ({ type: "BooleanLiteral", value, ...span() });
 var number = (value, raw = String(value)) => ({ type: "NumberLiteral", value, raw, ...span() });
 var string = (value) => ({ type: "StringLiteral", value, raw: "", ...span() });
-var member = (object2, property) => isLuauName(property) ? { type: "MemberExpression", object: object2, property: identifier(property), ...span() } : index(object2, string(property));
+var member = (object2, property) => (0, import_parser2.isLuauName)(property) ? { type: "MemberExpression", object: object2, property: identifier(property), ...span() } : index(object2, string(property));
 var index = (object2, key) => ({ type: "IndexExpression", object: object2, index: key, ...span() });
 var call = (callee, args) => ({ type: "CallExpression", callee, arguments: args, ...span() });
 var methodCall = (object2, method, args) => ({ type: "MethodCallExpression", object: object2, method: identifier(method), arguments: args, ...span() });
@@ -70,7 +71,7 @@ var binary = (operator, left, right) => ({ type: "BinaryExpression", operator, l
 var unary = (operator, argument) => ({ type: "UnaryExpression", operator, argument, ...span() });
 var parenthesized = (expression) => ({ type: "ParenthesizedExpression", expression, ...span() });
 var table = (fields) => ({ type: "TableExpression", fields, ...span() });
-var field = (key, value) => isLuauName(key) ? { type: "TableFieldNamed", name: identifier(key), value } : { type: "TableFieldComputed", key: string(key), value };
+var field = (key, value) => (0, import_parser2.isLuauName)(key) ? { type: "TableFieldNamed", name: identifier(key), value } : { type: "TableFieldComputed", key: string(key), value };
 var block = (statements) => ({ type: "Block", statements, ...span() });
 var local = (names, init) => ({
   type: "LocalStatement",
@@ -114,32 +115,6 @@ var functionBody = (params, statements, hasVarargs = false) => ({
 });
 var localFunction = (name, func) => ({ type: "LocalFunctionStatement", name: identifier(name), func, ...span() });
 var program = (statements) => ({ type: "Program", body: block(statements), ...span() });
-var LUAU_KEYWORDS = /* @__PURE__ */ new Set([
-  "and",
-  "break",
-  "do",
-  "else",
-  "elseif",
-  "end",
-  "false",
-  "for",
-  "function",
-  "if",
-  "in",
-  "local",
-  "nil",
-  "not",
-  "or",
-  "repeat",
-  "return",
-  "then",
-  "true",
-  "until",
-  "while"
-]);
-function isLuauName(name) {
-  return /^[A-Za-z_][A-Za-z0-9_]*$/.test(name) && !LUAU_KEYWORDS.has(name);
-}
 
 // src/names.ts
 var Names = class _Names {
@@ -182,6 +157,7 @@ var Names = class _Names {
 
 // src/language.ts
 var import_node_fs = require("fs");
+var import_parser3 = require("@tilua/parser");
 var read = (name) => (0, import_node_fs.readFileSync)(new URL(`../runtime/${name}`, importMetaUrl), "utf8");
 var implemented = (source) => new Set([...source.matchAll(/function __NAME__\.(\w+)/g)].map((m) => m[1]));
 var array = read("array.luau");
@@ -215,7 +191,7 @@ function objectKeys(type) {
     orders.push(keys);
   }
   const order = JSON.stringify(orders[0] ?? []);
-  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => JSON.stringify(key)).join(", ")} }` : "nil";
+  const known = orders.length && orders.every((keys) => JSON.stringify(keys) === order) ? `{ ${orders[0].map((key) => (0, import_parser3.luauString)(key)).join(", ")} }` : "nil";
   return { known, open: String(open) };
 }
 var plugin = {
@@ -296,7 +272,7 @@ var Lowerer = class {
   // --------------------------------------------------------
   /** A tilua name as Luau can write it: `local` is a keyword there. */
   name(name) {
-    if (!LUAU_KEYWORDS.has(name)) return name;
+    if (!import_parser2.LUAU_KEYWORDS.has(name)) return name;
     let renamed = this.renamed.get(name);
     if (!renamed) {
       renamed = this.names.fresh(`${name}_`);
@@ -400,7 +376,7 @@ var Lowerer = class {
       const type = this.options.types?.typeOf.get(argument);
       return {
         type,
-        typeText: type ? (0, import_parser2.formatType)(type) : void 0,
+        typeText: type ? (0, import_parser4.formatType)(type) : void 0,
         source: this.writtenSource(argument),
         declaration: declaration ? this.writtenSource(declaration) : void 0,
         spread: argument.type === "SpreadElement"
@@ -1479,6 +1455,9 @@ end
   callValues(node) {
     const chain = optionalChain(node);
     if (chain) return this.optionalChainExpression(chain);
+    if (node.type === "CallExpression" && (node.callee.type === "SuperExpression" || node.callee.type === "MemberExpression" && node.callee.object.type === "SuperExpression")) {
+      return this.expression(node);
+    }
     const object2 = linkObject(node);
     if (node.type === "CallExpression" && object2.type === "Identifier") {
       return this.link(node, this.reference(object2));
@@ -1544,7 +1523,7 @@ end
             ...args
           ]);
         }
-        if (!isLuauName(node.method.name)) {
+        if (!import_parser2.isLuauName(node.method.name)) {
           this.report(node.method, `'${node.method.name}' is a Luau keyword and cannot be called with ':'`);
         }
         return methodCall(object2, node.method.name, args);
@@ -1906,7 +1885,7 @@ function topLevelDeclaration(statements, name) {
 function moduleName(key) {
   const last = key.split("/").filter(Boolean).pop() ?? "module";
   const cleaned = last.replace(/[^A-Za-z0-9_]/g, "_");
-  return /^[A-Za-z_]/.test(cleaned) && !LUAU_KEYWORDS.has(cleaned) ? cleaned : `module_${cleaned}`;
+  return /^[A-Za-z_]/.test(cleaned) && !import_parser2.LUAU_KEYWORDS.has(cleaned) ? cleaned : `module_${cleaned}`;
 }
 function alwaysTruthy(value) {
   switch (value.type) {
@@ -2021,6 +2000,7 @@ var CLASS_METAMETHODS = [
 ];
 
 // src/linemap.ts
+var import_parser5 = require("@tilua/parser");
 function statementsOf(node) {
   const out = [];
   const visit = (value) => {
@@ -2053,7 +2033,7 @@ function buildLineMap(emitted, printed, origins) {
 }
 function lineMapSource(map) {
   const entries = [...map.entries()].sort((a, b) => a[0] - b[0]);
-  const quoted = (s) => JSON.stringify(s.replace(/\\/g, "/"));
+  const quoted = (s) => (0, import_parser5.luauString)(s.replace(/\\/g, "/"));
   return `{${entries.map(([line, o]) => `[${line}]={${quoted(o.file)},${o.line}}`).join(",")}}`;
 }
 
@@ -2102,13 +2082,13 @@ async function bundle(options) {
     const parsed = parseFile(file, diagnostics, directives);
     if (!parsed) return { modules: [], diagnostics };
     const { program: program3, text } = parsed;
-    const scopes = (0, import_parser3.analyzeScopes)(program3);
+    const scopes = (0, import_parser6.analyzeScopes)(program3);
     for (const d of scopes.diagnostics) {
       diagnostics.push({ file, message: d.message, line: d.node.line.start, column: d.node.column.start, category: "scope" });
     }
     sources.set(file, { file, name: nameOf(file), text, program: program3, scopes });
     for (const specifier of importedSpecifiers(program3)) {
-      const target = (0, import_parser3.resolveModulePath)(file, specifier, config);
+      const target = (0, import_parser6.resolveModulePath)(file, specifier, config);
       if (target && !target.endsWith(".d.tilua")) queue.push(target);
     }
   }
@@ -2142,7 +2122,7 @@ async function bundle(options) {
         lines: `${G}.lines`,
         fail: `${G}.fail`,
         resolve: (specifier) => {
-          const target = (0, import_parser3.resolveModulePath)(file, specifier, config);
+          const target = (0, import_parser6.resolveModulePath)(file, specifier, config);
           if (!target || target.endsWith(".d.tilua") || !sources.has(target)) return void 0;
           pending.push(target);
           return sources.get(target).name;
@@ -2164,14 +2144,14 @@ async function bundle(options) {
   }
   for (const [file, fileDirectives] of directives) {
     const semantic = diagnostics.filter((d) => d.file === file && (d.category === "scope" || d.category === "type"));
-    const { kept, unusedExpectErrors } = (0, import_parser3.applyDirectives)(fileDirectives, semantic, (d) => d.line);
+    const { kept, unusedExpectErrors } = (0, import_parser6.applyDirectives)(fileDirectives, semantic, (d) => d.line);
     const suppressed = new Set(semantic.filter((d) => !kept.includes(d)));
     const remaining = diagnostics.filter((d) => !suppressed.has(d));
     diagnostics.length = 0;
     diagnostics.push(...remaining);
     if (options.typeCheck === false) continue;
     for (const d of unusedExpectErrors) {
-      diagnostics.push({ file, message: import_parser3.UNUSED_EXPECT_ERROR, line: d.line, column: d.column, category: "type" });
+      diagnostics.push({ file, message: import_parser6.UNUSED_EXPECT_ERROR, line: d.line, column: d.column, category: "type" });
     }
   }
   const moduleProblems = new Set(diagnostics.filter((d) => d.category === "module").map((d) => `${d.file}:${d.line}:${d.column}:${d.message}`));
@@ -2207,7 +2187,7 @@ async function bundle(options) {
   const result = names.fresh("result");
   const entryStatements = (0, import_luau_parser2.parse)(`
 local ${ok}, ${result} = xpcall(function()
-    return ${G}.require(${JSON.stringify(sources.get(entry).name)})
+    return ${G}.require(${(0, import_parser6.luauString)(sources.get(entry).name)})
 end, ${G}.fail)
 if not ${ok} then
     error(${result}, 0)
@@ -2236,19 +2216,64 @@ ${G} = {
     -- and a traceback of those places follows. A message that is not a string
     -- is left as it is, and a position that is not this bundle's (a library
     -- that raised its error with one already mapped) is left alone.
+    --
+    -- It is an \`xpcall\` handler, and a handler that fails loses the error
+    -- altogether: Luau reports only "error in error handling". So the work is
+    -- done under \`pcall\`, leaning on nothing it has not checked is there (an
+    -- executor may lack \`debug.info\`, or refuse it), and an error it cannot
+    -- map is still answered as Luau raised it, with why.
     fail = function(message)
+        -- Taken first, before anything that can fail. Level 3 is the frame
+        -- that raised: past \`pcall\` and this handler.
+        local trace
+        if debug ~= nil and debug.traceback ~= nil then
+            local ok, text = pcall(debug.traceback, "", 3)
+            if ok and type(text) == "string" then
+                trace = text
+            end
+        end
+        local ok, described = pcall(${G}.describe, message, trace)
+        if ok then
+            return described
+        end
+        if type(message) ~= "string" then
+            return message
+        end
+        local why = type(described) == "string" and described or "unknown"
+        return message .. "\\n(tilua could not map this error to the project's files: " .. why .. ")" .. (trace or "")
+    end,
+    -- \`fail\`'s work. \`trace\` is a traceback from where the error was
+    -- raised, or nil when none could be taken.
+    describe = function(message, trace)
         if type(message) ~= "string" then
             return message
         end
         local lines = ${G}.lines
         if lines == nil then
-            return debug.traceback(message, 2)
+            return message .. (trace or "")
         end
+        -- The bundle's name, as a position in a message spells it: where this
+        -- function is, asked of the debug library by the function rather
+        -- than by a level, which \`pcall\` would shift. Failing that, a message
+        -- starts with the position it was raised at.
         local chunk
-        if debug.info ~= nil then
-            chunk = debug.info(1, "s")
-        else
-            chunk = debug.getinfo(1, "S").short_src
+        if debug ~= nil and debug.info ~= nil then
+            local found, source = pcall(debug.info, ${G}.describe, "s")
+            if found and type(source) == "string" then
+                chunk = source
+            end
+        end
+        if chunk == nil and debug ~= nil and debug.getinfo ~= nil then
+            local found, info = pcall(debug.getinfo, ${G}.describe, "S")
+            if found and type(info) == "table" and type(info.short_src) == "string" then
+                chunk = info.short_src
+            end
+        end
+        if chunk == nil then
+            chunk = message:match("^(.-):%d+:")
+        end
+        if chunk == nil then
+            return message .. (trace or "")
         end
         local prefix = chunk:gsub("%p", "%%%0")
         local function place(line)
@@ -2262,7 +2287,7 @@ ${G} = {
             return place(line)
         end)
         local frames = {}
-        for frame in debug.traceback("", 2):gmatch("[^\\n]+") do
+        for frame in (trace or ""):gmatch("[^\\n]+") do
             local line = frame:match(prefix .. ":(%d+)")
             local at = line ~= nil and place(line) or nil
             if at ~= nil then
@@ -2347,13 +2372,13 @@ function parseFile(file, diagnostics, directives) {
     return void 0;
   }
   try {
-    const program2 = (0, import_parser3.parse)(text);
-    const found = (0, import_parser3.directivesOf)(text);
+    const program2 = (0, import_parser6.parse)(text);
+    const found = (0, import_parser6.directivesOf)(text);
     directives.set(file, found);
     if (stamp !== void 0) parsedFiles.set(file, { stamp, program: program2, text, directives: found });
     return { program: program2, text };
   } catch (error) {
-    if (error instanceof import_parser3.ParseError || error instanceof import_parser3.LexError) {
+    if (error instanceof import_parser6.ParseError || error instanceof import_parser6.LexError) {
       const { line, column } = error;
       diagnostics.push({ file, message: error.message, line, column, category: "syntax" });
       return void 0;
@@ -2375,7 +2400,7 @@ function parsedLibrary(file) {
   }
   const cached = libraryCache.get(file);
   if (cached && cached.stamp === stamp) return cached.program;
-  const program2 = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(file, "utf8"));
+  const program2 = (0, import_parser6.parse)((0, import_node_fs2.readFileSync)(file, "utf8"));
   libraryCache.set(file, { stamp, program: program2 });
   return program2;
 }
@@ -2383,7 +2408,7 @@ var moduleAnalyses = /* @__PURE__ */ new Map();
 function analyzeModules(modules, config) {
   const out = [];
   const analyses = /* @__PURE__ */ new Map();
-  const libraries = config ? (0, import_parser3.resolveTypeLibraries)(config) : { files: [], lowerings: [], problems: [] };
+  const libraries = config ? (0, import_parser6.resolveTypeLibraries)(config) : { files: [], lowerings: [], problems: [] };
   for (const p of libraries.problems) out.push({ file: p.file, message: p.message, line: p.line ?? 1, column: p.column ?? 1, category: "config" });
   const libs = libraries.files.map(parsedLibrary);
   const globals = libs.flatMap((lib) => lib.body.statements.flatMap((s) => s.type === "DeclareStatement" ? [s.name] : []));
@@ -2403,14 +2428,14 @@ function analyzeModules(modules, config) {
       readWhile.set(file, remembered.read);
       return remembered.result;
     }
-    const scopes = (0, import_parser3.analyzeScopes)(program2, { builtinGlobals: globals, reportUndeclared: libs.length > 0 });
+    const scopes = (0, import_parser6.analyzeScopes)(program2, { builtinGlobals: globals, reportUndeclared: libs.length > 0 });
     const said = [];
     for (const d of scopes.diagnostics) {
       if (d.kind !== "undeclared") continue;
       said.push({ file, message: d.message, line: d.node.line.start, column: d.node.column.start, category: "type" });
     }
     const before = partials;
-    const types = (0, import_parser3.analyzeTypes)(program2, scopes, {
+    const types = (0, import_parser6.analyzeTypes)(program2, scopes, {
       libs,
       resolveModule: resolverFor(file),
       reportUnknownTypes: libs.length > 0
@@ -2433,7 +2458,7 @@ function analyzeModules(modules, config) {
     return result;
   };
   const resolverFor = (file) => (specifier) => {
-    const target = (0, import_parser3.resolveModulePath)(file, specifier, config);
+    const target = (0, import_parser6.resolveModulePath)(file, specifier, config);
     if (!target) return void 0;
     const noteRead = () => {
       const read2 = readWhile.get(file) ?? /* @__PURE__ */ new Map();
@@ -2454,16 +2479,16 @@ function analyzeModules(modules, config) {
     let program2 = byFile.get(target)?.program;
     if (!program2) {
       try {
-        program2 = (0, import_parser3.parse)((0, import_node_fs2.readFileSync)(target, "utf8"));
+        program2 = (0, import_parser6.parse)((0, import_node_fs2.readFileSync)(target, "utf8"));
       } catch {
         return void 0;
       }
     }
     inProgress.add(target);
     try {
-      const scopes = (0, import_parser3.analyzeScopes)(program2, { builtinGlobals: globals });
-      const types = byFile.has(target) ? analyzeModule(target, program2).types : (0, import_parser3.analyzeTypes)(program2, scopes, { libs, resolveModule: resolverFor(target), diagnostics: false });
-      const exports2 = (0, import_parser3.moduleExports)(program2, scopes, types, resolverFor(target));
+      const scopes = (0, import_parser6.analyzeScopes)(program2, { builtinGlobals: globals });
+      const types = byFile.has(target) ? analyzeModule(target, program2).types : (0, import_parser6.analyzeTypes)(program2, scopes, { libs, resolveModule: resolverFor(target), diagnostics: false });
+      const exports2 = (0, import_parser6.moduleExports)(program2, scopes, types, resolverFor(target));
       exportsCache.set(target, exports2);
       noteRead();
       return exports2;
@@ -2498,35 +2523,35 @@ function allStatements(statements) {
 // src/compile.ts
 var import_node_fs3 = require("fs");
 var import_node_path3 = require("path");
-var import_parser4 = require("@tilua/parser");
+var import_parser7 = require("@tilua/parser");
 var import_luau_parser3 = require("luau-parser");
 async function compile(source, config) {
   let program2;
   try {
-    program2 = (0, import_parser4.parse)(source);
+    program2 = (0, import_parser7.parse)(source);
   } catch (error) {
-    if (error instanceof import_parser4.ParseError || error instanceof import_parser4.LexError) {
+    if (error instanceof import_parser7.ParseError || error instanceof import_parser7.LexError) {
       const { line, column } = error;
       return { diagnostics: [{ message: error.message, line, column }] };
     }
     throw error;
   }
-  const scopes = (0, import_parser4.analyzeScopes)(program2);
+  const scopes = (0, import_parser7.analyzeScopes)(program2);
   const diagnostics = scopes.diagnostics.map((d) => ({
     message: d.message,
     line: d.node.line.start,
     column: d.node.column.start
   }));
   const { config: resolved, problems } = resolveConfig(config, (0, import_node_path3.resolve)("main.tilua"));
-  const libraries = resolved ? (0, import_parser4.resolveTypeLibraries)(resolved) : { files: [], lowerings: [], problems: [] };
+  const libraries = resolved ? (0, import_parser7.resolveTypeLibraries)(resolved) : { files: [], lowerings: [], problems: [] };
   const { lowerings, problems: loweringProblems } = await loadLowerings(libraries.lowerings);
   for (const p of [...problems, ...libraries.problems]) {
     diagnostics.push({ message: p.message, line: p.line ?? 1, column: p.column ?? 1 });
   }
   for (const p of loweringProblems) diagnostics.push({ message: p.message, line: 1, column: 1 });
-  const libs = libraries.files.map((file) => (0, import_parser4.parse)((0, import_node_fs3.readFileSync)(file, "utf8")));
+  const libs = libraries.files.map((file) => (0, import_parser7.parse)((0, import_node_fs3.readFileSync)(file, "utf8")));
   const lowered = lower(program2, scopes, {
-    types: (0, import_parser4.analyzeTypes)(program2, scopes, { libs, diagnostics: false }),
+    types: (0, import_parser7.analyzeTypes)(program2, scopes, { libs, diagnostics: false }),
     lowerings,
     target: resolved?.target,
     source

package/dist/index.js

@@ -4,7 +4,7 @@ import {
   lower,
   program,
   resolveConfig
-} from "./chunk-X4DM2BX2.js";
+} from "./chunk-VANZBLCL.js";
 
 // src/compile.ts
 import { readFileSync } from "fs";

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@tilua/compiler",
-  "version": "3.0.0",
+  "version": "3.1.0",
   "description": "Compiles tilua to Luau: lowers the @tilua/parser AST to a luau-parser AST and prints it",
   "main": "./dist/index.js",
   "module": "./dist/index.js",
@@ -38,7 +38,7 @@
   "type": "module",
   "dependencies": {
     "luau-parser": "^1.0.3",
-    "@tilua/parser": "^3.0.0"
+    "@tilua/parser": "^3.1.0"
   },
   "devDependencies": {
     "@types/node": "^22.20.2",

package/runtime/object.luau

@@ -52,3 +52,42 @@ function __NAME__.entries(known, open, t)
 	end
 	return out
 end
+
+-- JavaScript's `Object` functions, as methods of the table they take first.
+-- `known` and `open` are handed to every method here; these need neither.
+
+-- The table's own member, not one its metatable's `__index` lends it.
+function __NAME__.hasOwn(known, open, t, key)
+	return rawget(t, key) ~= nil
+end
+
+function __NAME__.hasOwnProperty(known, open, t, key)
+	return rawget(t, key) ~= nil
+end
+
+-- Each source's members onto `t`, later sources over earlier ones; a `nil`
+-- source is skipped, as JavaScript skips `null`.
+function __NAME__.assign(known, open, t, ...)
+	for i = 1, select("#", ...) do
+		local source = select(i, ...)
+		if source ~= nil then
+			for key, value in pairs(source) do
+				t[key] = value
+			end
+		end
+	end
+	return t
+end
+
+-- Luau freezes a table in place. Lua 5.1 has no way to, and the table is
+-- answered as it is.
+function __NAME__.freeze(known, open, t)
+	if table.freeze ~= nil and not table.isfrozen(t) then
+		table.freeze(t)
+	end
+	return t
+end
+
+function __NAME__.isFrozen(known, open, t)
+	return table.isfrozen ~= nil and table.isfrozen(t)
+end