From 1de0aafa5bd0a96c6a40de33e130bf7413fa539f Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 6 Apr 2020 21:30:57 +0200
Subject: [PATCH 01/43] Added cancheck; candran.compile, .make and .preprocess
 returns nil, err instead of throwing an error; can and canc error output
 should now be similar to Lua

---
 bin/can                         |  11 +-
 bin/canc                        |  24 +-
 bin/cancheck                    | 116 +++++++++
 candran.can                     |  63 +++--
 candran.lua                     | 412 +++++++++++++++++---------------
 compiler/lua53.can              |   2 +-
 compiler/luajit.can             |   2 +-
 rockspec/candran-scm-1.rockspec |   6 +-
 test/test.lua                   |   2 +-
 9 files changed, 412 insertions(+), 226 deletions(-)
 create mode 100644 bin/cancheck

diff --git a/bin/can b/bin/can
index 2ec98fd..9076123 100644
--- a/bin/can
+++ b/bin/can
@@ -1,4 +1,5 @@
-#!/bin/lua
+#!/usr/bin/env lua
+
 local candran = require("candran")
 local cmdline = require("candran.cmdline")
 
@@ -29,7 +30,13 @@ if arg[#arg] == "-" then
 	f()
 -- file
 elseif #args >= 1 then
-	candran.dofile(args[1], args)
+	local f, err = candran.loadfile(args[1], nil, args)
+	if not f then
+		print("can: "..err)
+		os.exit(1)
+	else
+		f()
+	end
 -- REPL
 else
 	-- Setup linenoise
diff --git a/bin/canc b/bin/canc
index d6fbb6c..c73d368 100644
--- a/bin/canc
+++ b/bin/canc
@@ -1,4 +1,5 @@
-#!/bin/lua
+#!/usr/bin/env lua
+
 local candran = require("candran")
 local cmdline = require("candran.cmdline")
 local parse = require("candran.can-parser.parser").parse
@@ -78,13 +79,28 @@ for _, file in ipairs(args) do
 
 	local out = input
 	if args.preprocess then
-		out = candran.preprocess(out, args)
+		local r, err = candran.preprocess(out, args)
+		if not r then
+			print("canc: "..err)
+			os.exit(1)
+		end
+		out = r
 	end
 	if args.compile then
-		out = candran.compile(out, args)
+		local r, err = candran.compile(out, args)
+		if not r then
+			print("canc: "..err)
+			os.exit(1)
+		end
+		out = r
 	end
 	if args.compile == nil and args.preprocess == nil then
-		out = candran.make(input, args)
+		local r, err = candran.make(input, args)
+		if not r then
+			print("canc: "..err)
+			os.exit(1)
+		end
+		out = r
 	end
 
 	if args.print then
diff --git a/bin/cancheck b/bin/cancheck
new file mode 100644
index 0000000..df59191
--- /dev/null
+++ b/bin/cancheck
@@ -0,0 +1,116 @@
+#!/usr/bin/env lua
+
+-- Monkey patch Luacheck (tested against version 0.23.0) to support Candran files
+local candran = require("candran")
+
+local function pattern(token)
+	return "()"..token:gsub("[^%w]", "%%%0").."()"
+end
+
+local tokenAlias = {
+	["self"] = { "@", ":" }
+}
+
+-- Patch checker
+local oldCheck = require("luacheck.check")
+local function check(can)
+	local lua, err = candran.make(can)
+	if lua then
+		local r = oldCheck(lua)
+		-- Calculate Candran file position.
+		if #r.warnings > 0 then
+			local lua_lines = {}
+			for l in (lua.."\n"):gmatch("([^\n]*)\n") do
+				table.insert(lua_lines, l)
+			end
+			local can_lines = {}
+			for l in (can.."\n"):gmatch("([^\n]*)\n") do
+				table.insert(can_lines, l)
+			end
+			for _, warning in ipairs(r.warnings) do
+				-- candran line
+				local lua_line = lua_lines[warning.line]
+				warning.can_line = tonumber(lua_line:match(".*%-%- .-%:(%d+)$"))
+
+				-- candran column
+				local can_line = can_lines[warning.can_line]
+				local lua_token = lua_line:sub(warning.column, warning.end_column)
+				local token_pattern = pattern(lua_token) -- token finding pattern
+				-- the warning happens on the n-th instance of lua_token on this line
+				local lua_n = 1
+				for start in lua_line:gmatch(token_pattern) do
+					if start >= warning.column then
+						break
+					end
+					lua_n = lua_n + 1
+				end
+				-- Find associated candran token. If lua_n > can_nmax, the last found lua_token is used.
+				-- This approximation should work in like, 90% of cases.
+				local can_n = 1
+				local pos = 1
+				while can_n <= lua_n do
+					-- find first token or alias of this token
+					local start, stop = can_line:match(token_pattern, pos)
+					if tokenAlias[lua_token] then
+						for _, token in ipairs(tokenAlias[lua_token]) do
+							local nstart, nstop = can_line:match(pattern(token), pos)
+							if nstart and (not start or nstart < start) then
+								start, stop = nstart, nstop
+							end
+						end
+					end
+					-- found
+					if start then
+						pos = stop
+						warning.can_column, warning.can_end_column = start, stop
+						can_n = can_n + 1
+					else
+						break
+					end
+				end
+			end
+		end
+		return r
+	else
+		local line, column, msg = err:match(":(%d+):(%d+):%s*(.*)$")
+		local syntax_error = {
+			code = "011",
+			line = line,
+			column = column,
+			end_column = column,
+			msg = msg
+		}
+		return {
+			warnings = {syntax_error},
+			inline_options = {},
+			line_lengths = {},
+			line_endings = {}
+		}
+	end
+end
+package.loaded["luacheck.check"] = check
+
+-- Patch formatter
+local format = require("luacheck.format")
+local function format_location(file, location, opts)
+   local res = ("%s:%d:%d"):format(file, location.can_line or location.line, location.can_column or location.column)
+   if opts.ranges then
+      res = ("%s-%d"):format(res, location.can_end_column or location.end_column)
+   end
+   return res
+end
+local function setupvalue(fn, val, name, ...)
+	for i=1, debug.getinfo(fn, "u").nups do
+		local n, v = debug.getupvalue(fn, i)
+		if n == name then
+			if not ... then
+				debug.setupvalue(fn, i, val)
+			else
+				setupvalue(v, val, ...)
+			end
+		end
+	end
+end
+setupvalue(format.builtin_formatters.plain, format_location, "format_event", "format_location")
+
+require("luacheck.main")
diff --git a/candran.can b/candran.can
index 3bbed3b..2022852 100644
--- a/candran.can
+++ b/candran.can
@@ -11,7 +11,7 @@
 #import("candran.can-parser.parser")
 
 local candran = {
-	VERSION = "0.11.0"
+	VERSION = "0.12.0"
 }
 
 --- Default options.
@@ -37,7 +37,9 @@ end
 --- Run the preprocessor
 -- @tparam input string input code
 -- @tparam options table arguments for the preprocessor. They will be inserted into the preprocessor environement.
--- @treturn output string output code
+-- @treturn[1] output string output code
+-- @treturn[2] nil nil if error
+-- @treturn[2] error string error message
 function candran.preprocess(input, options={})
 	options = util.merge(candran.default, options)
 
@@ -90,10 +92,10 @@ function candran.preprocess(input, options={})
 
 		-- open module file
 		local f = io.open(filepath)
-		if not f then error("Can't open the module file to import") end
+		if not f then error("can't open the module file to import") end
 
 		margs = util.merge(options, { chunkname = filepath, loadLocal = true, loadPackage = true }, margs)
-		local modcontent = candran.preprocess(f:read("*a"), margs)
+		local modcontent = assert(candran.preprocess(f:read("*a"), margs))
 		f:close()
 
 		-- get module name (ex: module name of path.to.module is module)
@@ -113,7 +115,7 @@ function candran.preprocess(input, options={})
 	-- @tparam file string filepath
 	env.include = function(file)
 		local f = io.open(file)
-		if not f then error("Can't open the file "..file.." to include") end
+		if not f then error("can't open the file "..file.." to include") end
 		env.write(f:read("*a"))
 		f:close()
 	end
@@ -131,12 +133,21 @@ function candran.preprocess(input, options={})
 	end
 
 	-- compile & load preprocessor
-	local preprocess, err = util.load(candran.compile(preprocessor, args), "candran preprocessor", env)
-	if not preprocess then error("Error while creating Candran preprocessor: " .. err) end
+	local preprocess, err = candran.compile(preprocessor, options)
+	if not preprocess then
+		return nil, "in preprocessor: "..err
+	end
+
+	preprocess, err = util.load(preprocessor, "candran preprocessor", env)
+	if not preprocess then
+		return nil, "in preprocessor: "..err
+	end
 
 	-- execute preprocessor
 	local success, output = pcall(preprocess)
-	if not success then error("Error while preprocessing file: " .. output) end
+	if not success then
+		return nil, "in preprocessor: "..output
+	end
 
 	return output
 end
@@ -144,14 +155,16 @@ end
 --- Run the compiler
 -- @tparam input string input code
 -- @tparam options table options for the compiler
--- @treturn output string output code
+-- @treturn[1] output string output code
+-- @treturn[2] nil nil if error
+-- @treturn[2] error string error message
 function candran.compile(input, options={})
 	options = util.merge(candran.default, options)
 
 	local ast, errmsg = parser.parse(input, options.chunkname)
 
 	if not ast then
-		error("Compiler: error while parsing file: "..errmsg)
+		return nil, errmsg
 	end
 
 	return require("compiler."..options.target)(input, ast, options)
@@ -160,9 +173,18 @@ end
 --- Preprocess & compile code
 -- @tparam code string input code
 -- @tparam options table arguments for the preprocessor and compiler
--- @treturn output string output code
+-- @treturn[1] output string output code
+-- @treturn[2] nil nil if error
+-- @treturn[2] error string error message
 function candran.make(code, options)
-	return candran.compile(candran.preprocess(code, options), options)
+	local r, err = candran.preprocess(code, options)
+	if r then
+		r, err = candran.compile(r, options)
+		if r then
+			return r
+		end
+	end
+	return r, err
 end
 
 local errorRewritingActive = false
@@ -171,7 +193,9 @@ local codeCache = {}
 -- Will rewrite errors by default.
 function candran.loadfile(filepath, env, options)
 	local f, err = io.open(filepath)
-	if not f then error("can't open the file: "..err) end
+	if not f then
+		return nil, "cannot open %s":format(err)
+	end
 	local content = f:read("*a")
 	f:close()
 
@@ -183,14 +207,19 @@ end
 function candran.load(chunk, chunkname, env, options={})
 	options = util.merge({ chunkname = tostring(chunkname or chunk) }, options)
 
-	codeCache[options.chunkname] = candran.make(chunk, options)
-	local f, err = util.load(codeCache[options.chunkname], options.chunkname, env)
+	local code, err = candran.make(chunk, options)
+	if not code then
+		return code, err
+	end
+
+	codeCache[options.chunkname] = code
+	local f, err = util.load(code, options.chunkname, env)
 
 	-- Um. Candran isn't supposed to generate invalid Lua code, so this is a major issue.
 	-- This is not going to raise an error because this is supposed to behave similarly to Lua's load function.
 	-- But the error message will likely be useless unless you know how Candran works.
 	if f == nil then
-		return f, "Candran unexpectedly generated invalid code: "..err
+		return f, "candran unexpectedly generated invalid code: "..err
 	end
 
 	if options.rewriteErrors == false then
@@ -248,7 +277,7 @@ function candran.messageHandler(message)
 
 		if originalFile then
 			local i = 0
-			for l in originalFile:gmatch("([^\n]*)\n") do
+			for l in (originalFile.."\n"):gmatch("([^\n]*)\n") do
 				i = i +1
 				if i == line then
 					local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$")
diff --git a/candran.lua b/candran.lua
index bc6f34a..8ea939c 100644
--- a/candran.lua
+++ b/candran.lua
@@ -299,7 +299,7 @@ local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
 return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
 end -- ./compiler/lua53.can:183
 local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local a = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(a, 1, a.n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
 end -- ./compiler/lua53.can:186
 local CONTINUE_START = function() -- ./compiler/lua53.can:188
 return "do" .. indent() -- ./compiler/lua53.can:189
@@ -1155,7 +1155,7 @@ local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
 return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
 end -- ./compiler/lua53.can:183
 local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local a = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(a, 1, a.n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
 end -- ./compiler/lua53.can:186
 local CONTINUE_START = function() -- ./compiler/lua53.can:188
 return "do" .. indent() -- ./compiler/lua53.can:189
@@ -1838,7 +1838,7 @@ UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
 return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
 end -- ./compiler/luajit.can:4
 APPEND = function(t, toAppend) -- ./compiler/luajit.can:6
-return "do" .. indent() .. "local a, p = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #a do" .. indent() .. t .. "[p] = a[i]" .. newline() .. "p = p + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
 end -- ./compiler/luajit.can:7
 tags["_opid"]["idiv"] = function(left, right) -- ./compiler/luajit.can:10
 return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/luajit.can:11
@@ -2049,7 +2049,7 @@ local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
 return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
 end -- ./compiler/lua53.can:183
 local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local a = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(a, 1, a.n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
 end -- ./compiler/lua53.can:186
 local CONTINUE_START = function() -- ./compiler/lua53.can:188
 return "do" .. indent() -- ./compiler/lua53.can:189
@@ -2732,7 +2732,7 @@ UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
 return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
 end -- ./compiler/luajit.can:4
 APPEND = function(t, toAppend) -- ./compiler/luajit.can:6
-return "do" .. indent() .. "local a, p = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #a do" .. indent() .. t .. "[p] = a[i]" .. newline() .. "p = p + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
 end -- ./compiler/luajit.can:7
 tags["_opid"]["idiv"] = function(left, right) -- ./compiler/luajit.can:10
 return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/luajit.can:11
@@ -4485,7 +4485,7 @@ return parser -- ./candran/can-parser/parser.lua:744
 end -- ./candran/can-parser/parser.lua:744
 local parser = _() or parser -- ./candran/can-parser/parser.lua:748
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:749
-local candran = { ["VERSION"] = "0.11.0" } -- candran.can:14
+local candran = { ["VERSION"] = "0.12.0" } -- candran.can:14
 candran["default"] = { -- candran.can:18
 ["target"] = "lua53", -- candran.can:19
 ["indentation"] = "", -- candran.can:20
@@ -4503,212 +4503,228 @@ else -- candran.can:31
 candran["default"]["target"] = "lua51" -- candran.can:33
 end -- candran.can:33
 end -- candran.can:33
-candran["preprocess"] = function(input, options) -- candran.can:41
-if options == nil then options = {} end -- candran.can:41
-options = util["merge"](candran["default"], options) -- candran.can:42
-local preprocessor = "" -- candran.can:45
-local i = 0 -- candran.can:46
-local inLongString = false -- candran.can:47
-local inComment = false -- candran.can:48
+candran["preprocess"] = function(input, options) -- candran.can:43
+if options == nil then options = {} end -- candran.can:43
+options = util["merge"](candran["default"], options) -- candran.can:44
+local preprocessor = "" -- candran.can:47
+local i = 0 -- candran.can:48
+local inLongString = false -- candran.can:49
+local inComment = false -- candran.can:50
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:49
-i = i + (1) -- candran.can:50
-if inComment then -- candran.can:52
-inComment = not line:match("%]%]") -- candran.can:53
-elseif inLongString then -- candran.can:54
-inLongString = not line:match("%]%]") -- candran.can:55
-else -- candran.can:55
-if line:match("[^%-]%[%[") then -- candran.can:57
-inLongString = true -- candran.can:58
-elseif line:match("%-%-%[%[") then -- candran.can:59
-inComment = true -- candran.can:60
-end -- candran.can:60
-end -- candran.can:60
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:63
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:64
-else -- candran.can:64
-local l = line:sub(1, - 2) -- candran.can:66
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:67
+)") do -- candran.can:51
+i = i + (1) -- candran.can:52
+if inComment then -- candran.can:54
+inComment = not line:match("%]%]") -- candran.can:55
+elseif inLongString then -- candran.can:56
+inLongString = not line:match("%]%]") -- candran.can:57
+else -- candran.can:57
+if line:match("[^%-]%[%[") then -- candran.can:59
+inLongString = true -- candran.can:60
+elseif line:match("%-%-%[%[") then -- candran.can:61
+inComment = true -- candran.can:62
+end -- candran.can:62
+end -- candran.can:62
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:65
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:66
+else -- candran.can:66
+local l = line:sub(1, - 2) -- candran.can:68
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:69
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:68
-else -- candran.can:68
-preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
 ") -- candran.can:70
-end -- candran.can:70
-end -- candran.can:70
-end -- candran.can:70
-preprocessor = preprocessor .. ("return output") -- candran.can:74
-local env = util["merge"](_G, options) -- candran.can:77
-env["candran"] = candran -- candran.can:79
-env["output"] = "" -- candran.can:81
-env["import"] = function(modpath, margs) -- candran.can:88
-if margs == nil then margs = {} end -- candran.can:88
-local filepath = assert(util["search"](modpath, { -- candran.can:89
-"can", -- candran.can:89
-"lua" -- candran.can:89
-}), "No module named \"" .. modpath .. "\"") -- candran.can:89
-local f = io["open"](filepath) -- candran.can:92
-if not f then -- candran.can:93
-error("Can't open the module file to import") -- candran.can:93
-end -- candran.can:93
-margs = util["merge"](options, { -- candran.can:95
-["chunkname"] = filepath, -- candran.can:95
-["loadLocal"] = true, -- candran.can:95
-["loadPackage"] = true -- candran.can:95
-}, margs) -- candran.can:95
-local modcontent = candran["preprocess"](f:read("*a"), margs) -- candran.can:96
-f:close() -- candran.can:97
-local modname = modpath:match("[^%.]+$") -- candran.can:100
+else -- candran.can:70
+preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
+") -- candran.can:72
+end -- candran.can:72
+end -- candran.can:72
+end -- candran.can:72
+preprocessor = preprocessor .. ("return output") -- candran.can:76
+local env = util["merge"](_G, options) -- candran.can:79
+env["candran"] = candran -- candran.can:81
+env["output"] = "" -- candran.can:83
+env["import"] = function(modpath, margs) -- candran.can:90
+if margs == nil then margs = {} end -- candran.can:90
+local filepath = assert(util["search"](modpath, { -- candran.can:91
+"can", -- candran.can:91
+"lua" -- candran.can:91
+}), "No module named \"" .. modpath .. "\"") -- candran.can:91
+local f = io["open"](filepath) -- candran.can:94
+if not f then -- candran.can:95
+error("can't open the module file to import") -- candran.can:95
+end -- candran.can:95
+margs = util["merge"](options, { -- candran.can:97
+["chunkname"] = filepath, -- candran.can:97
+["loadLocal"] = true, -- candran.can:97
+["loadPackage"] = true -- candran.can:97
+}, margs) -- candran.can:97
+local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:98
+f:close() -- candran.can:99
+local modname = modpath:match("[^%.]+$") -- candran.can:102
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:109
-end -- candran.can:109
-env["include"] = function(file) -- candran.can:114
-local f = io["open"](file) -- candran.can:115
-if not f then -- candran.can:116
-error("Can't open the file " .. file .. " to include") -- candran.can:116
-end -- candran.can:116
-env["write"](f:read("*a")) -- candran.can:117
-f:close() -- candran.can:118
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:111
+end -- candran.can:111
+env["include"] = function(file) -- candran.can:116
+local f = io["open"](file) -- candran.can:117
+if not f then -- candran.can:118
+error("can't open the file " .. file .. " to include") -- candran.can:118
 end -- candran.can:118
-env["write"] = function(...) -- candran.can:122
+env["write"](f:read("*a")) -- candran.can:119
+f:close() -- candran.can:120
+end -- candran.can:120
+env["write"] = function(...) -- candran.can:124
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:123
-end -- candran.can:123
-env["placeholder"] = function(name) -- candran.can:127
-if env[name] then -- candran.can:128
-env["write"](env[name]) -- candran.can:129
-end -- candran.can:129
-end -- candran.can:129
-local preprocess, err = util["load"](candran["compile"](preprocessor, args), "candran preprocessor", env) -- candran.can:134
-if not preprocess then -- candran.can:135
-error("Error while creating Candran preprocessor: " .. err) -- candran.can:135
-end -- candran.can:135
-local success, output = pcall(preprocess) -- candran.can:138
-if not success then -- candran.can:139
-error("Error while preprocessing file: " .. output) -- candran.can:139
-end -- candran.can:139
-return output -- candran.can:141
-end -- candran.can:141
-candran["compile"] = function(input, options) -- candran.can:148
-if options == nil then options = {} end -- candran.can:148
-options = util["merge"](candran["default"], options) -- candran.can:149
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:151
-if not ast then -- candran.can:153
-error("Compiler: error while parsing file: " .. errmsg) -- candran.can:154
-end -- candran.can:154
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:157
-end -- candran.can:157
-candran["make"] = function(code, options) -- candran.can:164
-return candran["compile"](candran["preprocess"](code, options), options) -- candran.can:165
-end -- candran.can:165
-local errorRewritingActive = false -- candran.can:168
-local codeCache = {} -- candran.can:169
-candran["loadfile"] = function(filepath, env, options) -- candran.can:172
-local f, err = io["open"](filepath) -- candran.can:173
-if not f then -- candran.can:174
-error("can't open the file: " .. err) -- candran.can:174
-end -- candran.can:174
-local content = f:read("*a") -- candran.can:175
-f:close() -- candran.can:176
-return candran["load"](content, filepath, env, options) -- candran.can:178
-end -- candran.can:178
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:183
-if options == nil then options = {} end -- candran.can:183
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:184
-codeCache[options["chunkname"]] = candran["make"](chunk, options) -- candran.can:186
-local f, err = util["load"](codeCache[options["chunkname"]], options["chunkname"], env) -- candran.can:187
-if f == nil then -- candran.can:192
-return f, "Candran unexpectedly generated invalid code: " .. err -- candran.can:193
-end -- candran.can:193
-if options["rewriteErrors"] == false then -- candran.can:196
-return f -- candran.can:197
-else -- candran.can:197
-return function(...) -- candran.can:199
-local params = { ... } -- candran.can:200
-if not errorRewritingActive then -- candran.can:201
-errorRewritingActive = true -- candran.can:202
-local t = { xpcall(function() -- candran.can:203
-return f(unpack(params)) -- candran.can:203
-end, candran["messageHandler"]) } -- candran.can:203
-errorRewritingActive = false -- candran.can:204
-if t[1] == false then -- candran.can:205
-error(t[2], 0) -- candran.can:206
-end -- candran.can:206
-return unpack(t, 2) -- candran.can:208
-else -- candran.can:208
-return f(...) -- candran.can:210
-end -- candran.can:210
-end -- candran.can:210
-end -- candran.can:210
-end -- candran.can:210
-candran["dofile"] = function(filename, options) -- candran.can:218
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:219
+") -- candran.can:125
+end -- candran.can:125
+env["placeholder"] = function(name) -- candran.can:129
+if env[name] then -- candran.can:130
+env["write"](env[name]) -- candran.can:131
+end -- candran.can:131
+end -- candran.can:131
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:136
+if not preprocess then -- candran.can:137
+return nil, "in preprocessor: " .. err -- candran.can:138
+end -- candran.can:138
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:141
+if not preprocess then -- candran.can:142
+return nil, "in preprocessor: " .. err -- candran.can:143
+end -- candran.can:143
+local success, output = pcall(preprocess) -- candran.can:147
+if not success then -- candran.can:148
+return nil, "in preprocessor: " .. output -- candran.can:149
+end -- candran.can:149
+return output -- candran.can:152
+end -- candran.can:152
+candran["compile"] = function(input, options) -- candran.can:161
+if options == nil then options = {} end -- candran.can:161
+options = util["merge"](candran["default"], options) -- candran.can:162
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:164
+if not ast then -- candran.can:166
+return nil, errmsg -- candran.can:167
+end -- candran.can:167
+return require("compiler." .. options["target"])(input, ast, options) -- candran.can:170
+end -- candran.can:170
+candran["make"] = function(code, options) -- candran.can:179
+local r, err = candran["preprocess"](code, options) -- candran.can:180
+if r then -- candran.can:181
+r, err = candran["compile"](r, options) -- candran.can:182
+if r then -- candran.can:183
+return r -- candran.can:184
+end -- candran.can:184
+end -- candran.can:184
+return r, err -- candran.can:187
+end -- candran.can:187
+local errorRewritingActive = false -- candran.can:190
+local codeCache = {} -- candran.can:191
+candran["loadfile"] = function(filepath, env, options) -- candran.can:194
+local f, err = io["open"](filepath) -- candran.can:195
+if not f then -- candran.can:196
+return nil, ("cannot open %s"):format(err) -- candran.can:197
+end -- candran.can:197
+local content = f:read("*a") -- candran.can:199
+f:close() -- candran.can:200
+return candran["load"](content, filepath, env, options) -- candran.can:202
+end -- candran.can:202
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:207
+if options == nil then options = {} end -- candran.can:207
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:208
+local code, err = candran["make"](chunk, options) -- candran.can:210
+if not code then -- candran.can:211
+return code, err -- candran.can:212
+end -- candran.can:212
+codeCache[options["chunkname"]] = code -- candran.can:215
+local f, err = util["load"](code, options["chunkname"], env) -- candran.can:216
 if f == nil then -- candran.can:221
-error(err) -- candran.can:222
-else -- candran.can:222
-return f() -- candran.can:224
-end -- candran.can:224
-end -- candran.can:224
-candran["messageHandler"] = function(message) -- candran.can:230
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:222
+end -- candran.can:222
+if options["rewriteErrors"] == false then -- candran.can:225
+return f -- candran.can:226
+else -- candran.can:226
+return function(...) -- candran.can:228
+local params = { ... } -- candran.can:229
+if not errorRewritingActive then -- candran.can:230
+errorRewritingActive = true -- candran.can:231
+local t = { xpcall(function() -- candran.can:232
+return f(unpack(params)) -- candran.can:232
+end, candran["messageHandler"]) } -- candran.can:232
+errorRewritingActive = false -- candran.can:233
+if t[1] == false then -- candran.can:234
+error(t[2], 0) -- candran.can:235
+end -- candran.can:235
+return unpack(t, 2) -- candran.can:237
+else -- candran.can:237
+return f(...) -- candran.can:239
+end -- candran.can:239
+end -- candran.can:239
+end -- candran.can:239
+end -- candran.can:239
+candran["dofile"] = function(filename, options) -- candran.can:247
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:248
+if f == nil then -- candran.can:250
+error(err) -- candran.can:251
+else -- candran.can:251
+return f() -- candran.can:253
+end -- candran.can:253
+end -- candran.can:253
+candran["messageHandler"] = function(message) -- candran.can:259
 return debug["traceback"](message, 2):gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:231
-line = tonumber(line) -- candran.can:232
-local originalFile -- candran.can:234
-local strName = source:match("%[string \"(.-)\"%]") -- candran.can:235
-if strName then -- candran.can:236
-if codeCache[strName] then -- candran.can:237
-originalFile = codeCache[strName] -- candran.can:238
-source = strName -- candran.can:239
-end -- candran.can:239
-else -- candran.can:239
-local fi = io["open"](source, "r") -- candran.can:242
-if fi then -- candran.can:243
-originalFile = fi:read("*a") -- candran.can:244
-fi:close() -- candran.can:245
-end -- candran.can:245
-end -- candran.can:245
-if originalFile then -- candran.can:249
-local i = 0 -- candran.can:250
-for l in originalFile:gmatch("([^\
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:260
+line = tonumber(line) -- candran.can:261
+local originalFile -- candran.can:263
+local strName = source:match("%[string \"(.-)\"%]") -- candran.can:264
+if strName then -- candran.can:265
+if codeCache[strName] then -- candran.can:266
+originalFile = codeCache[strName] -- candran.can:267
+source = strName -- candran.can:268
+end -- candran.can:268
+else -- candran.can:268
+local fi = io["open"](source, "r") -- candran.can:271
+if fi then -- candran.can:272
+originalFile = fi:read("*a") -- candran.can:273
+fi:close() -- candran.can:274
+end -- candran.can:274
+end -- candran.can:274
+if originalFile then -- candran.can:278
+local i = 0 -- candran.can:279
+for l in (originalFile .. "\
+"):gmatch("([^\
 ]*)\
-") do -- candran.can:251
-i = i + 1 -- candran.can:252
-if i == line then -- candran.can:253
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:254
-if lineMap then -- candran.can:255
-if extSource ~= source then -- candran.can:256
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:257
-else -- candran.can:257
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:259
-end -- candran.can:259
-end -- candran.can:259
-break -- candran.can:262
-end -- candran.can:262
-end -- candran.can:262
-end -- candran.can:262
-end) -- candran.can:262
-end -- candran.can:262
-candran["searcher"] = function(modpath) -- candran.can:270
-local filepath = util["search"](modpath, { "can" }) -- candran.can:271
-if not filepath then -- candran.can:272
+") do -- candran.can:280
+i = i + 1 -- candran.can:281
+if i == line then -- candran.can:282
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:283
+if lineMap then -- candran.can:284
+if extSource ~= source then -- candran.can:285
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:286
+else -- candran.can:286
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:288
+end -- candran.can:288
+end -- candran.can:288
+break -- candran.can:291
+end -- candran.can:291
+end -- candran.can:291
+end -- candran.can:291
+end) -- candran.can:291
+end -- candran.can:291
+candran["searcher"] = function(modpath) -- candran.can:299
+local filepath = util["search"](modpath, { "can" }) -- candran.can:300
+if not filepath then -- candran.can:301
 return "\
-\9no candran file in package.path" -- candran.can:273
-end -- candran.can:273
-return candran["loadfile"](filepath) -- candran.can:275
-end -- candran.can:275
-candran["setup"] = function() -- candran.can:279
-if _VERSION == "Lua 5.1" then -- candran.can:280
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:281
-else -- candran.can:281
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:283
-end -- candran.can:283
-return candran -- candran.can:285
-end -- candran.can:285
-return candran -- candran.can:288
+\9no candran file in package.path" -- candran.can:302
+end -- candran.can:302
+return candran["loadfile"](filepath) -- candran.can:304
+end -- candran.can:304
+candran["setup"] = function() -- candran.can:308
+if _VERSION == "Lua 5.1" then -- candran.can:309
+table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:310
+else -- candran.can:310
+table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:312
+end -- candran.can:312
+return candran -- candran.can:314
+end -- candran.can:314
+return candran -- candran.can:317
diff --git a/compiler/lua53.can b/compiler/lua53.can
index 7e390df..5dabc03 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -183,7 +183,7 @@ return function(code, ast, options)
 		return "table.unpack("..list..(i and (", "..i..(j and (", "..j) or "")) or "")..")"
 	end
 	local APPEND = (t, toAppend) -- append values "toAppend" (multiple values possible) to t
-		return "do"..indent().."local a = table.pack("..toAppend..")"..newline().."table.move(a, 1, a.n, #"..t.."+1, "..t..")"..unindent().."end"
+		return "do"..indent().."local "..var("a").." = table.pack("..toAppend..")"..newline().."table.move("..var("a")..", 1, "..var("a")..".n, #"..t.."+1, "..t..")"..unindent().."end"
 	end
 	local CONTINUE_START = () -- at the start of loops using continue
 		return "do"..indent()
diff --git a/compiler/luajit.can b/compiler/luajit.can
index a4d068b..9428fc5 100644
--- a/compiler/luajit.can
+++ b/compiler/luajit.can
@@ -4,7 +4,7 @@ UNPACK = (list, i, j)
 	return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")"
 end
 APPEND = (t, toAppend)
-	return "do" .. indent() .. "local a, p = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #a do" .. indent() .. t .. "[p] = a[i]" .. newline() .. "p = p + 1" .. unindent() .. "end" .. unindent() .. "end"
+	return "do" .. indent() .. "local "..var("a")..", "..var("p").." = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #"..var("a").." do" .. indent() .. t .. "["..var("p").."] = "..var("a").."[i]" .. newline() .. ""..var("p").." = "..var("p").." + 1" .. unindent() .. "end" .. unindent() .. "end"
 end
 
 tags._opid.idiv = (left, right)
diff --git a/rockspec/candran-scm-1.rockspec b/rockspec/candran-scm-1.rockspec
index f12891e..c6573dd 100644
--- a/rockspec/candran-scm-1.rockspec
+++ b/rockspec/candran-scm-1.rockspec
@@ -23,7 +23,9 @@ source = {
 
 dependencies = {
 	"lua >= 5.1",
-	"lpeglabel >= 1.5.0"
+	"lpeglabel >= 1.5.0",
+	"linenoise >= 0.9",
+	"luacheck >= 0.23.0"
 }
 
 build = {
@@ -32,6 +34,6 @@ build = {
 		candran = "candran.lua"
 	},
 	install = {
-		bin = { "bin/can", "bin/canc" }
+		bin = { "bin/can", "bin/canc", "bin/cancheck" }
 	}
 }
diff --git a/test/test.lua b/test/test.lua
index 1588ab0..62ef409 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -15,7 +15,7 @@ local function test(name, candranCode, expectedResult, options)
 	options.chunkname = name
 
 	-- make code
-	local success, code = pcall(candran.make, candranCode, options)
+	local success, code = pcall(function() return assert(candran.make(candranCode, options)) end)
 	if not success then
 		self.result = "error"
 		self.message = "/!\\ error while making code:\n"..code

From 33ac4c5d7f8bdd6edbb01cfa409846d618ba4cf9 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 6 Apr 2020 23:11:17 +0200
Subject: [PATCH 02/43] Discard warnings from external files in cancheck

---
 bin/can      |   2 +-
 bin/canc     |   8 ++--
 bin/cancheck | 130 +++++++++++++++++++++++++++++++++++----------------
 3 files changed, 96 insertions(+), 44 deletions(-)

diff --git a/bin/can b/bin/can
index 9076123..a960e00 100644
--- a/bin/can
+++ b/bin/can
@@ -32,7 +32,7 @@ if arg[#arg] == "-" then
 elseif #args >= 1 then
 	local f, err = candran.loadfile(args[1], nil, args)
 	if not f then
-		print("can: "..err)
+		io.stderr:write("can: "..err.."\n")
 		os.exit(1)
 	else
 		f()
diff --git a/bin/canc b/bin/canc
index c73d368..b87cb8f 100644
--- a/bin/canc
+++ b/bin/canc
@@ -46,7 +46,7 @@ for _, file in ipairs(args) do
 
 		local inputFile, err = io.open(file, "r")
 		if not inputFile then
-			io.stderr:write("canc: cannot open "..file..": "..err)
+			io.stderr:write("canc: cannot open "..file..": "..err.."\n")
 			os.exit(1)
 		end
 		input = inputFile:read("*a")
@@ -81,7 +81,7 @@ for _, file in ipairs(args) do
 	if args.preprocess then
 		local r, err = candran.preprocess(out, args)
 		if not r then
-			print("canc: "..err)
+			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
 		end
 		out = r
@@ -89,7 +89,7 @@ for _, file in ipairs(args) do
 	if args.compile then
 		local r, err = candran.compile(out, args)
 		if not r then
-			print("canc: "..err)
+			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
 		end
 		out = r
@@ -97,7 +97,7 @@ for _, file in ipairs(args) do
 	if args.compile == nil and args.preprocess == nil then
 		local r, err = candran.make(input, args)
 		if not r then
-			print("canc: "..err)
+			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
 		end
 		out = r
diff --git a/bin/cancheck b/bin/cancheck
index df59191..5354d40 100644
--- a/bin/cancheck
+++ b/bin/cancheck
@@ -2,9 +2,14 @@
 
 -- Monkey patch Luacheck (tested against version 0.23.0) to support Candran files
 local candran = require("candran")
+local util = require("candran.util")
+
+local function escape(str)
+	return str:gsub("[^%w]", "%%%0")
+end
 
 local function pattern(token)
-	return "()"..token:gsub("[^%w]", "%%%0").."()"
+	return "()"..escape(token).."()"
 end
 
 local tokenAlias = {
@@ -14,7 +19,8 @@ local tokenAlias = {
 -- Patch checker
 local oldCheck = require("luacheck.check")
 local function check(can)
-	local lua, err = candran.make(can)
+	local lua, err = candran.make(can, {chunkname="_luacheck_source"})
+	-- Warnings
 	if lua then
 		local r = oldCheck(lua)
 		-- Calculate Candran file position.
@@ -27,50 +33,72 @@ local function check(can)
 			for l in (can.."\n"):gmatch("([^\n]*)\n") do
 				table.insert(can_lines, l)
 			end
-			for _, warning in ipairs(r.warnings) do
-				-- candran line
-				local lua_line = lua_lines[warning.line]
-				warning.can_line = tonumber(lua_line:match(".*%-%- .-%:(%d+)$"))
+			for i=#r.warnings, 1, -1 do
+				local warning  = r.warnings[i]
 
-				-- candran column
-				local can_line = can_lines[warning.can_line]
-				local lua_token = lua_line:sub(warning.column, warning.end_column)
-				local token_pattern = pattern(lua_token) -- token finding pattern
-				-- the warning happens on the n-th instance of lua_token on this line
-				local lua_n = 1
-				for start in lua_line:gmatch(token_pattern) do
-					if start >= warning.column then
-						break
-					end
-					lua_n = lua_n + 1
-				end
-				-- Find associated candran token. If lua_n > can_nmax, the last found lua_token is used.
-				-- This approximation should work in like, 90% of cases.
-				local can_n = 1
-				local pos = 1
-				while can_n <= lua_n do
-					-- find first token or alias of this token
-					local start, stop = can_line:match(token_pattern, pos)
-					if tokenAlias[lua_token] then
-						for _, token in ipairs(tokenAlias[lua_token]) do
-							local nstart, nstop = can_line:match(pattern(token), pos)
-							if nstart and (not start or nstart < start) then
-								start, stop = nstart, nstop
-							end
+				-- calculating candran line
+				local lua_line = lua_lines[warning.line]
+
+				local source, line = lua_line:match(".*%-%- (.-)%:(%d+)$")
+				if source ~= "_luacheck_source" then -- line is from another file, discard
+					table.remove(r.warnings, i)
+
+				elseif source then
+					warning.can_line = tonumber(line)
+
+					-- do the same for prev_line
+					if warning.prev_line then
+						local s, l = lua_lines[warning.prev_line]:match(".*%-%- (.-)%:(%d+)$")
+						if s ~= "_luacheck_source" then
+							warning.prev_line = s..":"..l -- luacheck seems to do no validation on this, so we can redefine it to anything
+						elseif l then
+							warning.prev_line = l
 						end
 					end
-					-- found
-					if start then
-						pos = stop
-						warning.can_column, warning.can_end_column = start, stop
-						can_n = can_n + 1
-					else
-						break
+
+					-- calculating candran column
+					local can_line = can_lines[warning.can_line]
+					local lua_token = lua_line:sub(warning.column, warning.end_column)
+					local token_pattern = pattern(lua_token) -- token finding pattern
+					-- the warning happens on the n-th instance of lua_token on this line
+					local lua_n = 1
+					for start in lua_line:gmatch(token_pattern) do
+						if start >= warning.column then
+							break
+						end
+						lua_n = lua_n + 1
 					end
+					-- Find associated candran token. If lua_n > can_nmax, the last found lua_token is used.
+					-- This approximation should work in like, 90% of cases.
+					local can_n = 1
+					local pos = 1
+					while can_n <= lua_n do
+						-- find first token or alias of this token
+						local start, stop = can_line:match(token_pattern, pos)
+						if tokenAlias[lua_token] then
+							for _, token in ipairs(tokenAlias[lua_token]) do
+								local nstart, nstop = can_line:match(pattern(token), pos)
+								if nstart and (not start or nstart < start) then
+									start, stop = nstart, nstop
+								end
+							end
+						end
+						-- found
+						if start then
+							pos = stop
+							warning.can_column, warning.can_end_column = start, stop
+							can_n = can_n + 1
+						else
+							break
+						end
+					end
+
+					-- AFAIK, prev_column and prev_column_end are not displayed in any warning so we don't need to recalculate them for Candran.
 				end
 			end
 		end
 		return r
+	-- Syntax error
 	else
 		local line, column, msg = err:match(":(%d+):(%d+):%s*(.*)$")
 		local syntax_error = {
@@ -90,6 +118,14 @@ local function check(can)
 end
 package.loaded["luacheck.check"] = check
 
+local runner = require("luacheck.runner")
+local oldRunner = runner.new
+function runner.new(opts)
+	-- Disable max line length checking (it is compiled code...)
+	opts.max_line_length = false
+	return oldRunner(opts)
+end
+
 -- Patch formatter
 local format = require("luacheck.format")
 local function format_location(file, location, opts)
@@ -113,4 +149,20 @@ local function setupvalue(fn, val, name, ...)
 end
 setupvalue(format.builtin_formatters.plain, format_location, "format_event", "format_location")
 
-require("luacheck.main")
+-- Fix some Luacheck messages and run
+local path = util.search("luacheck.main", {"lua"})
+if path then
+	local f = io.open(path, "r")
+	local code = f:read("*a")
+	f:close()
+
+	code = code:gsub(escape(" bug (please report at https://github.com/mpeterv/luacheck/issues)"), ", patched for Candran "..candran.VERSION.." bug. Please DO NOT report this bug to Luacheck") -- error text
+	           :gsub(escape("\"luacheck\","), "\"cancheck\",") -- command name
+	           :gsub("a linter and a static analyzer for Lua%.", "a linter and a static analyzer for Lua, patched for Candran "..candran.VERSION..".") -- help text
+
+	-- run
+	return load(code)()
+else
+	io.stderr:write("can't find luacheck.main\n")
+	os.exit(1)
+end

From 6edc682b21011ab59b4e60b411e06889689ce548 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 6 Apr 2020 23:30:48 +0200
Subject: [PATCH 03/43] Candran 0.12.0

---
 README.md                                     | 20 +++++--
 bin/cancheck                                  | 55 +++++++++++++++----
 ...0-1.rockspec => candran-0.12.0-1.rockspec} |  9 +--
 3 files changed, 62 insertions(+), 22 deletions(-)
 rename rockspec/{candran-0.11.0-1.rockspec => candran-0.12.0-1.rockspec} (87%)

diff --git a/README.md b/README.md
index a715320..b5c2283 100644
--- a/README.md
+++ b/README.md
@@ -72,11 +72,11 @@ end
 Candran is released under the MIT License (see ```LICENSE``` for details).
 
 #### Quick setup
-Install Candran automatically using LuaRocks: ```sudo luarocks install rockspec/candran-0.11.0-1.rockspec```.
+Install Candran automatically using LuaRocks: ```sudo luarocks install rockspec/candran-0.12.0-1.rockspec```.
 
 Or manually install LPegLabel (```luarocks install lpeglabel```, version 1.5 or above), download this repository and use Candran through the scripts in ```bin/``` or use it as a library with the self-contained ```candran.lua```.
 
-You can optionally install lua-linenoise (```luarocks install linenoise```, version 0.9 or above) for an improved REPL. The rockspec will install linenoise by default.
+You can optionally install lua-linenoise (```luarocks install linenoise```, version 0.9 or above) for an improved REPL, and luacheck (```luarocks install luacheck```, version 0.23.0 or above) to be able to use ```cancheck```. Installing Candran using LuaRocks will install linenoise and luacheck by default.
 
 You can register the Candran package searcher in your main Lua file (`require("candran").setup()`) and any subsequent `require` call in your project will automatically search for Candran modules.
 
@@ -87,6 +87,8 @@ Most editors should be able to use their existing Lua support for Candran code.
 	* [SublimeLinter-candran-contrib](https://github.com/Reuh/SublimeLinter-contrib-candran) SublimeLinter plugin for Candran
 * **Atom**: [language-candran](https://atom.io/packages/language-candran) support the full Candran syntax
 
+For linting, if your editor support [luacheck](https://github.com/luarocks/luacheck), you should be able to replace it with ```cancheck``` (in this repository ```bin/cancheck```, or installed automatically if Candran was installed using LuaRocks), which is a wrapper around luacheck that monkey-patch it to support Candran.
+
 The language
 ------------
 ### Syntax additions
@@ -495,7 +497,7 @@ The library can be used standalone through the ```canc``` and ```can``` utility:
 
 	Start a simplisitic Candran REPL.
 
-	If you want a better REPL (autocompletion, history, ability to move the cursor), install lua-linenoise: ```luarocks install linenoise```.
+	If you want a better REPL (autocompletion, history, ability to move the cursor), install lua-linenoise: ```luarocks install linenoise``` (automatically installed if Candran was installed using LuaRocks).
 
 *	````can [options] filename````
 
@@ -509,6 +511,12 @@ The library can be used standalone through the ```canc``` and ```can``` utility:
 
 	Use the ```-h``` or ```-help``` option to display a short help text.
 
+*   ```cancheck```
+
+	Provides a linter and static analyzer with the exact same interface as [luacheck](https://github.com/luarocks/luacheck).
+
+	This requires luacheck: ```luarocks install luacheck``` (automatically installed if Candran was installed through LuaRocks).
+
 ### Library usage
 Candran can also be used as a Lua library:
 ````lua
@@ -534,9 +542,9 @@ The table returned by _require("candran")_ gives you access to:
 
 ##### Compiler & preprocessor
 * ````candran.VERSION````: Candran's version string (e.g. `"0.10.0"`).
-* ````candran.preprocess(code[, options])````: return the Candran code _code_, preprocessed with the _options_ options table.
-* ````candran.compile(code[, options])````: return the Candran code compiled to Lua with the _options_ option table.
-* ````candran.make(code[, options])````: return the Candran code, preprocessed and compiled with the _options_ options table.
+* ````candran.preprocess(code[, options])````: return the Candran code _code_, preprocessed with the _options_ options table; or nil, err in case of error.
+* ````candran.compile(code[, options])````: return the Candran code compiled to Lua with the _options_ option table; or nil, err in case of error.
+* ````candran.make(code[, options])````: return the Candran code, preprocessed and compiled with the _options_ options table; or nil, err in case of error.
 
 ##### Code loading helpers
 * ```candran.loadfile(filepath, env, options)```: Candran equivalent to the Lua 5.3's loadfile funtion. Will rewrite errors by default.
diff --git a/bin/cancheck b/bin/cancheck
index 5354d40..27315a1 100644
--- a/bin/cancheck
+++ b/bin/cancheck
@@ -1,17 +1,60 @@
 #!/usr/bin/env lua
 
+--[[
+Based on luacheck: https://github.com/luarocks/luacheck
+
+The MIT License (MIT)
+
+Copyright (c) 2014 - 2018 Peter Melnichenko
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+]]
+
 -- Monkey patch Luacheck (tested against version 0.23.0) to support Candran files
 local candran = require("candran")
 local util = require("candran.util")
 
+-- set a function upvalues (if several names are given, will go up the upvalue chain)
+local function setupvalue(fn, val, name, ...)
+	for i=1, debug.getinfo(fn, "u").nups do
+		local n, v = debug.getupvalue(fn, i)
+		if n == name then
+			if not ... then
+				debug.setupvalue(fn, i, val)
+			else
+				setupvalue(v, val, ...)
+			end
+		end
+	end
+end
+
+-- escape a string to be used as a pattern
 local function escape(str)
 	return str:gsub("[^%w]", "%%%0")
 end
 
+-- returns a pattern that find start and stop position of a token
 local function pattern(token)
 	return "()"..escape(token).."()"
 end
 
+-- token aliases
 local tokenAlias = {
 	["self"] = { "@", ":" }
 }
@@ -135,18 +178,6 @@ local function format_location(file, location, opts)
    end
    return res
 end
-local function setupvalue(fn, val, name, ...)
-	for i=1, debug.getinfo(fn, "u").nups do
-		local n, v = debug.getupvalue(fn, i)
-		if n == name then
-			if not ... then
-				debug.setupvalue(fn, i, val)
-			else
-				setupvalue(v, val, ...)
-			end
-		end
-	end
-end
 setupvalue(format.builtin_formatters.plain, format_location, "format_event", "format_location")
 
 -- Fix some Luacheck messages and run
diff --git a/rockspec/candran-0.11.0-1.rockspec b/rockspec/candran-0.12.0-1.rockspec
similarity index 87%
rename from rockspec/candran-0.11.0-1.rockspec
rename to rockspec/candran-0.12.0-1.rockspec
index fb04283..6e2588d 100644
--- a/rockspec/candran-0.11.0-1.rockspec
+++ b/rockspec/candran-0.12.0-1.rockspec
@@ -2,7 +2,7 @@ rockspec_format = "3.0"
 
 package = "candran"
 
-version = "0.11.0-1"
+version = "0.12.0-1"
 
 description = {
 	summary = "A simple Lua dialect and preprocessor.",
@@ -19,13 +19,14 @@ description = {
 
 source = {
 	url = "git://github.com/Reuh/candran",
-	tag = "v0.11.0"
+	tag = "v0.12.0"
 }
 
 dependencies = {
 	"lua >= 5.1",
 	"lpeglabel >= 1.5.0",
-	"linenoise >= 0.9"
+	"linenoise >= 0.9",
+	"luacheck >= 0.23.0"
 }
 
 build = {
@@ -34,6 +35,6 @@ build = {
 		candran = "candran.lua"
 	},
 	install = {
-		bin = { "bin/can", "bin/canc" }
+		bin = { "bin/can", "bin/canc", "bin/cancheck" }
 	}
 }

From 03516abb4517e6aaa4450356ec5bebfc74305503 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89tienne=20Fildadut?= <fildadut@reuh.eu>
Date: Tue, 7 Apr 2020 00:05:50 +0200
Subject: [PATCH 04/43] Add SublimeLinter-contrib-cancheck to README

---
 README.md | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index b5c2283..fa4d77f 100644
--- a/README.md
+++ b/README.md
@@ -84,7 +84,8 @@ You can register the Candran package searcher in your main Lua file (`require("c
 Most editors should be able to use their existing Lua support for Candran code. If you want full support for the additional syntax in your editor:
 * **Sublime Text 3**:
 	* [sublime-candran](https://github.com/Reuh/sublime-candran) support the full Candran syntax
-	* [SublimeLinter-candran-contrib](https://github.com/Reuh/SublimeLinter-contrib-candran) SublimeLinter plugin for Candran
+	* [SublimeLinter-cancheck-contrib](https://github.com/Reuh/SublimeLinter-contrib-cancheck) SublimeLinter plugin for Candran using ```cancheck```
+	* [SublimeLinter-candran-contrib](https://github.com/Reuh/SublimeLinter-contrib-candran) SublimeLinter plugin for Candran using ```canc -parse``` (only checks for syntaxic errors, no linting)
 * **Atom**: [language-candran](https://atom.io/packages/language-candran) support the full Candran syntax
 
 For linting, if your editor support [luacheck](https://github.com/luarocks/luacheck), you should be able to replace it with ```cancheck``` (in this repository ```bin/cancheck```, or installed automatically if Candran was installed using LuaRocks), which is a wrapper around luacheck that monkey-patch it to support Candran.

From 7add585c03c0ce2a9b6c4cb8b8cdbe19b4305c5f Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Tue, 7 Apr 2020 00:16:39 +0200
Subject: [PATCH 05/43] Fix end_column being off by one in cancheck

---
 bin/cancheck | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/cancheck b/bin/cancheck
index 27315a1..61cc964 100644
--- a/bin/cancheck
+++ b/bin/cancheck
@@ -129,14 +129,14 @@ local function check(can)
 						-- found
 						if start then
 							pos = stop
-							warning.can_column, warning.can_end_column = start, stop
+							warning.can_column, warning.can_end_column = start, stop-1
 							can_n = can_n + 1
 						else
 							break
 						end
 					end
 
-					-- AFAIK, prev_column and prev_column_end are not displayed in any warning so we don't need to recalculate them for Candran.
+					-- AFAIK, prev_column and prev_end_column are not displayed in any warning so we don't need to recalculate them for Candran.
 				end
 			end
 		end

From 10be62a2fe6ada7ba640cb58faf3345c0d915705 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Tue, 30 Jun 2020 21:29:13 +0200
Subject: [PATCH 06/43] Lua 5.4 support and const and close shortcut

---
 README.md                     |   37 +-
 candran.can                   |    9 +-
 candran.lua                   | 7720 ++++++++++++++++++---------------
 candran/can-parser/parser.lua |   45 +-
 compiler/lua53.can            |  831 +---
 compiler/lua54.can            |  835 ++++
 6 files changed, 5205 insertions(+), 4272 deletions(-)
 create mode 100644 compiler/lua54.can

diff --git a/README.md b/README.md
index fa4d77f..b74a2eb 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,6 @@
 Candran
 =======
-Candran is a dialect of the [Lua 5.3](http://www.lua.org) programming language which compiles to Lua 5.3, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
+Candran is a dialect of the [Lua 5.4](http://www.lua.org) programming language which compiles to Lua 5.4, Lua 5.3, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
 
 Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing Lua code should be able to run on Candran unmodified.
 
@@ -31,6 +31,8 @@ let a = {
 	end
 }
 
+const five = 5 -- shortcut for Lua 5.4 attributes 
+
 a:method(42, (foo)
 	return "something " .. foo
 end)
@@ -172,8 +174,22 @@ let a = {
 
 Similar to ```local```, but the variable will be declared *before* the assignemnt (i.e. it will compile into ```local a; a = value```), so you can access it from functions defined in the value.
 
+This does not support Lua 5.4 attributes.
+
 Can also be used as a shorter name for ```local```.
 
+##### `const` and `close` variable declaration
+```lua
+const a = 5
+close b = {}
+
+const x, y, z = 1, 2, 3 -- every variable will be defined using <const>
+```
+
+Shortcut to Lua 5.4 variable attribute. Do not behave like `let`, as attributes require the variable to be constant and therefore can't be predeclared.
+
+_Not in the latest release._
+
 ##### `continue` keyword
 ```lua
 for i=1, 10 do
@@ -435,13 +451,18 @@ The preprocessor has access to the following variables:
 
 Compile targets
 ---------------
-Candran is based on the Lua 5.3 syntax, but can be compiled to Lua 5.3, LuaJIT, and Lua 5.1 compatible code.
+Candran is based on the Lua 5.4 syntax, but can be compiled to Lua 5.4, Lua 5.3, LuaJIT, and Lua 5.1 compatible code.
 
-To chose a compile target, set the ```target``` option to ```lua53```, ```luajit```, or ```lua51``` in the option table when using the library or the command line tools. Candran will try to detect the currently used Lua version and use it as the default target.
+To chose a compile target, set the ```target``` option to  ```lua54```, ```lua53```, ```luajit```, or ```lua51``` in the option table when using the library or the command line tools. Candran will try to detect the currently used Lua version and use it as the default target.
 
-For the ```luajit``` and ```lua51``` targets, Lua 5.3 specific syntax (bitwise operators, integer division) will automatically be translated to valid Lua 5.1 syntax, using LuaJIT's ```bit``` library if necessary. Unless LuaJIT's bit library is installed, you won't be able to use bitwise operators with vanilla Lua 5.1 ("PUC Lua").
+Candran will try to translate Lua 5.4 syntax into something usable with the current target if possible. Here is what is currently supported:
 
-The ```lua51``` target does not support gotos and labels.
+| Lua version     | Candran target | Integer division operator // | Bitwise operators                                     | Goto/Labels        | Variable attributes |
+| ---             | ---            | ---                          | ---                                                   | ---                | ---                 |
+| Lua 5.4         | lua54          | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | :white_check_mark:  |
+| Lua 5.3         | lua53          | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | X                   |
+| LuaJIT          | luajit         | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | X                   |
+| Lua 5.2/5.1     | lua51          | :white_check_mark:           | :white_check_mark: if LuaJIT bit library is available | X                  | X                   |
 
 **Please note** that Candran only translates syntax, and will not try to do anything about changes in the Lua standard library (for example, the new utf8 module). If you need this, you should be able to use [lua-compat-5.3](https://github.com/keplerproject/lua-compat-5.3) along with Candran.
 
@@ -548,9 +569,9 @@ The table returned by _require("candran")_ gives you access to:
 * ````candran.make(code[, options])````: return the Candran code, preprocessed and compiled with the _options_ options table; or nil, err in case of error.
 
 ##### Code loading helpers
-* ```candran.loadfile(filepath, env, options)```: Candran equivalent to the Lua 5.3's loadfile funtion. Will rewrite errors by default.
-* ```candran.load(chunk, chunkname, env, options)```: Candran equivalent to the Lua 5.3's load funtion. Will rewrite errors by default.
-* ```candran.dofile(filepath, options)```: Candran equivalent to the Lua 5.3's dofile funtion. Will rewrite errors by default.
+* ```candran.loadfile(filepath, env, options)```: Candran equivalent to the Lua 5.4's loadfile funtion. Will rewrite errors by default.
+* ```candran.load(chunk, chunkname, env, options)```: Candran equivalent to the Lua 5.4's load funtion. Will rewrite errors by default.
+* ```candran.dofile(filepath, options)```: Candran equivalent to the Lua 5.4's dofile funtion. Will rewrite errors by default.
 
 #### Error rewriting
 When using the command-line tools or the code loading helpers, Candran will automatically setup error rewriting: because the code is reformated when
diff --git a/candran.can b/candran.can
index 2022852..326ac0c 100644
--- a/candran.can
+++ b/candran.can
@@ -1,6 +1,7 @@
 #import("candran.util")
 #import("candran.cmdline")
 
+#import("compiler.lua54")
 #import("compiler.lua53")
 #import("compiler.luajit")
 #import("compiler.lua51")
@@ -11,12 +12,12 @@
 #import("candran.can-parser.parser")
 
 local candran = {
-	VERSION = "0.12.0"
+	VERSION = "0.13.0"
 }
 
 --- Default options.
 candran.default = {
-	target = "lua53",
+	target = "lua54",
 	indentation = "",
 	newline = "\n",
 	variablePrefix = "__CAN_",
@@ -32,6 +33,10 @@ if _VERSION == "Lua 5.1" then
 	else
 		candran.default.target = "lua51"
 	end
+elseif _VERSION == "Lua 5.2" then
+	candran.default.target = "lua51"
+elseif _VERSION == "Lua 5.3" then
+	--candran.default.target = "lua53"
 end
 
 --- Run the preprocessor
diff --git a/candran.lua b/candran.lua
index 8ea939c..5ff75d4 100644
--- a/candran.lua
+++ b/candran.lua
@@ -129,1749 +129,2603 @@ end -- ./candran/cmdline.lua:125
 local cmdline = _() or cmdline -- ./candran/cmdline.lua:130
 package["loaded"]["candran.cmdline"] = cmdline or true -- ./candran/cmdline.lua:131
 local function _() -- ./candran/cmdline.lua:135
-local targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-return function(code, ast, options) -- ./compiler/lua53.can:3
-local lastInputPos = 1 -- ./compiler/lua53.can:5
-local prevLinePos = 1 -- ./compiler/lua53.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua53.can:7
-local lastLine = 1 -- ./compiler/lua53.can:8
-local indentLevel = 0 -- ./compiler/lua53.can:11
-local function newline() -- ./compiler/lua53.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua53.can:14
-if options["mapLines"] then -- ./compiler/lua53.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua53.can:16
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
+return function(code, ast, options) -- ./compiler/lua54.can:3
+local lastInputPos = 1 -- ./compiler/lua54.can:5
+local prevLinePos = 1 -- ./compiler/lua54.can:6
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
+local lastLine = 1 -- ./compiler/lua54.can:8
+local indentLevel = 0 -- ./compiler/lua54.can:11
+local function newline() -- ./compiler/lua54.can:13
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
+if options["mapLines"] then -- ./compiler/lua54.can:15
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua53.can:17
-if source and line then -- ./compiler/lua53.can:19
-lastSource = source -- ./compiler/lua53.can:20
-lastLine = tonumber(line) -- ./compiler/lua53.can:21
-else -- ./compiler/lua53.can:21
+") -- ./compiler/lua54.can:17
+if source and line then -- ./compiler/lua54.can:19
+lastSource = source -- ./compiler/lua54.can:20
+lastLine = tonumber(line) -- ./compiler/lua54.can:21
+else -- ./compiler/lua54.can:21
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua53.can:23
-lastLine = lastLine + (1) -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-prevLinePos = lastInputPos -- ./compiler/lua53.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua53.can:30
-end -- ./compiler/lua53.can:30
-return r -- ./compiler/lua53.can:32
-end -- ./compiler/lua53.can:32
-local function indent() -- ./compiler/lua53.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:36
-return newline() -- ./compiler/lua53.can:37
-end -- ./compiler/lua53.can:37
-local function unindent() -- ./compiler/lua53.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:41
-return newline() -- ./compiler/lua53.can:42
-end -- ./compiler/lua53.can:42
-local states = { -- ./compiler/lua53.can:47
-["push"] = {}, -- ./compiler/lua53.can:48
-["destructuring"] = {}, -- ./compiler/lua53.can:49
-["scope"] = {} -- ./compiler/lua53.can:50
-} -- ./compiler/lua53.can:50
-local function push(name, state) -- ./compiler/lua53.can:53
-table["insert"](states[name], state) -- ./compiler/lua53.can:54
-return "" -- ./compiler/lua53.can:55
-end -- ./compiler/lua53.can:55
-local function pop(name) -- ./compiler/lua53.can:58
-table["remove"](states[name]) -- ./compiler/lua53.can:59
-return "" -- ./compiler/lua53.can:60
-end -- ./compiler/lua53.can:60
-local function set(name, state) -- ./compiler/lua53.can:63
-states[name][# states[name]] = state -- ./compiler/lua53.can:64
-return "" -- ./compiler/lua53.can:65
-end -- ./compiler/lua53.can:65
-local function peek(name) -- ./compiler/lua53.can:68
-return states[name][# states[name]] -- ./compiler/lua53.can:69
-end -- ./compiler/lua53.can:69
-local function var(name) -- ./compiler/lua53.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua53.can:75
-end -- ./compiler/lua53.can:75
-local function tmp() -- ./compiler/lua53.can:79
-local scope = peek("scope") -- ./compiler/lua53.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua53.can:81
-table["insert"](scope, var) -- ./compiler/lua53.can:82
-return var -- ./compiler/lua53.can:83
-end -- ./compiler/lua53.can:83
-local required = {} -- ./compiler/lua53.can:87
-local requireStr = "" -- ./compiler/lua53.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua53.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua53.can:91
-if not required[req] then -- ./compiler/lua53.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua53.can:93
-required[req] = true -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-local loop = { -- ./compiler/lua53.can:99
-"While", -- ./compiler/lua53.can:99
-"Repeat", -- ./compiler/lua53.can:99
-"Fornum", -- ./compiler/lua53.can:99
-"Forin", -- ./compiler/lua53.can:99
-"WhileExpr", -- ./compiler/lua53.can:99
-"RepeatExpr", -- ./compiler/lua53.can:99
-"FornumExpr", -- ./compiler/lua53.can:99
-"ForinExpr" -- ./compiler/lua53.can:99
-} -- ./compiler/lua53.can:99
-local func = { -- ./compiler/lua53.can:100
-"Function", -- ./compiler/lua53.can:100
-"TableCompr", -- ./compiler/lua53.can:100
-"DoExpr", -- ./compiler/lua53.can:100
-"WhileExpr", -- ./compiler/lua53.can:100
-"RepeatExpr", -- ./compiler/lua53.can:100
-"IfExpr", -- ./compiler/lua53.can:100
-"FornumExpr", -- ./compiler/lua53.can:100
-"ForinExpr" -- ./compiler/lua53.can:100
-} -- ./compiler/lua53.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua53.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:104
-local tagsCheck = {} -- ./compiler/lua53.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:106
-tagsCheck[tag] = true -- ./compiler/lua53.can:107
-end -- ./compiler/lua53.can:107
-local nofollowCheck = {} -- ./compiler/lua53.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:110
-nofollowCheck[tag] = true -- ./compiler/lua53.can:111
-end -- ./compiler/lua53.can:111
-for _, node in ipairs(list) do -- ./compiler/lua53.can:113
-if type(node) == "table" then -- ./compiler/lua53.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:115
-return node -- ./compiler/lua53.can:116
-end -- ./compiler/lua53.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua53.can:119
-if r then -- ./compiler/lua53.can:120
-return r -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-return nil -- ./compiler/lua53.can:124
-end -- ./compiler/lua53.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua53.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:129
-local tagsCheck = {} -- ./compiler/lua53.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:131
-tagsCheck[tag] = true -- ./compiler/lua53.can:132
-end -- ./compiler/lua53.can:132
-local nofollowCheck = {} -- ./compiler/lua53.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:135
-nofollowCheck[tag] = true -- ./compiler/lua53.can:136
-end -- ./compiler/lua53.can:136
-local found = {} -- ./compiler/lua53.can:138
-for _, node in ipairs(list) do -- ./compiler/lua53.can:139
-if type(node) == "table" then -- ./compiler/lua53.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua53.can:142
-table["insert"](found, n) -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:146
-table["insert"](found, node) -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-return found -- ./compiler/lua53.can:151
-end -- ./compiler/lua53.can:151
-local function all(list, tags) -- ./compiler/lua53.can:155
-for _, node in ipairs(list) do -- ./compiler/lua53.can:156
-local ok = false -- ./compiler/lua53.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:158
-if node["tag"] == tag then -- ./compiler/lua53.can:159
-ok = true -- ./compiler/lua53.can:160
-break -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-if not ok then -- ./compiler/lua53.can:164
-return false -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-return true -- ./compiler/lua53.can:168
-end -- ./compiler/lua53.can:168
-local tags -- ./compiler/lua53.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua53.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua53.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua53.can:176
-end -- ./compiler/lua53.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua53.can:178
-end -- ./compiler/lua53.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
-end -- ./compiler/lua53.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
-end -- ./compiler/lua53.can:186
-local CONTINUE_START = function() -- ./compiler/lua53.can:188
-return "do" .. indent() -- ./compiler/lua53.can:189
-end -- ./compiler/lua53.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua53.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua53.can:192
-end -- ./compiler/lua53.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua53.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua53.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua53.can:194
-local vars = {} -- ./compiler/lua53.can:195
-local values = {} -- ./compiler/lua53.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua53.can:197
-for _, v in ipairs(list) do -- ./compiler/lua53.can:198
-local var, val -- ./compiler/lua53.can:199
-if v["tag"] == "Id" then -- ./compiler/lua53.can:200
-var = v -- ./compiler/lua53.can:201
-val = { -- ./compiler/lua53.can:202
-["tag"] = "Index", -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "Id", -- ./compiler/lua53.can:202
-list["id"] -- ./compiler/lua53.can:202
-}, -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "String", -- ./compiler/lua53.can:202
-v[1] -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua53.can:203
-var = v[2] -- ./compiler/lua53.can:204
-val = { -- ./compiler/lua53.can:205
-["tag"] = "Index", -- ./compiler/lua53.can:205
-{ -- ./compiler/lua53.can:205
-["tag"] = "Id", -- ./compiler/lua53.can:205
-list["id"] -- ./compiler/lua53.can:205
-}, -- ./compiler/lua53.can:205
-v[1] -- ./compiler/lua53.can:205
-} -- ./compiler/lua53.can:205
-else -- ./compiler/lua53.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua53.can:207
-end -- ./compiler/lua53.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua53.can:209
-val = { -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["rightOp"], -- ./compiler/lua53.can:210
-var, -- ./compiler/lua53.can:210
-{ -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["leftOp"], -- ./compiler/lua53.can:210
-val, -- ./compiler/lua53.can:210
-var -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua53.can:211
-val = { -- ./compiler/lua53.can:212
-["tag"] = "Op", -- ./compiler/lua53.can:212
-destructured["rightOp"], -- ./compiler/lua53.can:212
-var, -- ./compiler/lua53.can:212
-val -- ./compiler/lua53.can:212
-} -- ./compiler/lua53.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua53.can:213
-val = { -- ./compiler/lua53.can:214
-["tag"] = "Op", -- ./compiler/lua53.can:214
-destructured["leftOp"], -- ./compiler/lua53.can:214
-val, -- ./compiler/lua53.can:214
-var -- ./compiler/lua53.can:214
-} -- ./compiler/lua53.can:214
-end -- ./compiler/lua53.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua53.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-if # vars > 0 then -- ./compiler/lua53.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua53.can:221
-if newlineAfter then -- ./compiler/lua53.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua53.can:223
-else -- ./compiler/lua53.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua53.can:225
-end -- ./compiler/lua53.can:225
-else -- ./compiler/lua53.can:225
-return "" -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-tags = setmetatable({ -- ./compiler/lua53.can:233
-["Block"] = function(t) -- ./compiler/lua53.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua53.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua53.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua53.can:238
-hasPush = false -- ./compiler/lua53.can:239
-end -- ./compiler/lua53.can:239
-local r = push("scope", {}) -- ./compiler/lua53.can:241
-if hasPush then -- ./compiler/lua53.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:243
-end -- ./compiler/lua53.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua53.can:246
-end -- ./compiler/lua53.can:246
-if t[# t] then -- ./compiler/lua53.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua53.can:249
-end -- ./compiler/lua53.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua53.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua53.can:252
-end -- ./compiler/lua53.can:252
-return r .. pop("scope") -- ./compiler/lua53.can:254
-end, -- ./compiler/lua53.can:254
-["Do"] = function(t) -- ./compiler/lua53.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua53.can:261
-end, -- ./compiler/lua53.can:261
-["Set"] = function(t) -- ./compiler/lua53.can:264
-local expr = t[# t] -- ./compiler/lua53.can:266
-local vars, values = {}, {} -- ./compiler/lua53.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua53.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua53.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua53.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua53.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua53.can:272
-else -- ./compiler/lua53.can:272
-table["insert"](vars, n) -- ./compiler/lua53.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua53.can:279
-local r = "" -- ./compiler/lua53.can:280
-if # vars > 0 then -- ./compiler/lua53.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua53.can:282
-end -- ./compiler/lua53.can:282
-if # destructuringVars > 0 then -- ./compiler/lua53.can:284
-local destructured = {} -- ./compiler/lua53.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:287
-end -- ./compiler/lua53.can:287
-return r -- ./compiler/lua53.can:289
-elseif # t == 4 then -- ./compiler/lua53.can:290
-if t[3] == "=" then -- ./compiler/lua53.can:291
-local r = "" -- ./compiler/lua53.can:292
-if # vars > 0 then -- ./compiler/lua53.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:294
-t[2], -- ./compiler/lua53.can:294
-vars[1], -- ./compiler/lua53.can:294
-{ -- ./compiler/lua53.can:294
-["tag"] = "Paren", -- ./compiler/lua53.can:294
-values[1] -- ./compiler/lua53.can:294
-} -- ./compiler/lua53.can:294
-}, "Op")) -- ./compiler/lua53.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua53.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:296
-t[2], -- ./compiler/lua53.can:296
-vars[i], -- ./compiler/lua53.can:296
-{ -- ./compiler/lua53.can:296
-["tag"] = "Paren", -- ./compiler/lua53.can:296
-values[i] -- ./compiler/lua53.can:296
-} -- ./compiler/lua53.can:296
-}, "Op")) -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-if # destructuringVars > 0 then -- ./compiler/lua53.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua53.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:302
-end -- ./compiler/lua53.can:302
-return r -- ./compiler/lua53.can:304
-else -- ./compiler/lua53.can:304
-local r = "" -- ./compiler/lua53.can:306
-if # vars > 0 then -- ./compiler/lua53.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:308
-t[3], -- ./compiler/lua53.can:308
-{ -- ./compiler/lua53.can:308
-["tag"] = "Paren", -- ./compiler/lua53.can:308
-values[1] -- ./compiler/lua53.can:308
-}, -- ./compiler/lua53.can:308
-vars[1] -- ./compiler/lua53.can:308
-}, "Op")) -- ./compiler/lua53.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua53.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:310
-t[3], -- ./compiler/lua53.can:310
-{ -- ./compiler/lua53.can:310
-["tag"] = "Paren", -- ./compiler/lua53.can:310
-values[i] -- ./compiler/lua53.can:310
-}, -- ./compiler/lua53.can:310
-vars[i] -- ./compiler/lua53.can:310
-}, "Op")) -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-if # destructuringVars > 0 then -- ./compiler/lua53.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua53.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:316
-end -- ./compiler/lua53.can:316
-return r -- ./compiler/lua53.can:318
-end -- ./compiler/lua53.can:318
-else -- ./compiler/lua53.can:318
-local r = "" -- ./compiler/lua53.can:321
-if # vars > 0 then -- ./compiler/lua53.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:323
-t[2], -- ./compiler/lua53.can:323
-vars[1], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Op", -- ./compiler/lua53.can:323
-t[4], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Paren", -- ./compiler/lua53.can:323
-values[1] -- ./compiler/lua53.can:323
-}, -- ./compiler/lua53.can:323
-vars[1] -- ./compiler/lua53.can:323
-} -- ./compiler/lua53.can:323
-}, "Op")) -- ./compiler/lua53.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua53.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:325
-t[2], -- ./compiler/lua53.can:325
-vars[i], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Op", -- ./compiler/lua53.can:325
-t[4], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Paren", -- ./compiler/lua53.can:325
-values[i] -- ./compiler/lua53.can:325
-}, -- ./compiler/lua53.can:325
-vars[i] -- ./compiler/lua53.can:325
-} -- ./compiler/lua53.can:325
-}, "Op")) -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-if # destructuringVars > 0 then -- ./compiler/lua53.can:328
-local destructured = { -- ./compiler/lua53.can:329
-["rightOp"] = t[2], -- ./compiler/lua53.can:329
-["leftOp"] = t[4] -- ./compiler/lua53.can:329
-} -- ./compiler/lua53.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:331
-end -- ./compiler/lua53.can:331
-return r -- ./compiler/lua53.can:333
-end -- ./compiler/lua53.can:333
-end, -- ./compiler/lua53.can:333
-["While"] = function(t) -- ./compiler/lua53.can:337
-local r = "" -- ./compiler/lua53.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua53.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:340
-if # lets > 0 then -- ./compiler/lua53.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua53.can:347
-if # lets > 0 then -- ./compiler/lua53.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:349
-end -- ./compiler/lua53.can:349
-if hasContinue then -- ./compiler/lua53.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:352
-end -- ./compiler/lua53.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:354
-if hasContinue then -- ./compiler/lua53.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:356
-end -- ./compiler/lua53.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:358
-if # lets > 0 then -- ./compiler/lua53.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua53.can:361
-end -- ./compiler/lua53.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua53.can:363
-end -- ./compiler/lua53.can:363
-return r -- ./compiler/lua53.can:365
-end, -- ./compiler/lua53.can:365
-["Repeat"] = function(t) -- ./compiler/lua53.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua53.can:369
-local r = "repeat" .. indent() -- ./compiler/lua53.can:370
-if hasContinue then -- ./compiler/lua53.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:372
-end -- ./compiler/lua53.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua53.can:374
-if hasContinue then -- ./compiler/lua53.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:376
-end -- ./compiler/lua53.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua53.can:378
-return r -- ./compiler/lua53.can:379
-end, -- ./compiler/lua53.can:379
-["If"] = function(t) -- ./compiler/lua53.can:382
-local r = "" -- ./compiler/lua53.can:383
-local toClose = 0 -- ./compiler/lua53.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:385
-if # lets > 0 then -- ./compiler/lua53.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:387
-toClose = toClose + (1) -- ./compiler/lua53.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua53.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua53.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua53.can:395
-if # lets > 0 then -- ./compiler/lua53.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua53.can:397
-toClose = toClose + (1) -- ./compiler/lua53.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:400
-end -- ./compiler/lua53.can:400
-else -- ./compiler/lua53.can:400
-r = r .. ("else") -- ./compiler/lua53.can:403
-end -- ./compiler/lua53.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua53.can:405
-end -- ./compiler/lua53.can:405
-if # t % 2 == 1 then -- ./compiler/lua53.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua53.can:408
-end -- ./compiler/lua53.can:408
-r = r .. ("end") -- ./compiler/lua53.can:410
-for i = 1, toClose do -- ./compiler/lua53.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:412
-end -- ./compiler/lua53.can:412
-return r -- ./compiler/lua53.can:414
-end, -- ./compiler/lua53.can:414
-["Fornum"] = function(t) -- ./compiler/lua53.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua53.can:418
-if # t == 5 then -- ./compiler/lua53.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua53.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua53.can:421
-if hasContinue then -- ./compiler/lua53.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:423
-end -- ./compiler/lua53.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua53.can:425
-if hasContinue then -- ./compiler/lua53.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:427
-end -- ./compiler/lua53.can:427
-return r .. unindent() .. "end" -- ./compiler/lua53.can:429
-else -- ./compiler/lua53.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua53.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua53.can:432
-if hasContinue then -- ./compiler/lua53.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:434
-end -- ./compiler/lua53.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua53.can:436
-if hasContinue then -- ./compiler/lua53.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:438
-end -- ./compiler/lua53.can:438
-return r .. unindent() .. "end" -- ./compiler/lua53.can:440
-end -- ./compiler/lua53.can:440
-end, -- ./compiler/lua53.can:440
-["Forin"] = function(t) -- ./compiler/lua53.can:444
-local destructured = {} -- ./compiler/lua53.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua53.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua53.can:447
-if hasContinue then -- ./compiler/lua53.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:449
-end -- ./compiler/lua53.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua53.can:451
-if hasContinue then -- ./compiler/lua53.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:453
-end -- ./compiler/lua53.can:453
-return r .. unindent() .. "end" -- ./compiler/lua53.can:455
-end, -- ./compiler/lua53.can:455
-["Local"] = function(t) -- ./compiler/lua53.can:458
-local destructured = {} -- ./compiler/lua53.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:460
-if t[2][1] then -- ./compiler/lua53.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:462
-end -- ./compiler/lua53.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:464
-end, -- ./compiler/lua53.can:464
-["Let"] = function(t) -- ./compiler/lua53.can:467
-local destructured = {} -- ./compiler/lua53.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:469
-local r = "local " .. nameList -- ./compiler/lua53.can:470
-if t[2][1] then -- ./compiler/lua53.can:471
-if all(t[2], { -- ./compiler/lua53.can:472
-"Nil", -- ./compiler/lua53.can:472
-"Dots", -- ./compiler/lua53.can:472
-"Boolean", -- ./compiler/lua53.can:472
-"Number", -- ./compiler/lua53.can:472
-"String" -- ./compiler/lua53.can:472
-}) then -- ./compiler/lua53.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:473
-else -- ./compiler/lua53.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:478
-end, -- ./compiler/lua53.can:478
-["Localrec"] = function(t) -- ./compiler/lua53.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua53.can:482
-end, -- ./compiler/lua53.can:482
-["Goto"] = function(t) -- ./compiler/lua53.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua53.can:486
-end, -- ./compiler/lua53.can:486
-["Label"] = function(t) -- ./compiler/lua53.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua53.can:490
-end, -- ./compiler/lua53.can:490
-["Return"] = function(t) -- ./compiler/lua53.can:493
-local push = peek("push") -- ./compiler/lua53.can:494
-if push then -- ./compiler/lua53.can:495
-local r = "" -- ./compiler/lua53.can:496
-for _, val in ipairs(t) do -- ./compiler/lua53.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua53.can:498
-end -- ./compiler/lua53.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua53.can:500
-else -- ./compiler/lua53.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua53.can:502
-end -- ./compiler/lua53.can:502
-end, -- ./compiler/lua53.can:502
-["Push"] = function(t) -- ./compiler/lua53.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua53.can:507
-r = "" -- ./compiler/lua53.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua53.can:510
-end -- ./compiler/lua53.can:510
-if t[# t] then -- ./compiler/lua53.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua53.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua53.can:514
-else -- ./compiler/lua53.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-return r -- ./compiler/lua53.can:519
-end, -- ./compiler/lua53.can:519
-["Break"] = function() -- ./compiler/lua53.can:522
-return "break" -- ./compiler/lua53.can:523
-end, -- ./compiler/lua53.can:523
-["Continue"] = function() -- ./compiler/lua53.can:526
-return "goto " .. var("continue") -- ./compiler/lua53.can:527
-end, -- ./compiler/lua53.can:527
-["Nil"] = function() -- ./compiler/lua53.can:534
-return "nil" -- ./compiler/lua53.can:535
-end, -- ./compiler/lua53.can:535
-["Dots"] = function() -- ./compiler/lua53.can:538
-return "..." -- ./compiler/lua53.can:539
-end, -- ./compiler/lua53.can:539
-["Boolean"] = function(t) -- ./compiler/lua53.can:542
-return tostring(t[1]) -- ./compiler/lua53.can:543
-end, -- ./compiler/lua53.can:543
-["Number"] = function(t) -- ./compiler/lua53.can:546
-return tostring(t[1]) -- ./compiler/lua53.can:547
-end, -- ./compiler/lua53.can:547
-["String"] = function(t) -- ./compiler/lua53.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua53.can:551
-end, -- ./compiler/lua53.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua53.can:554
-local r = "(" -- ./compiler/lua53.can:555
-local decl = {} -- ./compiler/lua53.can:556
-if t[1][1] then -- ./compiler/lua53.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua53.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua53.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua53.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:562
-r = r .. (id) -- ./compiler/lua53.can:563
-else -- ./compiler/lua53.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua53.can:565
-end -- ./compiler/lua53.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua53.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua53.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua53.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua53.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:572
-r = r .. (", " .. id) -- ./compiler/lua53.can:573
-else -- ./compiler/lua53.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua53.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua53.can:580
-r = r .. (d .. newline()) -- ./compiler/lua53.can:581
-end -- ./compiler/lua53.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua53.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua53.can:584
-end -- ./compiler/lua53.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua53.can:586
-if hasPush then -- ./compiler/lua53.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:588
-else -- ./compiler/lua53.can:588
-push("push", false) -- ./compiler/lua53.can:590
-end -- ./compiler/lua53.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua53.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:594
-end -- ./compiler/lua53.can:594
-pop("push") -- ./compiler/lua53.can:596
-return r .. unindent() .. "end" -- ./compiler/lua53.can:597
-end, -- ./compiler/lua53.can:597
-["Function"] = function(t) -- ./compiler/lua53.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua53.can:600
-end, -- ./compiler/lua53.can:600
-["Pair"] = function(t) -- ./compiler/lua53.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua53.can:604
-end, -- ./compiler/lua53.can:604
-["Table"] = function(t) -- ./compiler/lua53.can:606
-if # t == 0 then -- ./compiler/lua53.can:607
-return "{}" -- ./compiler/lua53.can:608
-elseif # t == 1 then -- ./compiler/lua53.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua53.can:610
-else -- ./compiler/lua53.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua53.can:612
-end -- ./compiler/lua53.can:612
-end, -- ./compiler/lua53.can:612
-["TableCompr"] = function(t) -- ./compiler/lua53.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua53.can:617
-end, -- ./compiler/lua53.can:617
-["Op"] = function(t) -- ./compiler/lua53.can:620
-local r -- ./compiler/lua53.can:621
-if # t == 2 then -- ./compiler/lua53.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua53.can:624
-else -- ./compiler/lua53.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua53.can:626
-end -- ./compiler/lua53.can:626
-else -- ./compiler/lua53.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua53.can:630
-else -- ./compiler/lua53.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-return r -- ./compiler/lua53.can:635
-end, -- ./compiler/lua53.can:635
-["Paren"] = function(t) -- ./compiler/lua53.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua53.can:639
-end, -- ./compiler/lua53.can:639
-["MethodStub"] = function(t) -- ./compiler/lua53.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:648
-end, -- ./compiler/lua53.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua53.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:658
-end, -- ./compiler/lua53.can:658
-["LetExpr"] = function(t) -- ./compiler/lua53.can:665
-return lua(t[1][1]) -- ./compiler/lua53.can:666
-end, -- ./compiler/lua53.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua53.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua53.can:671
-local r = "(function()" .. indent() -- ./compiler/lua53.can:672
-if hasPush then -- ./compiler/lua53.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:674
-else -- ./compiler/lua53.can:674
-push("push", false) -- ./compiler/lua53.can:676
-end -- ./compiler/lua53.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua53.can:678
-if hasPush then -- ./compiler/lua53.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:680
-end -- ./compiler/lua53.can:680
-pop("push") -- ./compiler/lua53.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua53.can:683
-return r -- ./compiler/lua53.can:684
-end, -- ./compiler/lua53.can:684
-["DoExpr"] = function(t) -- ./compiler/lua53.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua53.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua53.can:689
-end -- ./compiler/lua53.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua53.can:691
-end, -- ./compiler/lua53.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua53.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua53.can:695
-end, -- ./compiler/lua53.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua53.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua53.can:699
-end, -- ./compiler/lua53.can:699
-["IfExpr"] = function(t) -- ./compiler/lua53.can:702
-for i = 2, # t do -- ./compiler/lua53.can:703
-local block = t[i] -- ./compiler/lua53.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua53.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua53.can:709
-end, -- ./compiler/lua53.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua53.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua53.can:713
-end, -- ./compiler/lua53.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua53.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua53.can:717
-end, -- ./compiler/lua53.can:717
-["Call"] = function(t) -- ./compiler/lua53.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua53.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua53.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:728
-else -- ./compiler/lua53.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:730
-end -- ./compiler/lua53.can:730
-else -- ./compiler/lua53.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:733
-end -- ./compiler/lua53.can:733
-end, -- ./compiler/lua53.can:733
-["SafeCall"] = function(t) -- ./compiler/lua53.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua53.can:739
-else -- ./compiler/lua53.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua53.can:741
-end -- ./compiler/lua53.can:741
-end, -- ./compiler/lua53.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua53.can:746
-if start == nil then start = 1 end -- ./compiler/lua53.can:746
-local r -- ./compiler/lua53.can:747
-if t[start] then -- ./compiler/lua53.can:748
-r = lua(t[start]) -- ./compiler/lua53.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua53.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua53.can:751
-end -- ./compiler/lua53.can:751
-else -- ./compiler/lua53.can:751
-r = "" -- ./compiler/lua53.can:754
-end -- ./compiler/lua53.can:754
-return r -- ./compiler/lua53.can:756
-end, -- ./compiler/lua53.can:756
-["Id"] = function(t) -- ./compiler/lua53.can:759
-return t[1] -- ./compiler/lua53.can:760
-end, -- ./compiler/lua53.can:760
-["DestructuringId"] = function(t) -- ./compiler/lua53.can:763
-if t["id"] then -- ./compiler/lua53.can:764
-return t["id"] -- ./compiler/lua53.can:765
-else -- ./compiler/lua53.can:765
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua53.can:767
-local vars = { ["id"] = tmp() } -- ./compiler/lua53.can:768
-for j = 1, # t, 1 do -- ./compiler/lua53.can:769
-table["insert"](vars, t[j]) -- ./compiler/lua53.can:770
-end -- ./compiler/lua53.can:770
-table["insert"](d, vars) -- ./compiler/lua53.can:772
-t["id"] = vars["id"] -- ./compiler/lua53.can:773
-return vars["id"] -- ./compiler/lua53.can:774
-end -- ./compiler/lua53.can:774
-end, -- ./compiler/lua53.can:774
-["Index"] = function(t) -- ./compiler/lua53.can:778
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:779
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:780
-else -- ./compiler/lua53.can:780
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:782
-end -- ./compiler/lua53.can:782
-end, -- ./compiler/lua53.can:782
-["SafeIndex"] = function(t) -- ./compiler/lua53.can:786
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:787
-local l = {} -- ./compiler/lua53.can:788
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua53.can:789
-table["insert"](l, 1, t) -- ./compiler/lua53.can:790
-t = t[1] -- ./compiler/lua53.can:791
-end -- ./compiler/lua53.can:791
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua53.can:793
-for _, e in ipairs(l) do -- ./compiler/lua53.can:794
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua53.can:795
-if e["tag"] == "SafeIndex" then -- ./compiler/lua53.can:796
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua53.can:797
-else -- ./compiler/lua53.can:797
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua53.can:802
-return r -- ./compiler/lua53.can:803
-else -- ./compiler/lua53.can:803
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua53.can:805
-end -- ./compiler/lua53.can:805
-end, -- ./compiler/lua53.can:805
-["_opid"] = { -- ./compiler/lua53.can:810
-["add"] = "+", -- ./compiler/lua53.can:811
-["sub"] = "-", -- ./compiler/lua53.can:811
-["mul"] = "*", -- ./compiler/lua53.can:811
-["div"] = "/", -- ./compiler/lua53.can:811
-["idiv"] = "//", -- ./compiler/lua53.can:812
-["mod"] = "%", -- ./compiler/lua53.can:812
-["pow"] = "^", -- ./compiler/lua53.can:812
-["concat"] = "..", -- ./compiler/lua53.can:812
-["band"] = "&", -- ./compiler/lua53.can:813
-["bor"] = "|", -- ./compiler/lua53.can:813
-["bxor"] = "~", -- ./compiler/lua53.can:813
-["shl"] = "<<", -- ./compiler/lua53.can:813
-["shr"] = ">>", -- ./compiler/lua53.can:813
-["eq"] = "==", -- ./compiler/lua53.can:814
-["ne"] = "~=", -- ./compiler/lua53.can:814
-["lt"] = "<", -- ./compiler/lua53.can:814
-["gt"] = ">", -- ./compiler/lua53.can:814
-["le"] = "<=", -- ./compiler/lua53.can:814
-["ge"] = ">=", -- ./compiler/lua53.can:814
-["and"] = "and", -- ./compiler/lua53.can:815
-["or"] = "or", -- ./compiler/lua53.can:815
-["unm"] = "-", -- ./compiler/lua53.can:815
-["len"] = "#", -- ./compiler/lua53.can:815
-["bnot"] = "~", -- ./compiler/lua53.can:815
-["not"] = "not" -- ./compiler/lua53.can:815
-} -- ./compiler/lua53.can:815
-}, { ["__index"] = function(self, key) -- ./compiler/lua53.can:818
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua53.can:819
-end }) -- ./compiler/lua53.can:819
-local code = lua(ast) .. newline() -- ./compiler/lua53.can:825
-return requireStr .. code -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-local lua53 = _() or lua53 -- ./compiler/lua53.can:831
-package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:832
-local function _() -- ./compiler/lua53.can:835
-local function _() -- ./compiler/lua53.can:837
-local targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-return function(code, ast, options) -- ./compiler/lua53.can:3
-local lastInputPos = 1 -- ./compiler/lua53.can:5
-local prevLinePos = 1 -- ./compiler/lua53.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua53.can:7
-local lastLine = 1 -- ./compiler/lua53.can:8
-local indentLevel = 0 -- ./compiler/lua53.can:11
-local function newline() -- ./compiler/lua53.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua53.can:14
-if options["mapLines"] then -- ./compiler/lua53.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua53.can:16
+") do -- ./compiler/lua54.can:23
+lastLine = lastLine + (1) -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+prevLinePos = lastInputPos -- ./compiler/lua54.can:28
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
+end -- ./compiler/lua54.can:30
+return r -- ./compiler/lua54.can:32
+end -- ./compiler/lua54.can:32
+local function indent() -- ./compiler/lua54.can:35
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
+return newline() -- ./compiler/lua54.can:37
+end -- ./compiler/lua54.can:37
+local function unindent() -- ./compiler/lua54.can:40
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
+return newline() -- ./compiler/lua54.can:42
+end -- ./compiler/lua54.can:42
+local states = { -- ./compiler/lua54.can:47
+["push"] = {}, -- ./compiler/lua54.can:48
+["destructuring"] = {}, -- ./compiler/lua54.can:49
+["scope"] = {} -- ./compiler/lua54.can:50
+} -- ./compiler/lua54.can:50
+local function push(name, state) -- ./compiler/lua54.can:53
+table["insert"](states[name], state) -- ./compiler/lua54.can:54
+return "" -- ./compiler/lua54.can:55
+end -- ./compiler/lua54.can:55
+local function pop(name) -- ./compiler/lua54.can:58
+table["remove"](states[name]) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function set(name, state) -- ./compiler/lua54.can:63
+states[name][# states[name]] = state -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function peek(name) -- ./compiler/lua54.can:68
+return states[name][# states[name]] -- ./compiler/lua54.can:69
+end -- ./compiler/lua54.can:69
+local function var(name) -- ./compiler/lua54.can:74
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
+end -- ./compiler/lua54.can:75
+local function tmp() -- ./compiler/lua54.can:79
+local scope = peek("scope") -- ./compiler/lua54.can:80
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
+table["insert"](scope, var) -- ./compiler/lua54.can:82
+return var -- ./compiler/lua54.can:83
+end -- ./compiler/lua54.can:83
+local required = {} -- ./compiler/lua54.can:87
+local requireStr = "" -- ./compiler/lua54.can:88
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
+if not required[req] then -- ./compiler/lua54.can:92
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
+required[req] = true -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+local loop = { -- ./compiler/lua54.can:99
+"While", -- ./compiler/lua54.can:99
+"Repeat", -- ./compiler/lua54.can:99
+"Fornum", -- ./compiler/lua54.can:99
+"Forin", -- ./compiler/lua54.can:99
+"WhileExpr", -- ./compiler/lua54.can:99
+"RepeatExpr", -- ./compiler/lua54.can:99
+"FornumExpr", -- ./compiler/lua54.can:99
+"ForinExpr" -- ./compiler/lua54.can:99
+} -- ./compiler/lua54.can:99
+local func = { -- ./compiler/lua54.can:100
+"Function", -- ./compiler/lua54.can:100
+"TableCompr", -- ./compiler/lua54.can:100
+"DoExpr", -- ./compiler/lua54.can:100
+"WhileExpr", -- ./compiler/lua54.can:100
+"RepeatExpr", -- ./compiler/lua54.can:100
+"IfExpr", -- ./compiler/lua54.can:100
+"FornumExpr", -- ./compiler/lua54.can:100
+"ForinExpr" -- ./compiler/lua54.can:100
+} -- ./compiler/lua54.can:100
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
+local tagsCheck = {} -- ./compiler/lua54.can:105
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
+tagsCheck[tag] = true -- ./compiler/lua54.can:107
+end -- ./compiler/lua54.can:107
+local nofollowCheck = {} -- ./compiler/lua54.can:109
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
+nofollowCheck[tag] = true -- ./compiler/lua54.can:111
+end -- ./compiler/lua54.can:111
+for _, node in ipairs(list) do -- ./compiler/lua54.can:113
+if type(node) == "table" then -- ./compiler/lua54.can:114
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
+return node -- ./compiler/lua54.can:116
+end -- ./compiler/lua54.can:116
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
+if r then -- ./compiler/lua54.can:120
+return r -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+return nil -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
+local tagsCheck = {} -- ./compiler/lua54.can:130
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
+tagsCheck[tag] = true -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local nofollowCheck = {} -- ./compiler/lua54.can:134
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
+nofollowCheck[tag] = true -- ./compiler/lua54.can:136
+end -- ./compiler/lua54.can:136
+local found = {} -- ./compiler/lua54.can:138
+for _, node in ipairs(list) do -- ./compiler/lua54.can:139
+if type(node) == "table" then -- ./compiler/lua54.can:140
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
+table["insert"](found, n) -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
+table["insert"](found, node) -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+return found -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+local function all(list, tags) -- ./compiler/lua54.can:155
+for _, node in ipairs(list) do -- ./compiler/lua54.can:156
+local ok = false -- ./compiler/lua54.can:157
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
+if node["tag"] == tag then -- ./compiler/lua54.can:159
+ok = true -- ./compiler/lua54.can:160
+break -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+if not ok then -- ./compiler/lua54.can:164
+return false -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+return true -- ./compiler/lua54.can:168
+end -- ./compiler/lua54.can:168
+local tags -- ./compiler/lua54.can:172
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
+end -- ./compiler/lua54.can:178
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
+end -- ./compiler/lua54.can:183
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local CONTINUE_START = function() -- ./compiler/lua54.can:188
+return "do" .. indent() -- ./compiler/lua54.can:189
+end -- ./compiler/lua54.can:189
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+end -- ./compiler/lua54.can:192
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
+local vars = {} -- ./compiler/lua54.can:195
+local values = {} -- ./compiler/lua54.can:196
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
+for _, v in ipairs(list) do -- ./compiler/lua54.can:198
+local var, val -- ./compiler/lua54.can:199
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
+var = v -- ./compiler/lua54.can:201
+val = { -- ./compiler/lua54.can:202
+["tag"] = "Index", -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "Id", -- ./compiler/lua54.can:202
+list["id"] -- ./compiler/lua54.can:202
+}, -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "String", -- ./compiler/lua54.can:202
+v[1] -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
+var = v[2] -- ./compiler/lua54.can:204
+val = { -- ./compiler/lua54.can:205
+["tag"] = "Index", -- ./compiler/lua54.can:205
+{ -- ./compiler/lua54.can:205
+["tag"] = "Id", -- ./compiler/lua54.can:205
+list["id"] -- ./compiler/lua54.can:205
+}, -- ./compiler/lua54.can:205
+v[1] -- ./compiler/lua54.can:205
+} -- ./compiler/lua54.can:205
+else -- ./compiler/lua54.can:205
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
+end -- ./compiler/lua54.can:207
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["rightOp"], -- ./compiler/lua54.can:210
+var, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["leftOp"], -- ./compiler/lua54.can:210
+val, -- ./compiler/lua54.can:210
+var -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
+val = { -- ./compiler/lua54.can:212
+["tag"] = "Op", -- ./compiler/lua54.can:212
+destructured["rightOp"], -- ./compiler/lua54.can:212
+var, -- ./compiler/lua54.can:212
+val -- ./compiler/lua54.can:212
+} -- ./compiler/lua54.can:212
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
+val = { -- ./compiler/lua54.can:214
+["tag"] = "Op", -- ./compiler/lua54.can:214
+destructured["leftOp"], -- ./compiler/lua54.can:214
+val, -- ./compiler/lua54.can:214
+var -- ./compiler/lua54.can:214
+} -- ./compiler/lua54.can:214
+end -- ./compiler/lua54.can:214
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+if # vars > 0 then -- ./compiler/lua54.can:220
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
+if newlineAfter then -- ./compiler/lua54.can:222
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
+else -- ./compiler/lua54.can:223
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+else -- ./compiler/lua54.can:225
+return "" -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+tags = setmetatable({ -- ./compiler/lua54.can:233
+["Block"] = function(t) -- ./compiler/lua54.can:235
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
+hasPush = false -- ./compiler/lua54.can:239
+end -- ./compiler/lua54.can:239
+local r = push("scope", {}) -- ./compiler/lua54.can:241
+if hasPush then -- ./compiler/lua54.can:242
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
+end -- ./compiler/lua54.can:243
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
+end -- ./compiler/lua54.can:246
+if t[# t] then -- ./compiler/lua54.can:248
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+end -- ./compiler/lua54.can:249
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+end -- ./compiler/lua54.can:252
+return r .. pop("scope") -- ./compiler/lua54.can:254
+end, -- ./compiler/lua54.can:254
+["Do"] = function(t) -- ./compiler/lua54.can:260
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
+end, -- ./compiler/lua54.can:261
+["Set"] = function(t) -- ./compiler/lua54.can:264
+local expr = t[# t] -- ./compiler/lua54.can:266
+local vars, values = {}, {} -- ./compiler/lua54.can:267
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
+else -- ./compiler/lua54.can:272
+table["insert"](vars, n) -- ./compiler/lua54.can:274
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
+local r = "" -- ./compiler/lua54.can:280
+if # vars > 0 then -- ./compiler/lua54.can:281
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
+end -- ./compiler/lua54.can:282
+if # destructuringVars > 0 then -- ./compiler/lua54.can:284
+local destructured = {} -- ./compiler/lua54.can:285
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
+end -- ./compiler/lua54.can:287
+return r -- ./compiler/lua54.can:289
+elseif # t == 4 then -- ./compiler/lua54.can:290
+if t[3] == "=" then -- ./compiler/lua54.can:291
+local r = "" -- ./compiler/lua54.can:292
+if # vars > 0 then -- ./compiler/lua54.can:293
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
+t[2], -- ./compiler/lua54.can:294
+vars[1], -- ./compiler/lua54.can:294
+{ -- ./compiler/lua54.can:294
+["tag"] = "Paren", -- ./compiler/lua54.can:294
+values[1] -- ./compiler/lua54.can:294
+} -- ./compiler/lua54.can:294
+}, "Op")) -- ./compiler/lua54.can:294
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
+t[2], -- ./compiler/lua54.can:296
+vars[i], -- ./compiler/lua54.can:296
+{ -- ./compiler/lua54.can:296
+["tag"] = "Paren", -- ./compiler/lua54.can:296
+values[i] -- ./compiler/lua54.can:296
+} -- ./compiler/lua54.can:296
+}, "Op")) -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+if # destructuringVars > 0 then -- ./compiler/lua54.can:299
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+end -- ./compiler/lua54.can:302
+return r -- ./compiler/lua54.can:304
+else -- ./compiler/lua54.can:304
+local r = "" -- ./compiler/lua54.can:306
+if # vars > 0 then -- ./compiler/lua54.can:307
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
+t[3], -- ./compiler/lua54.can:308
+{ -- ./compiler/lua54.can:308
+["tag"] = "Paren", -- ./compiler/lua54.can:308
+values[1] -- ./compiler/lua54.can:308
+}, -- ./compiler/lua54.can:308
+vars[1] -- ./compiler/lua54.can:308
+}, "Op")) -- ./compiler/lua54.can:308
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
+t[3], -- ./compiler/lua54.can:310
+{ -- ./compiler/lua54.can:310
+["tag"] = "Paren", -- ./compiler/lua54.can:310
+values[i] -- ./compiler/lua54.can:310
+}, -- ./compiler/lua54.can:310
+vars[i] -- ./compiler/lua54.can:310
+}, "Op")) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+if # destructuringVars > 0 then -- ./compiler/lua54.can:313
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:316
+return r -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+else -- ./compiler/lua54.can:318
+local r = "" -- ./compiler/lua54.can:321
+if # vars > 0 then -- ./compiler/lua54.can:322
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
+t[2], -- ./compiler/lua54.can:323
+vars[1], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Op", -- ./compiler/lua54.can:323
+t[4], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Paren", -- ./compiler/lua54.can:323
+values[1] -- ./compiler/lua54.can:323
+}, -- ./compiler/lua54.can:323
+vars[1] -- ./compiler/lua54.can:323
+} -- ./compiler/lua54.can:323
+}, "Op")) -- ./compiler/lua54.can:323
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
+t[2], -- ./compiler/lua54.can:325
+vars[i], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Op", -- ./compiler/lua54.can:325
+t[4], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Paren", -- ./compiler/lua54.can:325
+values[i] -- ./compiler/lua54.can:325
+}, -- ./compiler/lua54.can:325
+vars[i] -- ./compiler/lua54.can:325
+} -- ./compiler/lua54.can:325
+}, "Op")) -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+if # destructuringVars > 0 then -- ./compiler/lua54.can:328
+local destructured = { -- ./compiler/lua54.can:329
+["rightOp"] = t[2], -- ./compiler/lua54.can:329
+["leftOp"] = t[4] -- ./compiler/lua54.can:329
+} -- ./compiler/lua54.can:329
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+end -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end, -- ./compiler/lua54.can:333
+["While"] = function(t) -- ./compiler/lua54.can:337
+local r = "" -- ./compiler/lua54.can:338
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
+if # lets > 0 then -- ./compiler/lua54.can:341
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
+if # lets > 0 then -- ./compiler/lua54.can:348
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
+end -- ./compiler/lua54.can:349
+if hasContinue then -- ./compiler/lua54.can:351
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
+if hasContinue then -- ./compiler/lua54.can:355
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
+end -- ./compiler/lua54.can:356
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
+if # lets > 0 then -- ./compiler/lua54.can:359
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
+end -- ./compiler/lua54.can:361
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
+end -- ./compiler/lua54.can:363
+return r -- ./compiler/lua54.can:365
+end, -- ./compiler/lua54.can:365
+["Repeat"] = function(t) -- ./compiler/lua54.can:368
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
+local r = "repeat" .. indent() -- ./compiler/lua54.can:370
+if hasContinue then -- ./compiler/lua54.can:371
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
+end -- ./compiler/lua54.can:372
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
+if hasContinue then -- ./compiler/lua54.can:375
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
+end -- ./compiler/lua54.can:376
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
+return r -- ./compiler/lua54.can:379
+end, -- ./compiler/lua54.can:379
+["If"] = function(t) -- ./compiler/lua54.can:382
+local r = "" -- ./compiler/lua54.can:383
+local toClose = 0 -- ./compiler/lua54.can:384
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
+if # lets > 0 then -- ./compiler/lua54.can:386
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
+toClose = toClose + (1) -- ./compiler/lua54.can:388
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
+if # lets > 0 then -- ./compiler/lua54.can:396
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
+toClose = toClose + (1) -- ./compiler/lua54.can:398
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
+end -- ./compiler/lua54.can:400
+else -- ./compiler/lua54.can:400
+r = r .. ("else") -- ./compiler/lua54.can:403
+end -- ./compiler/lua54.can:403
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
+end -- ./compiler/lua54.can:405
+if # t % 2 == 1 then -- ./compiler/lua54.can:407
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+r = r .. ("end") -- ./compiler/lua54.can:410
+for i = 1, toClose do -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
+end -- ./compiler/lua54.can:412
+return r -- ./compiler/lua54.can:414
+end, -- ./compiler/lua54.can:414
+["Fornum"] = function(t) -- ./compiler/lua54.can:417
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
+if # t == 5 then -- ./compiler/lua54.can:419
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
+if hasContinue then -- ./compiler/lua54.can:422
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
+end -- ./compiler/lua54.can:423
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
+if hasContinue then -- ./compiler/lua54.can:426
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
+end -- ./compiler/lua54.can:427
+return r .. unindent() .. "end" -- ./compiler/lua54.can:429
+else -- ./compiler/lua54.can:429
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
+if hasContinue then -- ./compiler/lua54.can:433
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
+end -- ./compiler/lua54.can:434
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
+if hasContinue then -- ./compiler/lua54.can:437
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
+end -- ./compiler/lua54.can:438
+return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:440
+end, -- ./compiler/lua54.can:440
+["Forin"] = function(t) -- ./compiler/lua54.can:444
+local destructured = {} -- ./compiler/lua54.can:445
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
+if hasContinue then -- ./compiler/lua54.can:448
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
+end -- ./compiler/lua54.can:449
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
+if hasContinue then -- ./compiler/lua54.can:452
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
+end -- ./compiler/lua54.can:453
+return r .. unindent() .. "end" -- ./compiler/lua54.can:455
+end, -- ./compiler/lua54.can:455
+["Local"] = function(t) -- ./compiler/lua54.can:458
+local destructured = {} -- ./compiler/lua54.can:459
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
+if t[2][1] then -- ./compiler/lua54.can:461
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
+end -- ./compiler/lua54.can:462
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
+end, -- ./compiler/lua54.can:464
+["Let"] = function(t) -- ./compiler/lua54.can:467
+local destructured = {} -- ./compiler/lua54.can:468
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
+local r = "local " .. nameList -- ./compiler/lua54.can:470
+if t[2][1] then -- ./compiler/lua54.can:471
+if all(t[2], { -- ./compiler/lua54.can:472
+"Nil", -- ./compiler/lua54.can:472
+"Dots", -- ./compiler/lua54.can:472
+"Boolean", -- ./compiler/lua54.can:472
+"Number", -- ./compiler/lua54.can:472
+"String" -- ./compiler/lua54.can:472
+}) then -- ./compiler/lua54.can:472
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
+else -- ./compiler/lua54.can:473
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
+end, -- ./compiler/lua54.can:478
+["Localrec"] = function(t) -- ./compiler/lua54.can:481
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
+end, -- ./compiler/lua54.can:482
+["Goto"] = function(t) -- ./compiler/lua54.can:485
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Label"] = function(t) -- ./compiler/lua54.can:489
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Return"] = function(t) -- ./compiler/lua54.can:493
+local push = peek("push") -- ./compiler/lua54.can:494
+if push then -- ./compiler/lua54.can:495
+local r = "" -- ./compiler/lua54.can:496
+for _, val in ipairs(t) do -- ./compiler/lua54.can:497
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
+end -- ./compiler/lua54.can:498
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
+else -- ./compiler/lua54.can:500
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
+end -- ./compiler/lua54.can:502
+end, -- ./compiler/lua54.can:502
+["Push"] = function(t) -- ./compiler/lua54.can:506
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
+r = "" -- ./compiler/lua54.can:508
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+if t[# t] then -- ./compiler/lua54.can:512
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
+else -- ./compiler/lua54.can:514
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+return r -- ./compiler/lua54.can:519
+end, -- ./compiler/lua54.can:519
+["Break"] = function() -- ./compiler/lua54.can:522
+return "break" -- ./compiler/lua54.can:523
+end, -- ./compiler/lua54.can:523
+["Continue"] = function() -- ./compiler/lua54.can:526
+return "goto " .. var("continue") -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Nil"] = function() -- ./compiler/lua54.can:534
+return "nil" -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Dots"] = function() -- ./compiler/lua54.can:538
+return "..." -- ./compiler/lua54.can:539
+end, -- ./compiler/lua54.can:539
+["Boolean"] = function(t) -- ./compiler/lua54.can:542
+return tostring(t[1]) -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Number"] = function(t) -- ./compiler/lua54.can:546
+return tostring(t[1]) -- ./compiler/lua54.can:547
+end, -- ./compiler/lua54.can:547
+["String"] = function(t) -- ./compiler/lua54.can:550
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
+end, -- ./compiler/lua54.can:551
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
+local r = "(" -- ./compiler/lua54.can:555
+local decl = {} -- ./compiler/lua54.can:556
+if t[1][1] then -- ./compiler/lua54.can:557
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
+r = r .. (id) -- ./compiler/lua54.can:563
+else -- ./compiler/lua54.can:563
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
+end -- ./compiler/lua54.can:565
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
+r = r .. (", " .. id) -- ./compiler/lua54.can:573
+else -- ./compiler/lua54.can:573
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
+r = r .. (d .. newline()) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
+end -- ./compiler/lua54.can:584
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
+if hasPush then -- ./compiler/lua54.can:587
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
+else -- ./compiler/lua54.can:588
+push("push", false) -- ./compiler/lua54.can:590
+end -- ./compiler/lua54.can:590
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
+end -- ./compiler/lua54.can:594
+pop("push") -- ./compiler/lua54.can:596
+return r .. unindent() .. "end" -- ./compiler/lua54.can:597
+end, -- ./compiler/lua54.can:597
+["Function"] = function(t) -- ./compiler/lua54.can:599
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
+end, -- ./compiler/lua54.can:600
+["Pair"] = function(t) -- ./compiler/lua54.can:603
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
+end, -- ./compiler/lua54.can:604
+["Table"] = function(t) -- ./compiler/lua54.can:606
+if # t == 0 then -- ./compiler/lua54.can:607
+return "{}" -- ./compiler/lua54.can:608
+elseif # t == 1 then -- ./compiler/lua54.can:609
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
+else -- ./compiler/lua54.can:610
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
+end -- ./compiler/lua54.can:612
+end, -- ./compiler/lua54.can:612
+["TableCompr"] = function(t) -- ./compiler/lua54.can:616
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
+end, -- ./compiler/lua54.can:617
+["Op"] = function(t) -- ./compiler/lua54.can:620
+local r -- ./compiler/lua54.can:621
+if # t == 2 then -- ./compiler/lua54.can:622
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+else -- ./compiler/lua54.can:624
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+end -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
+else -- ./compiler/lua54.can:630
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+return r -- ./compiler/lua54.can:635
+end, -- ./compiler/lua54.can:635
+["Paren"] = function(t) -- ./compiler/lua54.can:638
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
+end, -- ./compiler/lua54.can:639
+["MethodStub"] = function(t) -- ./compiler/lua54.can:642
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
+end, -- ./compiler/lua54.can:648
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
+end, -- ./compiler/lua54.can:658
+["LetExpr"] = function(t) -- ./compiler/lua54.can:665
+return lua(t[1][1]) -- ./compiler/lua54.can:666
+end, -- ./compiler/lua54.can:666
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
+local r = "(function()" .. indent() -- ./compiler/lua54.can:672
+if hasPush then -- ./compiler/lua54.can:673
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
+else -- ./compiler/lua54.can:674
+push("push", false) -- ./compiler/lua54.can:676
+end -- ./compiler/lua54.can:676
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
+if hasPush then -- ./compiler/lua54.can:679
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
+end -- ./compiler/lua54.can:680
+pop("push") -- ./compiler/lua54.can:682
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
+return r -- ./compiler/lua54.can:684
+end, -- ./compiler/lua54.can:684
+["DoExpr"] = function(t) -- ./compiler/lua54.can:687
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
+end -- ./compiler/lua54.can:689
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
+end, -- ./compiler/lua54.can:691
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
+end, -- ./compiler/lua54.can:695
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
+end, -- ./compiler/lua54.can:699
+["IfExpr"] = function(t) -- ./compiler/lua54.can:702
+for i = 2, # t do -- ./compiler/lua54.can:703
+local block = t[i] -- ./compiler/lua54.can:704
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:709
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+end, -- ./compiler/lua54.can:713
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
+end, -- ./compiler/lua54.can:717
+["Call"] = function(t) -- ./compiler/lua54.can:723
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
+else -- ./compiler/lua54.can:728
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
+end -- ./compiler/lua54.can:730
+else -- ./compiler/lua54.can:730
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
+end -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["SafeCall"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
+else -- ./compiler/lua54.can:739
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
+end -- ./compiler/lua54.can:741
+end, -- ./compiler/lua54.can:741
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
+if start == nil then start = 1 end -- ./compiler/lua54.can:746
+local r -- ./compiler/lua54.can:747
+if t[start] then -- ./compiler/lua54.can:748
+r = lua(t[start]) -- ./compiler/lua54.can:749
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
+end -- ./compiler/lua54.can:751
+else -- ./compiler/lua54.can:751
+r = "" -- ./compiler/lua54.can:754
+end -- ./compiler/lua54.can:754
+return r -- ./compiler/lua54.can:756
+end, -- ./compiler/lua54.can:756
+["Id"] = function(t) -- ./compiler/lua54.can:759
+return t[1] -- ./compiler/lua54.can:760
+end, -- ./compiler/lua54.can:760
+["AttributeId"] = function(t) -- ./compiler/lua54.can:763
+if t[2] then -- ./compiler/lua54.can:764
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
+else -- ./compiler/lua54.can:765
+return t[1] -- ./compiler/lua54.can:767
+end -- ./compiler/lua54.can:767
+end, -- ./compiler/lua54.can:767
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
+if t["id"] then -- ./compiler/lua54.can:772
+return t["id"] -- ./compiler/lua54.can:773
+else -- ./compiler/lua54.can:773
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
+for j = 1, # t, 1 do -- ./compiler/lua54.can:777
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
+end -- ./compiler/lua54.can:778
+table["insert"](d, vars) -- ./compiler/lua54.can:780
+t["id"] = vars["id"] -- ./compiler/lua54.can:781
+return vars["id"] -- ./compiler/lua54.can:782
+end -- ./compiler/lua54.can:782
+end, -- ./compiler/lua54.can:782
+["Index"] = function(t) -- ./compiler/lua54.can:786
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
+else -- ./compiler/lua54.can:788
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+end -- ./compiler/lua54.can:790
+end, -- ./compiler/lua54.can:790
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
+local l = {} -- ./compiler/lua54.can:796
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
+table["insert"](l, 1, t) -- ./compiler/lua54.can:798
+t = t[1] -- ./compiler/lua54.can:799
+end -- ./compiler/lua54.can:799
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
+for _, e in ipairs(l) do -- ./compiler/lua54.can:802
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
+else -- ./compiler/lua54.can:805
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
+return r -- ./compiler/lua54.can:811
+else -- ./compiler/lua54.can:811
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
+end -- ./compiler/lua54.can:813
+end, -- ./compiler/lua54.can:813
+["_opid"] = { -- ./compiler/lua54.can:818
+["add"] = "+", -- ./compiler/lua54.can:819
+["sub"] = "-", -- ./compiler/lua54.can:819
+["mul"] = "*", -- ./compiler/lua54.can:819
+["div"] = "/", -- ./compiler/lua54.can:819
+["idiv"] = "//", -- ./compiler/lua54.can:820
+["mod"] = "%", -- ./compiler/lua54.can:820
+["pow"] = "^", -- ./compiler/lua54.can:820
+["concat"] = "..", -- ./compiler/lua54.can:820
+["band"] = "&", -- ./compiler/lua54.can:821
+["bor"] = "|", -- ./compiler/lua54.can:821
+["bxor"] = "~", -- ./compiler/lua54.can:821
+["shl"] = "<<", -- ./compiler/lua54.can:821
+["shr"] = ">>", -- ./compiler/lua54.can:821
+["eq"] = "==", -- ./compiler/lua54.can:822
+["ne"] = "~=", -- ./compiler/lua54.can:822
+["lt"] = "<", -- ./compiler/lua54.can:822
+["gt"] = ">", -- ./compiler/lua54.can:822
+["le"] = "<=", -- ./compiler/lua54.can:822
+["ge"] = ">=", -- ./compiler/lua54.can:822
+["and"] = "and", -- ./compiler/lua54.can:823
+["or"] = "or", -- ./compiler/lua54.can:823
+["unm"] = "-", -- ./compiler/lua54.can:823
+["len"] = "#", -- ./compiler/lua54.can:823
+["bnot"] = "~", -- ./compiler/lua54.can:823
+["not"] = "not" -- ./compiler/lua54.can:823
+} -- ./compiler/lua54.can:823
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
+end }) -- ./compiler/lua54.can:827
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
+return requireStr .. code -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+package["loaded"]["compiler.lua54"] = lua54 or true -- ./compiler/lua54.can:840
+local function _() -- ./compiler/lua54.can:843
+local function _() -- ./compiler/lua54.can:845
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
+return function(code, ast, options) -- ./compiler/lua54.can:3
+local lastInputPos = 1 -- ./compiler/lua54.can:5
+local prevLinePos = 1 -- ./compiler/lua54.can:6
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
+local lastLine = 1 -- ./compiler/lua54.can:8
+local indentLevel = 0 -- ./compiler/lua54.can:11
+local function newline() -- ./compiler/lua54.can:13
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
+if options["mapLines"] then -- ./compiler/lua54.can:15
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua53.can:17
-if source and line then -- ./compiler/lua53.can:19
-lastSource = source -- ./compiler/lua53.can:20
-lastLine = tonumber(line) -- ./compiler/lua53.can:21
-else -- ./compiler/lua53.can:21
+") -- ./compiler/lua54.can:17
+if source and line then -- ./compiler/lua54.can:19
+lastSource = source -- ./compiler/lua54.can:20
+lastLine = tonumber(line) -- ./compiler/lua54.can:21
+else -- ./compiler/lua54.can:21
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua53.can:23
-lastLine = lastLine + (1) -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-prevLinePos = lastInputPos -- ./compiler/lua53.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua53.can:30
-end -- ./compiler/lua53.can:30
-return r -- ./compiler/lua53.can:32
-end -- ./compiler/lua53.can:32
-local function indent() -- ./compiler/lua53.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:36
-return newline() -- ./compiler/lua53.can:37
-end -- ./compiler/lua53.can:37
-local function unindent() -- ./compiler/lua53.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:41
-return newline() -- ./compiler/lua53.can:42
-end -- ./compiler/lua53.can:42
-local states = { -- ./compiler/lua53.can:47
-["push"] = {}, -- ./compiler/lua53.can:48
-["destructuring"] = {}, -- ./compiler/lua53.can:49
-["scope"] = {} -- ./compiler/lua53.can:50
-} -- ./compiler/lua53.can:50
-local function push(name, state) -- ./compiler/lua53.can:53
-table["insert"](states[name], state) -- ./compiler/lua53.can:54
-return "" -- ./compiler/lua53.can:55
-end -- ./compiler/lua53.can:55
-local function pop(name) -- ./compiler/lua53.can:58
-table["remove"](states[name]) -- ./compiler/lua53.can:59
-return "" -- ./compiler/lua53.can:60
-end -- ./compiler/lua53.can:60
-local function set(name, state) -- ./compiler/lua53.can:63
-states[name][# states[name]] = state -- ./compiler/lua53.can:64
-return "" -- ./compiler/lua53.can:65
-end -- ./compiler/lua53.can:65
-local function peek(name) -- ./compiler/lua53.can:68
-return states[name][# states[name]] -- ./compiler/lua53.can:69
-end -- ./compiler/lua53.can:69
-local function var(name) -- ./compiler/lua53.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua53.can:75
-end -- ./compiler/lua53.can:75
-local function tmp() -- ./compiler/lua53.can:79
-local scope = peek("scope") -- ./compiler/lua53.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua53.can:81
-table["insert"](scope, var) -- ./compiler/lua53.can:82
-return var -- ./compiler/lua53.can:83
-end -- ./compiler/lua53.can:83
-local required = {} -- ./compiler/lua53.can:87
-local requireStr = "" -- ./compiler/lua53.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua53.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua53.can:91
-if not required[req] then -- ./compiler/lua53.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua53.can:93
-required[req] = true -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-local loop = { -- ./compiler/lua53.can:99
-"While", -- ./compiler/lua53.can:99
-"Repeat", -- ./compiler/lua53.can:99
-"Fornum", -- ./compiler/lua53.can:99
-"Forin", -- ./compiler/lua53.can:99
-"WhileExpr", -- ./compiler/lua53.can:99
-"RepeatExpr", -- ./compiler/lua53.can:99
-"FornumExpr", -- ./compiler/lua53.can:99
-"ForinExpr" -- ./compiler/lua53.can:99
-} -- ./compiler/lua53.can:99
-local func = { -- ./compiler/lua53.can:100
-"Function", -- ./compiler/lua53.can:100
-"TableCompr", -- ./compiler/lua53.can:100
-"DoExpr", -- ./compiler/lua53.can:100
-"WhileExpr", -- ./compiler/lua53.can:100
-"RepeatExpr", -- ./compiler/lua53.can:100
-"IfExpr", -- ./compiler/lua53.can:100
-"FornumExpr", -- ./compiler/lua53.can:100
-"ForinExpr" -- ./compiler/lua53.can:100
-} -- ./compiler/lua53.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua53.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:104
-local tagsCheck = {} -- ./compiler/lua53.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:106
-tagsCheck[tag] = true -- ./compiler/lua53.can:107
-end -- ./compiler/lua53.can:107
-local nofollowCheck = {} -- ./compiler/lua53.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:110
-nofollowCheck[tag] = true -- ./compiler/lua53.can:111
-end -- ./compiler/lua53.can:111
-for _, node in ipairs(list) do -- ./compiler/lua53.can:113
-if type(node) == "table" then -- ./compiler/lua53.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:115
-return node -- ./compiler/lua53.can:116
-end -- ./compiler/lua53.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua53.can:119
-if r then -- ./compiler/lua53.can:120
-return r -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-return nil -- ./compiler/lua53.can:124
-end -- ./compiler/lua53.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua53.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:129
-local tagsCheck = {} -- ./compiler/lua53.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:131
-tagsCheck[tag] = true -- ./compiler/lua53.can:132
-end -- ./compiler/lua53.can:132
-local nofollowCheck = {} -- ./compiler/lua53.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:135
-nofollowCheck[tag] = true -- ./compiler/lua53.can:136
-end -- ./compiler/lua53.can:136
-local found = {} -- ./compiler/lua53.can:138
-for _, node in ipairs(list) do -- ./compiler/lua53.can:139
-if type(node) == "table" then -- ./compiler/lua53.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua53.can:142
-table["insert"](found, n) -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:146
-table["insert"](found, node) -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-return found -- ./compiler/lua53.can:151
-end -- ./compiler/lua53.can:151
-local function all(list, tags) -- ./compiler/lua53.can:155
-for _, node in ipairs(list) do -- ./compiler/lua53.can:156
-local ok = false -- ./compiler/lua53.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:158
-if node["tag"] == tag then -- ./compiler/lua53.can:159
-ok = true -- ./compiler/lua53.can:160
-break -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-if not ok then -- ./compiler/lua53.can:164
-return false -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-return true -- ./compiler/lua53.can:168
-end -- ./compiler/lua53.can:168
-local tags -- ./compiler/lua53.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua53.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua53.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua53.can:176
-end -- ./compiler/lua53.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua53.can:178
-end -- ./compiler/lua53.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
-end -- ./compiler/lua53.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
-end -- ./compiler/lua53.can:186
-local CONTINUE_START = function() -- ./compiler/lua53.can:188
-return "do" .. indent() -- ./compiler/lua53.can:189
-end -- ./compiler/lua53.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua53.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua53.can:192
-end -- ./compiler/lua53.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua53.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua53.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua53.can:194
-local vars = {} -- ./compiler/lua53.can:195
-local values = {} -- ./compiler/lua53.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua53.can:197
-for _, v in ipairs(list) do -- ./compiler/lua53.can:198
-local var, val -- ./compiler/lua53.can:199
-if v["tag"] == "Id" then -- ./compiler/lua53.can:200
-var = v -- ./compiler/lua53.can:201
-val = { -- ./compiler/lua53.can:202
-["tag"] = "Index", -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "Id", -- ./compiler/lua53.can:202
-list["id"] -- ./compiler/lua53.can:202
-}, -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "String", -- ./compiler/lua53.can:202
-v[1] -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua53.can:203
-var = v[2] -- ./compiler/lua53.can:204
-val = { -- ./compiler/lua53.can:205
-["tag"] = "Index", -- ./compiler/lua53.can:205
-{ -- ./compiler/lua53.can:205
-["tag"] = "Id", -- ./compiler/lua53.can:205
-list["id"] -- ./compiler/lua53.can:205
-}, -- ./compiler/lua53.can:205
-v[1] -- ./compiler/lua53.can:205
-} -- ./compiler/lua53.can:205
-else -- ./compiler/lua53.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua53.can:207
-end -- ./compiler/lua53.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua53.can:209
-val = { -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["rightOp"], -- ./compiler/lua53.can:210
-var, -- ./compiler/lua53.can:210
-{ -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["leftOp"], -- ./compiler/lua53.can:210
-val, -- ./compiler/lua53.can:210
-var -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua53.can:211
-val = { -- ./compiler/lua53.can:212
-["tag"] = "Op", -- ./compiler/lua53.can:212
-destructured["rightOp"], -- ./compiler/lua53.can:212
-var, -- ./compiler/lua53.can:212
-val -- ./compiler/lua53.can:212
-} -- ./compiler/lua53.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua53.can:213
-val = { -- ./compiler/lua53.can:214
-["tag"] = "Op", -- ./compiler/lua53.can:214
-destructured["leftOp"], -- ./compiler/lua53.can:214
-val, -- ./compiler/lua53.can:214
-var -- ./compiler/lua53.can:214
-} -- ./compiler/lua53.can:214
-end -- ./compiler/lua53.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua53.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-if # vars > 0 then -- ./compiler/lua53.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua53.can:221
-if newlineAfter then -- ./compiler/lua53.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua53.can:223
-else -- ./compiler/lua53.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua53.can:225
-end -- ./compiler/lua53.can:225
-else -- ./compiler/lua53.can:225
-return "" -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-tags = setmetatable({ -- ./compiler/lua53.can:233
-["Block"] = function(t) -- ./compiler/lua53.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua53.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua53.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua53.can:238
-hasPush = false -- ./compiler/lua53.can:239
-end -- ./compiler/lua53.can:239
-local r = push("scope", {}) -- ./compiler/lua53.can:241
-if hasPush then -- ./compiler/lua53.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:243
-end -- ./compiler/lua53.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua53.can:246
-end -- ./compiler/lua53.can:246
-if t[# t] then -- ./compiler/lua53.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua53.can:249
-end -- ./compiler/lua53.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua53.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua53.can:252
-end -- ./compiler/lua53.can:252
-return r .. pop("scope") -- ./compiler/lua53.can:254
-end, -- ./compiler/lua53.can:254
-["Do"] = function(t) -- ./compiler/lua53.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua53.can:261
-end, -- ./compiler/lua53.can:261
-["Set"] = function(t) -- ./compiler/lua53.can:264
-local expr = t[# t] -- ./compiler/lua53.can:266
-local vars, values = {}, {} -- ./compiler/lua53.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua53.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua53.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua53.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua53.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua53.can:272
-else -- ./compiler/lua53.can:272
-table["insert"](vars, n) -- ./compiler/lua53.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua53.can:279
-local r = "" -- ./compiler/lua53.can:280
-if # vars > 0 then -- ./compiler/lua53.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua53.can:282
-end -- ./compiler/lua53.can:282
-if # destructuringVars > 0 then -- ./compiler/lua53.can:284
-local destructured = {} -- ./compiler/lua53.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:287
-end -- ./compiler/lua53.can:287
-return r -- ./compiler/lua53.can:289
-elseif # t == 4 then -- ./compiler/lua53.can:290
-if t[3] == "=" then -- ./compiler/lua53.can:291
-local r = "" -- ./compiler/lua53.can:292
-if # vars > 0 then -- ./compiler/lua53.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:294
-t[2], -- ./compiler/lua53.can:294
-vars[1], -- ./compiler/lua53.can:294
-{ -- ./compiler/lua53.can:294
-["tag"] = "Paren", -- ./compiler/lua53.can:294
-values[1] -- ./compiler/lua53.can:294
-} -- ./compiler/lua53.can:294
-}, "Op")) -- ./compiler/lua53.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua53.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:296
-t[2], -- ./compiler/lua53.can:296
-vars[i], -- ./compiler/lua53.can:296
-{ -- ./compiler/lua53.can:296
-["tag"] = "Paren", -- ./compiler/lua53.can:296
-values[i] -- ./compiler/lua53.can:296
-} -- ./compiler/lua53.can:296
-}, "Op")) -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-if # destructuringVars > 0 then -- ./compiler/lua53.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua53.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:302
-end -- ./compiler/lua53.can:302
-return r -- ./compiler/lua53.can:304
-else -- ./compiler/lua53.can:304
-local r = "" -- ./compiler/lua53.can:306
-if # vars > 0 then -- ./compiler/lua53.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:308
-t[3], -- ./compiler/lua53.can:308
-{ -- ./compiler/lua53.can:308
-["tag"] = "Paren", -- ./compiler/lua53.can:308
-values[1] -- ./compiler/lua53.can:308
-}, -- ./compiler/lua53.can:308
-vars[1] -- ./compiler/lua53.can:308
-}, "Op")) -- ./compiler/lua53.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua53.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:310
-t[3], -- ./compiler/lua53.can:310
-{ -- ./compiler/lua53.can:310
-["tag"] = "Paren", -- ./compiler/lua53.can:310
-values[i] -- ./compiler/lua53.can:310
-}, -- ./compiler/lua53.can:310
-vars[i] -- ./compiler/lua53.can:310
-}, "Op")) -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-if # destructuringVars > 0 then -- ./compiler/lua53.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua53.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:316
-end -- ./compiler/lua53.can:316
-return r -- ./compiler/lua53.can:318
-end -- ./compiler/lua53.can:318
-else -- ./compiler/lua53.can:318
-local r = "" -- ./compiler/lua53.can:321
-if # vars > 0 then -- ./compiler/lua53.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:323
-t[2], -- ./compiler/lua53.can:323
-vars[1], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Op", -- ./compiler/lua53.can:323
-t[4], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Paren", -- ./compiler/lua53.can:323
-values[1] -- ./compiler/lua53.can:323
-}, -- ./compiler/lua53.can:323
-vars[1] -- ./compiler/lua53.can:323
-} -- ./compiler/lua53.can:323
-}, "Op")) -- ./compiler/lua53.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua53.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:325
-t[2], -- ./compiler/lua53.can:325
-vars[i], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Op", -- ./compiler/lua53.can:325
-t[4], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Paren", -- ./compiler/lua53.can:325
-values[i] -- ./compiler/lua53.can:325
-}, -- ./compiler/lua53.can:325
-vars[i] -- ./compiler/lua53.can:325
-} -- ./compiler/lua53.can:325
-}, "Op")) -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-if # destructuringVars > 0 then -- ./compiler/lua53.can:328
-local destructured = { -- ./compiler/lua53.can:329
-["rightOp"] = t[2], -- ./compiler/lua53.can:329
-["leftOp"] = t[4] -- ./compiler/lua53.can:329
-} -- ./compiler/lua53.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:331
-end -- ./compiler/lua53.can:331
-return r -- ./compiler/lua53.can:333
-end -- ./compiler/lua53.can:333
-end, -- ./compiler/lua53.can:333
-["While"] = function(t) -- ./compiler/lua53.can:337
-local r = "" -- ./compiler/lua53.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua53.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:340
-if # lets > 0 then -- ./compiler/lua53.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua53.can:347
-if # lets > 0 then -- ./compiler/lua53.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:349
-end -- ./compiler/lua53.can:349
-if hasContinue then -- ./compiler/lua53.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:352
-end -- ./compiler/lua53.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:354
-if hasContinue then -- ./compiler/lua53.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:356
-end -- ./compiler/lua53.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:358
-if # lets > 0 then -- ./compiler/lua53.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua53.can:361
-end -- ./compiler/lua53.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua53.can:363
-end -- ./compiler/lua53.can:363
-return r -- ./compiler/lua53.can:365
-end, -- ./compiler/lua53.can:365
-["Repeat"] = function(t) -- ./compiler/lua53.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua53.can:369
-local r = "repeat" .. indent() -- ./compiler/lua53.can:370
-if hasContinue then -- ./compiler/lua53.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:372
-end -- ./compiler/lua53.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua53.can:374
-if hasContinue then -- ./compiler/lua53.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:376
-end -- ./compiler/lua53.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua53.can:378
-return r -- ./compiler/lua53.can:379
-end, -- ./compiler/lua53.can:379
-["If"] = function(t) -- ./compiler/lua53.can:382
-local r = "" -- ./compiler/lua53.can:383
-local toClose = 0 -- ./compiler/lua53.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:385
-if # lets > 0 then -- ./compiler/lua53.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:387
-toClose = toClose + (1) -- ./compiler/lua53.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua53.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua53.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua53.can:395
-if # lets > 0 then -- ./compiler/lua53.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua53.can:397
-toClose = toClose + (1) -- ./compiler/lua53.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:400
-end -- ./compiler/lua53.can:400
-else -- ./compiler/lua53.can:400
-r = r .. ("else") -- ./compiler/lua53.can:403
-end -- ./compiler/lua53.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua53.can:405
-end -- ./compiler/lua53.can:405
-if # t % 2 == 1 then -- ./compiler/lua53.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua53.can:408
-end -- ./compiler/lua53.can:408
-r = r .. ("end") -- ./compiler/lua53.can:410
-for i = 1, toClose do -- ./compiler/lua53.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:412
-end -- ./compiler/lua53.can:412
-return r -- ./compiler/lua53.can:414
-end, -- ./compiler/lua53.can:414
-["Fornum"] = function(t) -- ./compiler/lua53.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua53.can:418
-if # t == 5 then -- ./compiler/lua53.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua53.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua53.can:421
-if hasContinue then -- ./compiler/lua53.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:423
-end -- ./compiler/lua53.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua53.can:425
-if hasContinue then -- ./compiler/lua53.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:427
-end -- ./compiler/lua53.can:427
-return r .. unindent() .. "end" -- ./compiler/lua53.can:429
-else -- ./compiler/lua53.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua53.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua53.can:432
-if hasContinue then -- ./compiler/lua53.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:434
-end -- ./compiler/lua53.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua53.can:436
-if hasContinue then -- ./compiler/lua53.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:438
-end -- ./compiler/lua53.can:438
-return r .. unindent() .. "end" -- ./compiler/lua53.can:440
-end -- ./compiler/lua53.can:440
-end, -- ./compiler/lua53.can:440
-["Forin"] = function(t) -- ./compiler/lua53.can:444
-local destructured = {} -- ./compiler/lua53.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua53.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua53.can:447
-if hasContinue then -- ./compiler/lua53.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:449
-end -- ./compiler/lua53.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua53.can:451
-if hasContinue then -- ./compiler/lua53.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:453
-end -- ./compiler/lua53.can:453
-return r .. unindent() .. "end" -- ./compiler/lua53.can:455
-end, -- ./compiler/lua53.can:455
-["Local"] = function(t) -- ./compiler/lua53.can:458
-local destructured = {} -- ./compiler/lua53.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:460
-if t[2][1] then -- ./compiler/lua53.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:462
-end -- ./compiler/lua53.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:464
-end, -- ./compiler/lua53.can:464
-["Let"] = function(t) -- ./compiler/lua53.can:467
-local destructured = {} -- ./compiler/lua53.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:469
-local r = "local " .. nameList -- ./compiler/lua53.can:470
-if t[2][1] then -- ./compiler/lua53.can:471
-if all(t[2], { -- ./compiler/lua53.can:472
-"Nil", -- ./compiler/lua53.can:472
-"Dots", -- ./compiler/lua53.can:472
-"Boolean", -- ./compiler/lua53.can:472
-"Number", -- ./compiler/lua53.can:472
-"String" -- ./compiler/lua53.can:472
-}) then -- ./compiler/lua53.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:473
-else -- ./compiler/lua53.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:478
-end, -- ./compiler/lua53.can:478
-["Localrec"] = function(t) -- ./compiler/lua53.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua53.can:482
-end, -- ./compiler/lua53.can:482
-["Goto"] = function(t) -- ./compiler/lua53.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua53.can:486
-end, -- ./compiler/lua53.can:486
-["Label"] = function(t) -- ./compiler/lua53.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua53.can:490
-end, -- ./compiler/lua53.can:490
-["Return"] = function(t) -- ./compiler/lua53.can:493
-local push = peek("push") -- ./compiler/lua53.can:494
-if push then -- ./compiler/lua53.can:495
-local r = "" -- ./compiler/lua53.can:496
-for _, val in ipairs(t) do -- ./compiler/lua53.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua53.can:498
-end -- ./compiler/lua53.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua53.can:500
-else -- ./compiler/lua53.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua53.can:502
-end -- ./compiler/lua53.can:502
-end, -- ./compiler/lua53.can:502
-["Push"] = function(t) -- ./compiler/lua53.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua53.can:507
-r = "" -- ./compiler/lua53.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua53.can:510
-end -- ./compiler/lua53.can:510
-if t[# t] then -- ./compiler/lua53.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua53.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua53.can:514
-else -- ./compiler/lua53.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-return r -- ./compiler/lua53.can:519
-end, -- ./compiler/lua53.can:519
-["Break"] = function() -- ./compiler/lua53.can:522
-return "break" -- ./compiler/lua53.can:523
-end, -- ./compiler/lua53.can:523
-["Continue"] = function() -- ./compiler/lua53.can:526
-return "goto " .. var("continue") -- ./compiler/lua53.can:527
-end, -- ./compiler/lua53.can:527
-["Nil"] = function() -- ./compiler/lua53.can:534
-return "nil" -- ./compiler/lua53.can:535
-end, -- ./compiler/lua53.can:535
-["Dots"] = function() -- ./compiler/lua53.can:538
-return "..." -- ./compiler/lua53.can:539
-end, -- ./compiler/lua53.can:539
-["Boolean"] = function(t) -- ./compiler/lua53.can:542
-return tostring(t[1]) -- ./compiler/lua53.can:543
-end, -- ./compiler/lua53.can:543
-["Number"] = function(t) -- ./compiler/lua53.can:546
-return tostring(t[1]) -- ./compiler/lua53.can:547
-end, -- ./compiler/lua53.can:547
-["String"] = function(t) -- ./compiler/lua53.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua53.can:551
-end, -- ./compiler/lua53.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua53.can:554
-local r = "(" -- ./compiler/lua53.can:555
-local decl = {} -- ./compiler/lua53.can:556
-if t[1][1] then -- ./compiler/lua53.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua53.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua53.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua53.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:562
-r = r .. (id) -- ./compiler/lua53.can:563
-else -- ./compiler/lua53.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua53.can:565
-end -- ./compiler/lua53.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua53.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua53.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua53.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua53.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:572
-r = r .. (", " .. id) -- ./compiler/lua53.can:573
-else -- ./compiler/lua53.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua53.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua53.can:580
-r = r .. (d .. newline()) -- ./compiler/lua53.can:581
-end -- ./compiler/lua53.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua53.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua53.can:584
-end -- ./compiler/lua53.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua53.can:586
-if hasPush then -- ./compiler/lua53.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:588
-else -- ./compiler/lua53.can:588
-push("push", false) -- ./compiler/lua53.can:590
-end -- ./compiler/lua53.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua53.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:594
-end -- ./compiler/lua53.can:594
-pop("push") -- ./compiler/lua53.can:596
-return r .. unindent() .. "end" -- ./compiler/lua53.can:597
-end, -- ./compiler/lua53.can:597
-["Function"] = function(t) -- ./compiler/lua53.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua53.can:600
-end, -- ./compiler/lua53.can:600
-["Pair"] = function(t) -- ./compiler/lua53.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua53.can:604
-end, -- ./compiler/lua53.can:604
-["Table"] = function(t) -- ./compiler/lua53.can:606
-if # t == 0 then -- ./compiler/lua53.can:607
-return "{}" -- ./compiler/lua53.can:608
-elseif # t == 1 then -- ./compiler/lua53.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua53.can:610
-else -- ./compiler/lua53.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua53.can:612
-end -- ./compiler/lua53.can:612
-end, -- ./compiler/lua53.can:612
-["TableCompr"] = function(t) -- ./compiler/lua53.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua53.can:617
-end, -- ./compiler/lua53.can:617
-["Op"] = function(t) -- ./compiler/lua53.can:620
-local r -- ./compiler/lua53.can:621
-if # t == 2 then -- ./compiler/lua53.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua53.can:624
-else -- ./compiler/lua53.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua53.can:626
-end -- ./compiler/lua53.can:626
-else -- ./compiler/lua53.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua53.can:630
-else -- ./compiler/lua53.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-return r -- ./compiler/lua53.can:635
-end, -- ./compiler/lua53.can:635
-["Paren"] = function(t) -- ./compiler/lua53.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua53.can:639
-end, -- ./compiler/lua53.can:639
-["MethodStub"] = function(t) -- ./compiler/lua53.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:648
-end, -- ./compiler/lua53.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua53.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:658
-end, -- ./compiler/lua53.can:658
-["LetExpr"] = function(t) -- ./compiler/lua53.can:665
-return lua(t[1][1]) -- ./compiler/lua53.can:666
-end, -- ./compiler/lua53.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua53.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua53.can:671
-local r = "(function()" .. indent() -- ./compiler/lua53.can:672
-if hasPush then -- ./compiler/lua53.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:674
-else -- ./compiler/lua53.can:674
-push("push", false) -- ./compiler/lua53.can:676
-end -- ./compiler/lua53.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua53.can:678
-if hasPush then -- ./compiler/lua53.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:680
-end -- ./compiler/lua53.can:680
-pop("push") -- ./compiler/lua53.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua53.can:683
-return r -- ./compiler/lua53.can:684
-end, -- ./compiler/lua53.can:684
-["DoExpr"] = function(t) -- ./compiler/lua53.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua53.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua53.can:689
-end -- ./compiler/lua53.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua53.can:691
-end, -- ./compiler/lua53.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua53.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua53.can:695
-end, -- ./compiler/lua53.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua53.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua53.can:699
-end, -- ./compiler/lua53.can:699
-["IfExpr"] = function(t) -- ./compiler/lua53.can:702
-for i = 2, # t do -- ./compiler/lua53.can:703
-local block = t[i] -- ./compiler/lua53.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua53.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua53.can:709
-end, -- ./compiler/lua53.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua53.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua53.can:713
-end, -- ./compiler/lua53.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua53.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua53.can:717
-end, -- ./compiler/lua53.can:717
-["Call"] = function(t) -- ./compiler/lua53.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua53.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua53.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:728
-else -- ./compiler/lua53.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:730
-end -- ./compiler/lua53.can:730
-else -- ./compiler/lua53.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:733
-end -- ./compiler/lua53.can:733
-end, -- ./compiler/lua53.can:733
-["SafeCall"] = function(t) -- ./compiler/lua53.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua53.can:739
-else -- ./compiler/lua53.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua53.can:741
-end -- ./compiler/lua53.can:741
-end, -- ./compiler/lua53.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua53.can:746
-if start == nil then start = 1 end -- ./compiler/lua53.can:746
-local r -- ./compiler/lua53.can:747
-if t[start] then -- ./compiler/lua53.can:748
-r = lua(t[start]) -- ./compiler/lua53.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua53.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua53.can:751
-end -- ./compiler/lua53.can:751
-else -- ./compiler/lua53.can:751
-r = "" -- ./compiler/lua53.can:754
-end -- ./compiler/lua53.can:754
-return r -- ./compiler/lua53.can:756
-end, -- ./compiler/lua53.can:756
-["Id"] = function(t) -- ./compiler/lua53.can:759
-return t[1] -- ./compiler/lua53.can:760
-end, -- ./compiler/lua53.can:760
-["DestructuringId"] = function(t) -- ./compiler/lua53.can:763
-if t["id"] then -- ./compiler/lua53.can:764
-return t["id"] -- ./compiler/lua53.can:765
-else -- ./compiler/lua53.can:765
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua53.can:767
-local vars = { ["id"] = tmp() } -- ./compiler/lua53.can:768
-for j = 1, # t, 1 do -- ./compiler/lua53.can:769
-table["insert"](vars, t[j]) -- ./compiler/lua53.can:770
-end -- ./compiler/lua53.can:770
-table["insert"](d, vars) -- ./compiler/lua53.can:772
-t["id"] = vars["id"] -- ./compiler/lua53.can:773
-return vars["id"] -- ./compiler/lua53.can:774
-end -- ./compiler/lua53.can:774
-end, -- ./compiler/lua53.can:774
-["Index"] = function(t) -- ./compiler/lua53.can:778
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:779
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:780
-else -- ./compiler/lua53.can:780
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:782
-end -- ./compiler/lua53.can:782
-end, -- ./compiler/lua53.can:782
-["SafeIndex"] = function(t) -- ./compiler/lua53.can:786
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:787
-local l = {} -- ./compiler/lua53.can:788
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua53.can:789
-table["insert"](l, 1, t) -- ./compiler/lua53.can:790
-t = t[1] -- ./compiler/lua53.can:791
-end -- ./compiler/lua53.can:791
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua53.can:793
-for _, e in ipairs(l) do -- ./compiler/lua53.can:794
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua53.can:795
-if e["tag"] == "SafeIndex" then -- ./compiler/lua53.can:796
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua53.can:797
-else -- ./compiler/lua53.can:797
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua53.can:802
-return r -- ./compiler/lua53.can:803
-else -- ./compiler/lua53.can:803
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua53.can:805
-end -- ./compiler/lua53.can:805
-end, -- ./compiler/lua53.can:805
-["_opid"] = { -- ./compiler/lua53.can:810
-["add"] = "+", -- ./compiler/lua53.can:811
-["sub"] = "-", -- ./compiler/lua53.can:811
-["mul"] = "*", -- ./compiler/lua53.can:811
-["div"] = "/", -- ./compiler/lua53.can:811
-["idiv"] = "//", -- ./compiler/lua53.can:812
-["mod"] = "%", -- ./compiler/lua53.can:812
-["pow"] = "^", -- ./compiler/lua53.can:812
-["concat"] = "..", -- ./compiler/lua53.can:812
-["band"] = "&", -- ./compiler/lua53.can:813
-["bor"] = "|", -- ./compiler/lua53.can:813
-["bxor"] = "~", -- ./compiler/lua53.can:813
-["shl"] = "<<", -- ./compiler/lua53.can:813
-["shr"] = ">>", -- ./compiler/lua53.can:813
-["eq"] = "==", -- ./compiler/lua53.can:814
-["ne"] = "~=", -- ./compiler/lua53.can:814
-["lt"] = "<", -- ./compiler/lua53.can:814
-["gt"] = ">", -- ./compiler/lua53.can:814
-["le"] = "<=", -- ./compiler/lua53.can:814
-["ge"] = ">=", -- ./compiler/lua53.can:814
-["and"] = "and", -- ./compiler/lua53.can:815
-["or"] = "or", -- ./compiler/lua53.can:815
-["unm"] = "-", -- ./compiler/lua53.can:815
-["len"] = "#", -- ./compiler/lua53.can:815
-["bnot"] = "~", -- ./compiler/lua53.can:815
-["not"] = "not" -- ./compiler/lua53.can:815
-} -- ./compiler/lua53.can:815
-}, { ["__index"] = function(self, key) -- ./compiler/lua53.can:818
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua53.can:819
-end }) -- ./compiler/lua53.can:819
-targetName = "LuaJIT" -- ./compiler/luajit.can:1
-UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
-return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
-end -- ./compiler/luajit.can:4
-APPEND = function(t, toAppend) -- ./compiler/luajit.can:6
-return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
-end -- ./compiler/luajit.can:7
-tags["_opid"]["idiv"] = function(left, right) -- ./compiler/luajit.can:10
-return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/luajit.can:11
-end -- ./compiler/luajit.can:11
-tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:13
-addRequire("bit", "band", "band") -- ./compiler/luajit.can:14
-return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:15
-end -- ./compiler/luajit.can:15
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:17
-addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:18
-return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:19
-end -- ./compiler/luajit.can:19
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:21
-addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:22
-return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:23
-end -- ./compiler/luajit.can:23
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:25
-addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:26
-return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:27
-end -- ./compiler/luajit.can:27
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:29
-addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:30
-return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:31
-end -- ./compiler/luajit.can:31
-tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:33
-addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:34
-return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:35
-end -- ./compiler/luajit.can:35
-local code = lua(ast) .. newline() -- ./compiler/lua53.can:825
-return requireStr .. code -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-local lua53 = _() or lua53 -- ./compiler/lua53.can:831
+") do -- ./compiler/lua54.can:23
+lastLine = lastLine + (1) -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+prevLinePos = lastInputPos -- ./compiler/lua54.can:28
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
+end -- ./compiler/lua54.can:30
+return r -- ./compiler/lua54.can:32
+end -- ./compiler/lua54.can:32
+local function indent() -- ./compiler/lua54.can:35
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
+return newline() -- ./compiler/lua54.can:37
+end -- ./compiler/lua54.can:37
+local function unindent() -- ./compiler/lua54.can:40
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
+return newline() -- ./compiler/lua54.can:42
+end -- ./compiler/lua54.can:42
+local states = { -- ./compiler/lua54.can:47
+["push"] = {}, -- ./compiler/lua54.can:48
+["destructuring"] = {}, -- ./compiler/lua54.can:49
+["scope"] = {} -- ./compiler/lua54.can:50
+} -- ./compiler/lua54.can:50
+local function push(name, state) -- ./compiler/lua54.can:53
+table["insert"](states[name], state) -- ./compiler/lua54.can:54
+return "" -- ./compiler/lua54.can:55
+end -- ./compiler/lua54.can:55
+local function pop(name) -- ./compiler/lua54.can:58
+table["remove"](states[name]) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function set(name, state) -- ./compiler/lua54.can:63
+states[name][# states[name]] = state -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function peek(name) -- ./compiler/lua54.can:68
+return states[name][# states[name]] -- ./compiler/lua54.can:69
+end -- ./compiler/lua54.can:69
+local function var(name) -- ./compiler/lua54.can:74
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
+end -- ./compiler/lua54.can:75
+local function tmp() -- ./compiler/lua54.can:79
+local scope = peek("scope") -- ./compiler/lua54.can:80
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
+table["insert"](scope, var) -- ./compiler/lua54.can:82
+return var -- ./compiler/lua54.can:83
+end -- ./compiler/lua54.can:83
+local required = {} -- ./compiler/lua54.can:87
+local requireStr = "" -- ./compiler/lua54.can:88
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
+if not required[req] then -- ./compiler/lua54.can:92
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
+required[req] = true -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+local loop = { -- ./compiler/lua54.can:99
+"While", -- ./compiler/lua54.can:99
+"Repeat", -- ./compiler/lua54.can:99
+"Fornum", -- ./compiler/lua54.can:99
+"Forin", -- ./compiler/lua54.can:99
+"WhileExpr", -- ./compiler/lua54.can:99
+"RepeatExpr", -- ./compiler/lua54.can:99
+"FornumExpr", -- ./compiler/lua54.can:99
+"ForinExpr" -- ./compiler/lua54.can:99
+} -- ./compiler/lua54.can:99
+local func = { -- ./compiler/lua54.can:100
+"Function", -- ./compiler/lua54.can:100
+"TableCompr", -- ./compiler/lua54.can:100
+"DoExpr", -- ./compiler/lua54.can:100
+"WhileExpr", -- ./compiler/lua54.can:100
+"RepeatExpr", -- ./compiler/lua54.can:100
+"IfExpr", -- ./compiler/lua54.can:100
+"FornumExpr", -- ./compiler/lua54.can:100
+"ForinExpr" -- ./compiler/lua54.can:100
+} -- ./compiler/lua54.can:100
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
+local tagsCheck = {} -- ./compiler/lua54.can:105
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
+tagsCheck[tag] = true -- ./compiler/lua54.can:107
+end -- ./compiler/lua54.can:107
+local nofollowCheck = {} -- ./compiler/lua54.can:109
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
+nofollowCheck[tag] = true -- ./compiler/lua54.can:111
+end -- ./compiler/lua54.can:111
+for _, node in ipairs(list) do -- ./compiler/lua54.can:113
+if type(node) == "table" then -- ./compiler/lua54.can:114
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
+return node -- ./compiler/lua54.can:116
+end -- ./compiler/lua54.can:116
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
+if r then -- ./compiler/lua54.can:120
+return r -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+return nil -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
+local tagsCheck = {} -- ./compiler/lua54.can:130
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
+tagsCheck[tag] = true -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local nofollowCheck = {} -- ./compiler/lua54.can:134
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
+nofollowCheck[tag] = true -- ./compiler/lua54.can:136
+end -- ./compiler/lua54.can:136
+local found = {} -- ./compiler/lua54.can:138
+for _, node in ipairs(list) do -- ./compiler/lua54.can:139
+if type(node) == "table" then -- ./compiler/lua54.can:140
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
+table["insert"](found, n) -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
+table["insert"](found, node) -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+return found -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+local function all(list, tags) -- ./compiler/lua54.can:155
+for _, node in ipairs(list) do -- ./compiler/lua54.can:156
+local ok = false -- ./compiler/lua54.can:157
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
+if node["tag"] == tag then -- ./compiler/lua54.can:159
+ok = true -- ./compiler/lua54.can:160
+break -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+if not ok then -- ./compiler/lua54.can:164
+return false -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+return true -- ./compiler/lua54.can:168
+end -- ./compiler/lua54.can:168
+local tags -- ./compiler/lua54.can:172
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
+end -- ./compiler/lua54.can:178
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
+end -- ./compiler/lua54.can:183
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local CONTINUE_START = function() -- ./compiler/lua54.can:188
+return "do" .. indent() -- ./compiler/lua54.can:189
+end -- ./compiler/lua54.can:189
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+end -- ./compiler/lua54.can:192
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
+local vars = {} -- ./compiler/lua54.can:195
+local values = {} -- ./compiler/lua54.can:196
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
+for _, v in ipairs(list) do -- ./compiler/lua54.can:198
+local var, val -- ./compiler/lua54.can:199
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
+var = v -- ./compiler/lua54.can:201
+val = { -- ./compiler/lua54.can:202
+["tag"] = "Index", -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "Id", -- ./compiler/lua54.can:202
+list["id"] -- ./compiler/lua54.can:202
+}, -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "String", -- ./compiler/lua54.can:202
+v[1] -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
+var = v[2] -- ./compiler/lua54.can:204
+val = { -- ./compiler/lua54.can:205
+["tag"] = "Index", -- ./compiler/lua54.can:205
+{ -- ./compiler/lua54.can:205
+["tag"] = "Id", -- ./compiler/lua54.can:205
+list["id"] -- ./compiler/lua54.can:205
+}, -- ./compiler/lua54.can:205
+v[1] -- ./compiler/lua54.can:205
+} -- ./compiler/lua54.can:205
+else -- ./compiler/lua54.can:205
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
+end -- ./compiler/lua54.can:207
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["rightOp"], -- ./compiler/lua54.can:210
+var, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["leftOp"], -- ./compiler/lua54.can:210
+val, -- ./compiler/lua54.can:210
+var -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
+val = { -- ./compiler/lua54.can:212
+["tag"] = "Op", -- ./compiler/lua54.can:212
+destructured["rightOp"], -- ./compiler/lua54.can:212
+var, -- ./compiler/lua54.can:212
+val -- ./compiler/lua54.can:212
+} -- ./compiler/lua54.can:212
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
+val = { -- ./compiler/lua54.can:214
+["tag"] = "Op", -- ./compiler/lua54.can:214
+destructured["leftOp"], -- ./compiler/lua54.can:214
+val, -- ./compiler/lua54.can:214
+var -- ./compiler/lua54.can:214
+} -- ./compiler/lua54.can:214
+end -- ./compiler/lua54.can:214
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+if # vars > 0 then -- ./compiler/lua54.can:220
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
+if newlineAfter then -- ./compiler/lua54.can:222
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
+else -- ./compiler/lua54.can:223
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+else -- ./compiler/lua54.can:225
+return "" -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+tags = setmetatable({ -- ./compiler/lua54.can:233
+["Block"] = function(t) -- ./compiler/lua54.can:235
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
+hasPush = false -- ./compiler/lua54.can:239
+end -- ./compiler/lua54.can:239
+local r = push("scope", {}) -- ./compiler/lua54.can:241
+if hasPush then -- ./compiler/lua54.can:242
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
+end -- ./compiler/lua54.can:243
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
+end -- ./compiler/lua54.can:246
+if t[# t] then -- ./compiler/lua54.can:248
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+end -- ./compiler/lua54.can:249
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+end -- ./compiler/lua54.can:252
+return r .. pop("scope") -- ./compiler/lua54.can:254
+end, -- ./compiler/lua54.can:254
+["Do"] = function(t) -- ./compiler/lua54.can:260
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
+end, -- ./compiler/lua54.can:261
+["Set"] = function(t) -- ./compiler/lua54.can:264
+local expr = t[# t] -- ./compiler/lua54.can:266
+local vars, values = {}, {} -- ./compiler/lua54.can:267
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
+else -- ./compiler/lua54.can:272
+table["insert"](vars, n) -- ./compiler/lua54.can:274
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
+local r = "" -- ./compiler/lua54.can:280
+if # vars > 0 then -- ./compiler/lua54.can:281
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
+end -- ./compiler/lua54.can:282
+if # destructuringVars > 0 then -- ./compiler/lua54.can:284
+local destructured = {} -- ./compiler/lua54.can:285
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
+end -- ./compiler/lua54.can:287
+return r -- ./compiler/lua54.can:289
+elseif # t == 4 then -- ./compiler/lua54.can:290
+if t[3] == "=" then -- ./compiler/lua54.can:291
+local r = "" -- ./compiler/lua54.can:292
+if # vars > 0 then -- ./compiler/lua54.can:293
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
+t[2], -- ./compiler/lua54.can:294
+vars[1], -- ./compiler/lua54.can:294
+{ -- ./compiler/lua54.can:294
+["tag"] = "Paren", -- ./compiler/lua54.can:294
+values[1] -- ./compiler/lua54.can:294
+} -- ./compiler/lua54.can:294
+}, "Op")) -- ./compiler/lua54.can:294
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
+t[2], -- ./compiler/lua54.can:296
+vars[i], -- ./compiler/lua54.can:296
+{ -- ./compiler/lua54.can:296
+["tag"] = "Paren", -- ./compiler/lua54.can:296
+values[i] -- ./compiler/lua54.can:296
+} -- ./compiler/lua54.can:296
+}, "Op")) -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+if # destructuringVars > 0 then -- ./compiler/lua54.can:299
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+end -- ./compiler/lua54.can:302
+return r -- ./compiler/lua54.can:304
+else -- ./compiler/lua54.can:304
+local r = "" -- ./compiler/lua54.can:306
+if # vars > 0 then -- ./compiler/lua54.can:307
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
+t[3], -- ./compiler/lua54.can:308
+{ -- ./compiler/lua54.can:308
+["tag"] = "Paren", -- ./compiler/lua54.can:308
+values[1] -- ./compiler/lua54.can:308
+}, -- ./compiler/lua54.can:308
+vars[1] -- ./compiler/lua54.can:308
+}, "Op")) -- ./compiler/lua54.can:308
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
+t[3], -- ./compiler/lua54.can:310
+{ -- ./compiler/lua54.can:310
+["tag"] = "Paren", -- ./compiler/lua54.can:310
+values[i] -- ./compiler/lua54.can:310
+}, -- ./compiler/lua54.can:310
+vars[i] -- ./compiler/lua54.can:310
+}, "Op")) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+if # destructuringVars > 0 then -- ./compiler/lua54.can:313
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:316
+return r -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+else -- ./compiler/lua54.can:318
+local r = "" -- ./compiler/lua54.can:321
+if # vars > 0 then -- ./compiler/lua54.can:322
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
+t[2], -- ./compiler/lua54.can:323
+vars[1], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Op", -- ./compiler/lua54.can:323
+t[4], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Paren", -- ./compiler/lua54.can:323
+values[1] -- ./compiler/lua54.can:323
+}, -- ./compiler/lua54.can:323
+vars[1] -- ./compiler/lua54.can:323
+} -- ./compiler/lua54.can:323
+}, "Op")) -- ./compiler/lua54.can:323
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
+t[2], -- ./compiler/lua54.can:325
+vars[i], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Op", -- ./compiler/lua54.can:325
+t[4], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Paren", -- ./compiler/lua54.can:325
+values[i] -- ./compiler/lua54.can:325
+}, -- ./compiler/lua54.can:325
+vars[i] -- ./compiler/lua54.can:325
+} -- ./compiler/lua54.can:325
+}, "Op")) -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+if # destructuringVars > 0 then -- ./compiler/lua54.can:328
+local destructured = { -- ./compiler/lua54.can:329
+["rightOp"] = t[2], -- ./compiler/lua54.can:329
+["leftOp"] = t[4] -- ./compiler/lua54.can:329
+} -- ./compiler/lua54.can:329
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+end -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end, -- ./compiler/lua54.can:333
+["While"] = function(t) -- ./compiler/lua54.can:337
+local r = "" -- ./compiler/lua54.can:338
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
+if # lets > 0 then -- ./compiler/lua54.can:341
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
+if # lets > 0 then -- ./compiler/lua54.can:348
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
+end -- ./compiler/lua54.can:349
+if hasContinue then -- ./compiler/lua54.can:351
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
+if hasContinue then -- ./compiler/lua54.can:355
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
+end -- ./compiler/lua54.can:356
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
+if # lets > 0 then -- ./compiler/lua54.can:359
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
+end -- ./compiler/lua54.can:361
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
+end -- ./compiler/lua54.can:363
+return r -- ./compiler/lua54.can:365
+end, -- ./compiler/lua54.can:365
+["Repeat"] = function(t) -- ./compiler/lua54.can:368
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
+local r = "repeat" .. indent() -- ./compiler/lua54.can:370
+if hasContinue then -- ./compiler/lua54.can:371
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
+end -- ./compiler/lua54.can:372
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
+if hasContinue then -- ./compiler/lua54.can:375
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
+end -- ./compiler/lua54.can:376
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
+return r -- ./compiler/lua54.can:379
+end, -- ./compiler/lua54.can:379
+["If"] = function(t) -- ./compiler/lua54.can:382
+local r = "" -- ./compiler/lua54.can:383
+local toClose = 0 -- ./compiler/lua54.can:384
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
+if # lets > 0 then -- ./compiler/lua54.can:386
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
+toClose = toClose + (1) -- ./compiler/lua54.can:388
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
+if # lets > 0 then -- ./compiler/lua54.can:396
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
+toClose = toClose + (1) -- ./compiler/lua54.can:398
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
+end -- ./compiler/lua54.can:400
+else -- ./compiler/lua54.can:400
+r = r .. ("else") -- ./compiler/lua54.can:403
+end -- ./compiler/lua54.can:403
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
+end -- ./compiler/lua54.can:405
+if # t % 2 == 1 then -- ./compiler/lua54.can:407
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+r = r .. ("end") -- ./compiler/lua54.can:410
+for i = 1, toClose do -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
+end -- ./compiler/lua54.can:412
+return r -- ./compiler/lua54.can:414
+end, -- ./compiler/lua54.can:414
+["Fornum"] = function(t) -- ./compiler/lua54.can:417
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
+if # t == 5 then -- ./compiler/lua54.can:419
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
+if hasContinue then -- ./compiler/lua54.can:422
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
+end -- ./compiler/lua54.can:423
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
+if hasContinue then -- ./compiler/lua54.can:426
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
+end -- ./compiler/lua54.can:427
+return r .. unindent() .. "end" -- ./compiler/lua54.can:429
+else -- ./compiler/lua54.can:429
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
+if hasContinue then -- ./compiler/lua54.can:433
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
+end -- ./compiler/lua54.can:434
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
+if hasContinue then -- ./compiler/lua54.can:437
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
+end -- ./compiler/lua54.can:438
+return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:440
+end, -- ./compiler/lua54.can:440
+["Forin"] = function(t) -- ./compiler/lua54.can:444
+local destructured = {} -- ./compiler/lua54.can:445
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
+if hasContinue then -- ./compiler/lua54.can:448
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
+end -- ./compiler/lua54.can:449
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
+if hasContinue then -- ./compiler/lua54.can:452
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
+end -- ./compiler/lua54.can:453
+return r .. unindent() .. "end" -- ./compiler/lua54.can:455
+end, -- ./compiler/lua54.can:455
+["Local"] = function(t) -- ./compiler/lua54.can:458
+local destructured = {} -- ./compiler/lua54.can:459
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
+if t[2][1] then -- ./compiler/lua54.can:461
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
+end -- ./compiler/lua54.can:462
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
+end, -- ./compiler/lua54.can:464
+["Let"] = function(t) -- ./compiler/lua54.can:467
+local destructured = {} -- ./compiler/lua54.can:468
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
+local r = "local " .. nameList -- ./compiler/lua54.can:470
+if t[2][1] then -- ./compiler/lua54.can:471
+if all(t[2], { -- ./compiler/lua54.can:472
+"Nil", -- ./compiler/lua54.can:472
+"Dots", -- ./compiler/lua54.can:472
+"Boolean", -- ./compiler/lua54.can:472
+"Number", -- ./compiler/lua54.can:472
+"String" -- ./compiler/lua54.can:472
+}) then -- ./compiler/lua54.can:472
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
+else -- ./compiler/lua54.can:473
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
+end, -- ./compiler/lua54.can:478
+["Localrec"] = function(t) -- ./compiler/lua54.can:481
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
+end, -- ./compiler/lua54.can:482
+["Goto"] = function(t) -- ./compiler/lua54.can:485
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Label"] = function(t) -- ./compiler/lua54.can:489
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Return"] = function(t) -- ./compiler/lua54.can:493
+local push = peek("push") -- ./compiler/lua54.can:494
+if push then -- ./compiler/lua54.can:495
+local r = "" -- ./compiler/lua54.can:496
+for _, val in ipairs(t) do -- ./compiler/lua54.can:497
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
+end -- ./compiler/lua54.can:498
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
+else -- ./compiler/lua54.can:500
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
+end -- ./compiler/lua54.can:502
+end, -- ./compiler/lua54.can:502
+["Push"] = function(t) -- ./compiler/lua54.can:506
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
+r = "" -- ./compiler/lua54.can:508
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+if t[# t] then -- ./compiler/lua54.can:512
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
+else -- ./compiler/lua54.can:514
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+return r -- ./compiler/lua54.can:519
+end, -- ./compiler/lua54.can:519
+["Break"] = function() -- ./compiler/lua54.can:522
+return "break" -- ./compiler/lua54.can:523
+end, -- ./compiler/lua54.can:523
+["Continue"] = function() -- ./compiler/lua54.can:526
+return "goto " .. var("continue") -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Nil"] = function() -- ./compiler/lua54.can:534
+return "nil" -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Dots"] = function() -- ./compiler/lua54.can:538
+return "..." -- ./compiler/lua54.can:539
+end, -- ./compiler/lua54.can:539
+["Boolean"] = function(t) -- ./compiler/lua54.can:542
+return tostring(t[1]) -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Number"] = function(t) -- ./compiler/lua54.can:546
+return tostring(t[1]) -- ./compiler/lua54.can:547
+end, -- ./compiler/lua54.can:547
+["String"] = function(t) -- ./compiler/lua54.can:550
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
+end, -- ./compiler/lua54.can:551
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
+local r = "(" -- ./compiler/lua54.can:555
+local decl = {} -- ./compiler/lua54.can:556
+if t[1][1] then -- ./compiler/lua54.can:557
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
+r = r .. (id) -- ./compiler/lua54.can:563
+else -- ./compiler/lua54.can:563
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
+end -- ./compiler/lua54.can:565
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
+r = r .. (", " .. id) -- ./compiler/lua54.can:573
+else -- ./compiler/lua54.can:573
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
+r = r .. (d .. newline()) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
+end -- ./compiler/lua54.can:584
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
+if hasPush then -- ./compiler/lua54.can:587
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
+else -- ./compiler/lua54.can:588
+push("push", false) -- ./compiler/lua54.can:590
+end -- ./compiler/lua54.can:590
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
+end -- ./compiler/lua54.can:594
+pop("push") -- ./compiler/lua54.can:596
+return r .. unindent() .. "end" -- ./compiler/lua54.can:597
+end, -- ./compiler/lua54.can:597
+["Function"] = function(t) -- ./compiler/lua54.can:599
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
+end, -- ./compiler/lua54.can:600
+["Pair"] = function(t) -- ./compiler/lua54.can:603
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
+end, -- ./compiler/lua54.can:604
+["Table"] = function(t) -- ./compiler/lua54.can:606
+if # t == 0 then -- ./compiler/lua54.can:607
+return "{}" -- ./compiler/lua54.can:608
+elseif # t == 1 then -- ./compiler/lua54.can:609
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
+else -- ./compiler/lua54.can:610
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
+end -- ./compiler/lua54.can:612
+end, -- ./compiler/lua54.can:612
+["TableCompr"] = function(t) -- ./compiler/lua54.can:616
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
+end, -- ./compiler/lua54.can:617
+["Op"] = function(t) -- ./compiler/lua54.can:620
+local r -- ./compiler/lua54.can:621
+if # t == 2 then -- ./compiler/lua54.can:622
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+else -- ./compiler/lua54.can:624
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+end -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
+else -- ./compiler/lua54.can:630
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+return r -- ./compiler/lua54.can:635
+end, -- ./compiler/lua54.can:635
+["Paren"] = function(t) -- ./compiler/lua54.can:638
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
+end, -- ./compiler/lua54.can:639
+["MethodStub"] = function(t) -- ./compiler/lua54.can:642
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
+end, -- ./compiler/lua54.can:648
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
+end, -- ./compiler/lua54.can:658
+["LetExpr"] = function(t) -- ./compiler/lua54.can:665
+return lua(t[1][1]) -- ./compiler/lua54.can:666
+end, -- ./compiler/lua54.can:666
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
+local r = "(function()" .. indent() -- ./compiler/lua54.can:672
+if hasPush then -- ./compiler/lua54.can:673
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
+else -- ./compiler/lua54.can:674
+push("push", false) -- ./compiler/lua54.can:676
+end -- ./compiler/lua54.can:676
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
+if hasPush then -- ./compiler/lua54.can:679
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
+end -- ./compiler/lua54.can:680
+pop("push") -- ./compiler/lua54.can:682
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
+return r -- ./compiler/lua54.can:684
+end, -- ./compiler/lua54.can:684
+["DoExpr"] = function(t) -- ./compiler/lua54.can:687
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
+end -- ./compiler/lua54.can:689
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
+end, -- ./compiler/lua54.can:691
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
+end, -- ./compiler/lua54.can:695
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
+end, -- ./compiler/lua54.can:699
+["IfExpr"] = function(t) -- ./compiler/lua54.can:702
+for i = 2, # t do -- ./compiler/lua54.can:703
+local block = t[i] -- ./compiler/lua54.can:704
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:709
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+end, -- ./compiler/lua54.can:713
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
+end, -- ./compiler/lua54.can:717
+["Call"] = function(t) -- ./compiler/lua54.can:723
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
+else -- ./compiler/lua54.can:728
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
+end -- ./compiler/lua54.can:730
+else -- ./compiler/lua54.can:730
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
+end -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["SafeCall"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
+else -- ./compiler/lua54.can:739
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
+end -- ./compiler/lua54.can:741
+end, -- ./compiler/lua54.can:741
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
+if start == nil then start = 1 end -- ./compiler/lua54.can:746
+local r -- ./compiler/lua54.can:747
+if t[start] then -- ./compiler/lua54.can:748
+r = lua(t[start]) -- ./compiler/lua54.can:749
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
+end -- ./compiler/lua54.can:751
+else -- ./compiler/lua54.can:751
+r = "" -- ./compiler/lua54.can:754
+end -- ./compiler/lua54.can:754
+return r -- ./compiler/lua54.can:756
+end, -- ./compiler/lua54.can:756
+["Id"] = function(t) -- ./compiler/lua54.can:759
+return t[1] -- ./compiler/lua54.can:760
+end, -- ./compiler/lua54.can:760
+["AttributeId"] = function(t) -- ./compiler/lua54.can:763
+if t[2] then -- ./compiler/lua54.can:764
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
+else -- ./compiler/lua54.can:765
+return t[1] -- ./compiler/lua54.can:767
+end -- ./compiler/lua54.can:767
+end, -- ./compiler/lua54.can:767
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
+if t["id"] then -- ./compiler/lua54.can:772
+return t["id"] -- ./compiler/lua54.can:773
+else -- ./compiler/lua54.can:773
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
+for j = 1, # t, 1 do -- ./compiler/lua54.can:777
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
+end -- ./compiler/lua54.can:778
+table["insert"](d, vars) -- ./compiler/lua54.can:780
+t["id"] = vars["id"] -- ./compiler/lua54.can:781
+return vars["id"] -- ./compiler/lua54.can:782
+end -- ./compiler/lua54.can:782
+end, -- ./compiler/lua54.can:782
+["Index"] = function(t) -- ./compiler/lua54.can:786
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
+else -- ./compiler/lua54.can:788
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+end -- ./compiler/lua54.can:790
+end, -- ./compiler/lua54.can:790
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
+local l = {} -- ./compiler/lua54.can:796
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
+table["insert"](l, 1, t) -- ./compiler/lua54.can:798
+t = t[1] -- ./compiler/lua54.can:799
+end -- ./compiler/lua54.can:799
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
+for _, e in ipairs(l) do -- ./compiler/lua54.can:802
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
+else -- ./compiler/lua54.can:805
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
+return r -- ./compiler/lua54.can:811
+else -- ./compiler/lua54.can:811
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
+end -- ./compiler/lua54.can:813
+end, -- ./compiler/lua54.can:813
+["_opid"] = { -- ./compiler/lua54.can:818
+["add"] = "+", -- ./compiler/lua54.can:819
+["sub"] = "-", -- ./compiler/lua54.can:819
+["mul"] = "*", -- ./compiler/lua54.can:819
+["div"] = "/", -- ./compiler/lua54.can:819
+["idiv"] = "//", -- ./compiler/lua54.can:820
+["mod"] = "%", -- ./compiler/lua54.can:820
+["pow"] = "^", -- ./compiler/lua54.can:820
+["concat"] = "..", -- ./compiler/lua54.can:820
+["band"] = "&", -- ./compiler/lua54.can:821
+["bor"] = "|", -- ./compiler/lua54.can:821
+["bxor"] = "~", -- ./compiler/lua54.can:821
+["shl"] = "<<", -- ./compiler/lua54.can:821
+["shr"] = ">>", -- ./compiler/lua54.can:821
+["eq"] = "==", -- ./compiler/lua54.can:822
+["ne"] = "~=", -- ./compiler/lua54.can:822
+["lt"] = "<", -- ./compiler/lua54.can:822
+["gt"] = ">", -- ./compiler/lua54.can:822
+["le"] = "<=", -- ./compiler/lua54.can:822
+["ge"] = ">=", -- ./compiler/lua54.can:822
+["and"] = "and", -- ./compiler/lua54.can:823
+["or"] = "or", -- ./compiler/lua54.can:823
+["unm"] = "-", -- ./compiler/lua54.can:823
+["len"] = "#", -- ./compiler/lua54.can:823
+["bnot"] = "~", -- ./compiler/lua54.can:823
+["not"] = "not" -- ./compiler/lua54.can:823
+} -- ./compiler/lua54.can:823
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
+end }) -- ./compiler/lua54.can:827
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
+return requireStr .. code -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+return lua54 -- ./compiler/lua53.can:10
+end -- ./compiler/lua53.can:10
+local lua53 = _() or lua53 -- ./compiler/lua53.can:14
+package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:15
+local function _() -- ./compiler/lua53.can:18
+local function _() -- ./compiler/lua53.can:20
+local function _() -- ./compiler/lua53.can:22
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
+return function(code, ast, options) -- ./compiler/lua54.can:3
+local lastInputPos = 1 -- ./compiler/lua54.can:5
+local prevLinePos = 1 -- ./compiler/lua54.can:6
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
+local lastLine = 1 -- ./compiler/lua54.can:8
+local indentLevel = 0 -- ./compiler/lua54.can:11
+local function newline() -- ./compiler/lua54.can:13
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
+if options["mapLines"] then -- ./compiler/lua54.can:15
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local source, line = sub:sub(1, sub:find("\
+")):match(".*%-%- (.-)%:(%d+)\
+") -- ./compiler/lua54.can:17
+if source and line then -- ./compiler/lua54.can:19
+lastSource = source -- ./compiler/lua54.can:20
+lastLine = tonumber(line) -- ./compiler/lua54.can:21
+else -- ./compiler/lua54.can:21
+for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
+") do -- ./compiler/lua54.can:23
+lastLine = lastLine + (1) -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+prevLinePos = lastInputPos -- ./compiler/lua54.can:28
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
+end -- ./compiler/lua54.can:30
+return r -- ./compiler/lua54.can:32
+end -- ./compiler/lua54.can:32
+local function indent() -- ./compiler/lua54.can:35
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
+return newline() -- ./compiler/lua54.can:37
+end -- ./compiler/lua54.can:37
+local function unindent() -- ./compiler/lua54.can:40
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
+return newline() -- ./compiler/lua54.can:42
+end -- ./compiler/lua54.can:42
+local states = { -- ./compiler/lua54.can:47
+["push"] = {}, -- ./compiler/lua54.can:48
+["destructuring"] = {}, -- ./compiler/lua54.can:49
+["scope"] = {} -- ./compiler/lua54.can:50
+} -- ./compiler/lua54.can:50
+local function push(name, state) -- ./compiler/lua54.can:53
+table["insert"](states[name], state) -- ./compiler/lua54.can:54
+return "" -- ./compiler/lua54.can:55
+end -- ./compiler/lua54.can:55
+local function pop(name) -- ./compiler/lua54.can:58
+table["remove"](states[name]) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function set(name, state) -- ./compiler/lua54.can:63
+states[name][# states[name]] = state -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function peek(name) -- ./compiler/lua54.can:68
+return states[name][# states[name]] -- ./compiler/lua54.can:69
+end -- ./compiler/lua54.can:69
+local function var(name) -- ./compiler/lua54.can:74
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
+end -- ./compiler/lua54.can:75
+local function tmp() -- ./compiler/lua54.can:79
+local scope = peek("scope") -- ./compiler/lua54.can:80
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
+table["insert"](scope, var) -- ./compiler/lua54.can:82
+return var -- ./compiler/lua54.can:83
+end -- ./compiler/lua54.can:83
+local required = {} -- ./compiler/lua54.can:87
+local requireStr = "" -- ./compiler/lua54.can:88
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
+if not required[req] then -- ./compiler/lua54.can:92
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
+required[req] = true -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+local loop = { -- ./compiler/lua54.can:99
+"While", -- ./compiler/lua54.can:99
+"Repeat", -- ./compiler/lua54.can:99
+"Fornum", -- ./compiler/lua54.can:99
+"Forin", -- ./compiler/lua54.can:99
+"WhileExpr", -- ./compiler/lua54.can:99
+"RepeatExpr", -- ./compiler/lua54.can:99
+"FornumExpr", -- ./compiler/lua54.can:99
+"ForinExpr" -- ./compiler/lua54.can:99
+} -- ./compiler/lua54.can:99
+local func = { -- ./compiler/lua54.can:100
+"Function", -- ./compiler/lua54.can:100
+"TableCompr", -- ./compiler/lua54.can:100
+"DoExpr", -- ./compiler/lua54.can:100
+"WhileExpr", -- ./compiler/lua54.can:100
+"RepeatExpr", -- ./compiler/lua54.can:100
+"IfExpr", -- ./compiler/lua54.can:100
+"FornumExpr", -- ./compiler/lua54.can:100
+"ForinExpr" -- ./compiler/lua54.can:100
+} -- ./compiler/lua54.can:100
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
+local tagsCheck = {} -- ./compiler/lua54.can:105
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
+tagsCheck[tag] = true -- ./compiler/lua54.can:107
+end -- ./compiler/lua54.can:107
+local nofollowCheck = {} -- ./compiler/lua54.can:109
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
+nofollowCheck[tag] = true -- ./compiler/lua54.can:111
+end -- ./compiler/lua54.can:111
+for _, node in ipairs(list) do -- ./compiler/lua54.can:113
+if type(node) == "table" then -- ./compiler/lua54.can:114
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
+return node -- ./compiler/lua54.can:116
+end -- ./compiler/lua54.can:116
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
+if r then -- ./compiler/lua54.can:120
+return r -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+return nil -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
+local tagsCheck = {} -- ./compiler/lua54.can:130
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
+tagsCheck[tag] = true -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local nofollowCheck = {} -- ./compiler/lua54.can:134
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
+nofollowCheck[tag] = true -- ./compiler/lua54.can:136
+end -- ./compiler/lua54.can:136
+local found = {} -- ./compiler/lua54.can:138
+for _, node in ipairs(list) do -- ./compiler/lua54.can:139
+if type(node) == "table" then -- ./compiler/lua54.can:140
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
+table["insert"](found, n) -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
+table["insert"](found, node) -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+return found -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+local function all(list, tags) -- ./compiler/lua54.can:155
+for _, node in ipairs(list) do -- ./compiler/lua54.can:156
+local ok = false -- ./compiler/lua54.can:157
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
+if node["tag"] == tag then -- ./compiler/lua54.can:159
+ok = true -- ./compiler/lua54.can:160
+break -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+if not ok then -- ./compiler/lua54.can:164
+return false -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+return true -- ./compiler/lua54.can:168
+end -- ./compiler/lua54.can:168
+local tags -- ./compiler/lua54.can:172
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
+end -- ./compiler/lua54.can:178
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
+end -- ./compiler/lua54.can:183
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local CONTINUE_START = function() -- ./compiler/lua54.can:188
+return "do" .. indent() -- ./compiler/lua54.can:189
+end -- ./compiler/lua54.can:189
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+end -- ./compiler/lua54.can:192
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
+local vars = {} -- ./compiler/lua54.can:195
+local values = {} -- ./compiler/lua54.can:196
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
+for _, v in ipairs(list) do -- ./compiler/lua54.can:198
+local var, val -- ./compiler/lua54.can:199
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
+var = v -- ./compiler/lua54.can:201
+val = { -- ./compiler/lua54.can:202
+["tag"] = "Index", -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "Id", -- ./compiler/lua54.can:202
+list["id"] -- ./compiler/lua54.can:202
+}, -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "String", -- ./compiler/lua54.can:202
+v[1] -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
+var = v[2] -- ./compiler/lua54.can:204
+val = { -- ./compiler/lua54.can:205
+["tag"] = "Index", -- ./compiler/lua54.can:205
+{ -- ./compiler/lua54.can:205
+["tag"] = "Id", -- ./compiler/lua54.can:205
+list["id"] -- ./compiler/lua54.can:205
+}, -- ./compiler/lua54.can:205
+v[1] -- ./compiler/lua54.can:205
+} -- ./compiler/lua54.can:205
+else -- ./compiler/lua54.can:205
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
+end -- ./compiler/lua54.can:207
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["rightOp"], -- ./compiler/lua54.can:210
+var, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["leftOp"], -- ./compiler/lua54.can:210
+val, -- ./compiler/lua54.can:210
+var -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
+val = { -- ./compiler/lua54.can:212
+["tag"] = "Op", -- ./compiler/lua54.can:212
+destructured["rightOp"], -- ./compiler/lua54.can:212
+var, -- ./compiler/lua54.can:212
+val -- ./compiler/lua54.can:212
+} -- ./compiler/lua54.can:212
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
+val = { -- ./compiler/lua54.can:214
+["tag"] = "Op", -- ./compiler/lua54.can:214
+destructured["leftOp"], -- ./compiler/lua54.can:214
+val, -- ./compiler/lua54.can:214
+var -- ./compiler/lua54.can:214
+} -- ./compiler/lua54.can:214
+end -- ./compiler/lua54.can:214
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+if # vars > 0 then -- ./compiler/lua54.can:220
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
+if newlineAfter then -- ./compiler/lua54.can:222
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
+else -- ./compiler/lua54.can:223
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+else -- ./compiler/lua54.can:225
+return "" -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+tags = setmetatable({ -- ./compiler/lua54.can:233
+["Block"] = function(t) -- ./compiler/lua54.can:235
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
+hasPush = false -- ./compiler/lua54.can:239
+end -- ./compiler/lua54.can:239
+local r = push("scope", {}) -- ./compiler/lua54.can:241
+if hasPush then -- ./compiler/lua54.can:242
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
+end -- ./compiler/lua54.can:243
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
+end -- ./compiler/lua54.can:246
+if t[# t] then -- ./compiler/lua54.can:248
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+end -- ./compiler/lua54.can:249
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+end -- ./compiler/lua54.can:252
+return r .. pop("scope") -- ./compiler/lua54.can:254
+end, -- ./compiler/lua54.can:254
+["Do"] = function(t) -- ./compiler/lua54.can:260
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
+end, -- ./compiler/lua54.can:261
+["Set"] = function(t) -- ./compiler/lua54.can:264
+local expr = t[# t] -- ./compiler/lua54.can:266
+local vars, values = {}, {} -- ./compiler/lua54.can:267
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
+else -- ./compiler/lua54.can:272
+table["insert"](vars, n) -- ./compiler/lua54.can:274
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
+local r = "" -- ./compiler/lua54.can:280
+if # vars > 0 then -- ./compiler/lua54.can:281
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
+end -- ./compiler/lua54.can:282
+if # destructuringVars > 0 then -- ./compiler/lua54.can:284
+local destructured = {} -- ./compiler/lua54.can:285
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
+end -- ./compiler/lua54.can:287
+return r -- ./compiler/lua54.can:289
+elseif # t == 4 then -- ./compiler/lua54.can:290
+if t[3] == "=" then -- ./compiler/lua54.can:291
+local r = "" -- ./compiler/lua54.can:292
+if # vars > 0 then -- ./compiler/lua54.can:293
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
+t[2], -- ./compiler/lua54.can:294
+vars[1], -- ./compiler/lua54.can:294
+{ -- ./compiler/lua54.can:294
+["tag"] = "Paren", -- ./compiler/lua54.can:294
+values[1] -- ./compiler/lua54.can:294
+} -- ./compiler/lua54.can:294
+}, "Op")) -- ./compiler/lua54.can:294
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
+t[2], -- ./compiler/lua54.can:296
+vars[i], -- ./compiler/lua54.can:296
+{ -- ./compiler/lua54.can:296
+["tag"] = "Paren", -- ./compiler/lua54.can:296
+values[i] -- ./compiler/lua54.can:296
+} -- ./compiler/lua54.can:296
+}, "Op")) -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+if # destructuringVars > 0 then -- ./compiler/lua54.can:299
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+end -- ./compiler/lua54.can:302
+return r -- ./compiler/lua54.can:304
+else -- ./compiler/lua54.can:304
+local r = "" -- ./compiler/lua54.can:306
+if # vars > 0 then -- ./compiler/lua54.can:307
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
+t[3], -- ./compiler/lua54.can:308
+{ -- ./compiler/lua54.can:308
+["tag"] = "Paren", -- ./compiler/lua54.can:308
+values[1] -- ./compiler/lua54.can:308
+}, -- ./compiler/lua54.can:308
+vars[1] -- ./compiler/lua54.can:308
+}, "Op")) -- ./compiler/lua54.can:308
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
+t[3], -- ./compiler/lua54.can:310
+{ -- ./compiler/lua54.can:310
+["tag"] = "Paren", -- ./compiler/lua54.can:310
+values[i] -- ./compiler/lua54.can:310
+}, -- ./compiler/lua54.can:310
+vars[i] -- ./compiler/lua54.can:310
+}, "Op")) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+if # destructuringVars > 0 then -- ./compiler/lua54.can:313
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:316
+return r -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+else -- ./compiler/lua54.can:318
+local r = "" -- ./compiler/lua54.can:321
+if # vars > 0 then -- ./compiler/lua54.can:322
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
+t[2], -- ./compiler/lua54.can:323
+vars[1], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Op", -- ./compiler/lua54.can:323
+t[4], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Paren", -- ./compiler/lua54.can:323
+values[1] -- ./compiler/lua54.can:323
+}, -- ./compiler/lua54.can:323
+vars[1] -- ./compiler/lua54.can:323
+} -- ./compiler/lua54.can:323
+}, "Op")) -- ./compiler/lua54.can:323
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
+t[2], -- ./compiler/lua54.can:325
+vars[i], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Op", -- ./compiler/lua54.can:325
+t[4], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Paren", -- ./compiler/lua54.can:325
+values[i] -- ./compiler/lua54.can:325
+}, -- ./compiler/lua54.can:325
+vars[i] -- ./compiler/lua54.can:325
+} -- ./compiler/lua54.can:325
+}, "Op")) -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+if # destructuringVars > 0 then -- ./compiler/lua54.can:328
+local destructured = { -- ./compiler/lua54.can:329
+["rightOp"] = t[2], -- ./compiler/lua54.can:329
+["leftOp"] = t[4] -- ./compiler/lua54.can:329
+} -- ./compiler/lua54.can:329
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+end -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end, -- ./compiler/lua54.can:333
+["While"] = function(t) -- ./compiler/lua54.can:337
+local r = "" -- ./compiler/lua54.can:338
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
+if # lets > 0 then -- ./compiler/lua54.can:341
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
+if # lets > 0 then -- ./compiler/lua54.can:348
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
+end -- ./compiler/lua54.can:349
+if hasContinue then -- ./compiler/lua54.can:351
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
+if hasContinue then -- ./compiler/lua54.can:355
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
+end -- ./compiler/lua54.can:356
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
+if # lets > 0 then -- ./compiler/lua54.can:359
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
+end -- ./compiler/lua54.can:361
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
+end -- ./compiler/lua54.can:363
+return r -- ./compiler/lua54.can:365
+end, -- ./compiler/lua54.can:365
+["Repeat"] = function(t) -- ./compiler/lua54.can:368
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
+local r = "repeat" .. indent() -- ./compiler/lua54.can:370
+if hasContinue then -- ./compiler/lua54.can:371
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
+end -- ./compiler/lua54.can:372
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
+if hasContinue then -- ./compiler/lua54.can:375
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
+end -- ./compiler/lua54.can:376
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
+return r -- ./compiler/lua54.can:379
+end, -- ./compiler/lua54.can:379
+["If"] = function(t) -- ./compiler/lua54.can:382
+local r = "" -- ./compiler/lua54.can:383
+local toClose = 0 -- ./compiler/lua54.can:384
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
+if # lets > 0 then -- ./compiler/lua54.can:386
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
+toClose = toClose + (1) -- ./compiler/lua54.can:388
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
+if # lets > 0 then -- ./compiler/lua54.can:396
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
+toClose = toClose + (1) -- ./compiler/lua54.can:398
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
+end -- ./compiler/lua54.can:400
+else -- ./compiler/lua54.can:400
+r = r .. ("else") -- ./compiler/lua54.can:403
+end -- ./compiler/lua54.can:403
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
+end -- ./compiler/lua54.can:405
+if # t % 2 == 1 then -- ./compiler/lua54.can:407
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+r = r .. ("end") -- ./compiler/lua54.can:410
+for i = 1, toClose do -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
+end -- ./compiler/lua54.can:412
+return r -- ./compiler/lua54.can:414
+end, -- ./compiler/lua54.can:414
+["Fornum"] = function(t) -- ./compiler/lua54.can:417
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
+if # t == 5 then -- ./compiler/lua54.can:419
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
+if hasContinue then -- ./compiler/lua54.can:422
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
+end -- ./compiler/lua54.can:423
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
+if hasContinue then -- ./compiler/lua54.can:426
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
+end -- ./compiler/lua54.can:427
+return r .. unindent() .. "end" -- ./compiler/lua54.can:429
+else -- ./compiler/lua54.can:429
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
+if hasContinue then -- ./compiler/lua54.can:433
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
+end -- ./compiler/lua54.can:434
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
+if hasContinue then -- ./compiler/lua54.can:437
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
+end -- ./compiler/lua54.can:438
+return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:440
+end, -- ./compiler/lua54.can:440
+["Forin"] = function(t) -- ./compiler/lua54.can:444
+local destructured = {} -- ./compiler/lua54.can:445
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
+if hasContinue then -- ./compiler/lua54.can:448
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
+end -- ./compiler/lua54.can:449
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
+if hasContinue then -- ./compiler/lua54.can:452
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
+end -- ./compiler/lua54.can:453
+return r .. unindent() .. "end" -- ./compiler/lua54.can:455
+end, -- ./compiler/lua54.can:455
+["Local"] = function(t) -- ./compiler/lua54.can:458
+local destructured = {} -- ./compiler/lua54.can:459
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
+if t[2][1] then -- ./compiler/lua54.can:461
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
+end -- ./compiler/lua54.can:462
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
+end, -- ./compiler/lua54.can:464
+["Let"] = function(t) -- ./compiler/lua54.can:467
+local destructured = {} -- ./compiler/lua54.can:468
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
+local r = "local " .. nameList -- ./compiler/lua54.can:470
+if t[2][1] then -- ./compiler/lua54.can:471
+if all(t[2], { -- ./compiler/lua54.can:472
+"Nil", -- ./compiler/lua54.can:472
+"Dots", -- ./compiler/lua54.can:472
+"Boolean", -- ./compiler/lua54.can:472
+"Number", -- ./compiler/lua54.can:472
+"String" -- ./compiler/lua54.can:472
+}) then -- ./compiler/lua54.can:472
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
+else -- ./compiler/lua54.can:473
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
+end, -- ./compiler/lua54.can:478
+["Localrec"] = function(t) -- ./compiler/lua54.can:481
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
+end, -- ./compiler/lua54.can:482
+["Goto"] = function(t) -- ./compiler/lua54.can:485
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Label"] = function(t) -- ./compiler/lua54.can:489
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Return"] = function(t) -- ./compiler/lua54.can:493
+local push = peek("push") -- ./compiler/lua54.can:494
+if push then -- ./compiler/lua54.can:495
+local r = "" -- ./compiler/lua54.can:496
+for _, val in ipairs(t) do -- ./compiler/lua54.can:497
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
+end -- ./compiler/lua54.can:498
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
+else -- ./compiler/lua54.can:500
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
+end -- ./compiler/lua54.can:502
+end, -- ./compiler/lua54.can:502
+["Push"] = function(t) -- ./compiler/lua54.can:506
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
+r = "" -- ./compiler/lua54.can:508
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+if t[# t] then -- ./compiler/lua54.can:512
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
+else -- ./compiler/lua54.can:514
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+return r -- ./compiler/lua54.can:519
+end, -- ./compiler/lua54.can:519
+["Break"] = function() -- ./compiler/lua54.can:522
+return "break" -- ./compiler/lua54.can:523
+end, -- ./compiler/lua54.can:523
+["Continue"] = function() -- ./compiler/lua54.can:526
+return "goto " .. var("continue") -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Nil"] = function() -- ./compiler/lua54.can:534
+return "nil" -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Dots"] = function() -- ./compiler/lua54.can:538
+return "..." -- ./compiler/lua54.can:539
+end, -- ./compiler/lua54.can:539
+["Boolean"] = function(t) -- ./compiler/lua54.can:542
+return tostring(t[1]) -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Number"] = function(t) -- ./compiler/lua54.can:546
+return tostring(t[1]) -- ./compiler/lua54.can:547
+end, -- ./compiler/lua54.can:547
+["String"] = function(t) -- ./compiler/lua54.can:550
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
+end, -- ./compiler/lua54.can:551
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
+local r = "(" -- ./compiler/lua54.can:555
+local decl = {} -- ./compiler/lua54.can:556
+if t[1][1] then -- ./compiler/lua54.can:557
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
+r = r .. (id) -- ./compiler/lua54.can:563
+else -- ./compiler/lua54.can:563
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
+end -- ./compiler/lua54.can:565
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
+r = r .. (", " .. id) -- ./compiler/lua54.can:573
+else -- ./compiler/lua54.can:573
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
+r = r .. (d .. newline()) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
+end -- ./compiler/lua54.can:584
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
+if hasPush then -- ./compiler/lua54.can:587
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
+else -- ./compiler/lua54.can:588
+push("push", false) -- ./compiler/lua54.can:590
+end -- ./compiler/lua54.can:590
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
+end -- ./compiler/lua54.can:594
+pop("push") -- ./compiler/lua54.can:596
+return r .. unindent() .. "end" -- ./compiler/lua54.can:597
+end, -- ./compiler/lua54.can:597
+["Function"] = function(t) -- ./compiler/lua54.can:599
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
+end, -- ./compiler/lua54.can:600
+["Pair"] = function(t) -- ./compiler/lua54.can:603
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
+end, -- ./compiler/lua54.can:604
+["Table"] = function(t) -- ./compiler/lua54.can:606
+if # t == 0 then -- ./compiler/lua54.can:607
+return "{}" -- ./compiler/lua54.can:608
+elseif # t == 1 then -- ./compiler/lua54.can:609
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
+else -- ./compiler/lua54.can:610
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
+end -- ./compiler/lua54.can:612
+end, -- ./compiler/lua54.can:612
+["TableCompr"] = function(t) -- ./compiler/lua54.can:616
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
+end, -- ./compiler/lua54.can:617
+["Op"] = function(t) -- ./compiler/lua54.can:620
+local r -- ./compiler/lua54.can:621
+if # t == 2 then -- ./compiler/lua54.can:622
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+else -- ./compiler/lua54.can:624
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+end -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
+else -- ./compiler/lua54.can:630
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+return r -- ./compiler/lua54.can:635
+end, -- ./compiler/lua54.can:635
+["Paren"] = function(t) -- ./compiler/lua54.can:638
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
+end, -- ./compiler/lua54.can:639
+["MethodStub"] = function(t) -- ./compiler/lua54.can:642
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
+end, -- ./compiler/lua54.can:648
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
+end, -- ./compiler/lua54.can:658
+["LetExpr"] = function(t) -- ./compiler/lua54.can:665
+return lua(t[1][1]) -- ./compiler/lua54.can:666
+end, -- ./compiler/lua54.can:666
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
+local r = "(function()" .. indent() -- ./compiler/lua54.can:672
+if hasPush then -- ./compiler/lua54.can:673
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
+else -- ./compiler/lua54.can:674
+push("push", false) -- ./compiler/lua54.can:676
+end -- ./compiler/lua54.can:676
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
+if hasPush then -- ./compiler/lua54.can:679
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
+end -- ./compiler/lua54.can:680
+pop("push") -- ./compiler/lua54.can:682
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
+return r -- ./compiler/lua54.can:684
+end, -- ./compiler/lua54.can:684
+["DoExpr"] = function(t) -- ./compiler/lua54.can:687
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
+end -- ./compiler/lua54.can:689
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
+end, -- ./compiler/lua54.can:691
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
+end, -- ./compiler/lua54.can:695
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
+end, -- ./compiler/lua54.can:699
+["IfExpr"] = function(t) -- ./compiler/lua54.can:702
+for i = 2, # t do -- ./compiler/lua54.can:703
+local block = t[i] -- ./compiler/lua54.can:704
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:709
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+end, -- ./compiler/lua54.can:713
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
+end, -- ./compiler/lua54.can:717
+["Call"] = function(t) -- ./compiler/lua54.can:723
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
+else -- ./compiler/lua54.can:728
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
+end -- ./compiler/lua54.can:730
+else -- ./compiler/lua54.can:730
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
+end -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["SafeCall"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
+else -- ./compiler/lua54.can:739
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
+end -- ./compiler/lua54.can:741
+end, -- ./compiler/lua54.can:741
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
+if start == nil then start = 1 end -- ./compiler/lua54.can:746
+local r -- ./compiler/lua54.can:747
+if t[start] then -- ./compiler/lua54.can:748
+r = lua(t[start]) -- ./compiler/lua54.can:749
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
+end -- ./compiler/lua54.can:751
+else -- ./compiler/lua54.can:751
+r = "" -- ./compiler/lua54.can:754
+end -- ./compiler/lua54.can:754
+return r -- ./compiler/lua54.can:756
+end, -- ./compiler/lua54.can:756
+["Id"] = function(t) -- ./compiler/lua54.can:759
+return t[1] -- ./compiler/lua54.can:760
+end, -- ./compiler/lua54.can:760
+["AttributeId"] = function(t) -- ./compiler/lua54.can:763
+if t[2] then -- ./compiler/lua54.can:764
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
+else -- ./compiler/lua54.can:765
+return t[1] -- ./compiler/lua54.can:767
+end -- ./compiler/lua54.can:767
+end, -- ./compiler/lua54.can:767
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
+if t["id"] then -- ./compiler/lua54.can:772
+return t["id"] -- ./compiler/lua54.can:773
+else -- ./compiler/lua54.can:773
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
+for j = 1, # t, 1 do -- ./compiler/lua54.can:777
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
+end -- ./compiler/lua54.can:778
+table["insert"](d, vars) -- ./compiler/lua54.can:780
+t["id"] = vars["id"] -- ./compiler/lua54.can:781
+return vars["id"] -- ./compiler/lua54.can:782
+end -- ./compiler/lua54.can:782
+end, -- ./compiler/lua54.can:782
+["Index"] = function(t) -- ./compiler/lua54.can:786
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
+else -- ./compiler/lua54.can:788
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+end -- ./compiler/lua54.can:790
+end, -- ./compiler/lua54.can:790
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
+local l = {} -- ./compiler/lua54.can:796
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
+table["insert"](l, 1, t) -- ./compiler/lua54.can:798
+t = t[1] -- ./compiler/lua54.can:799
+end -- ./compiler/lua54.can:799
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
+for _, e in ipairs(l) do -- ./compiler/lua54.can:802
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
+else -- ./compiler/lua54.can:805
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
+return r -- ./compiler/lua54.can:811
+else -- ./compiler/lua54.can:811
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
+end -- ./compiler/lua54.can:813
+end, -- ./compiler/lua54.can:813
+["_opid"] = { -- ./compiler/lua54.can:818
+["add"] = "+", -- ./compiler/lua54.can:819
+["sub"] = "-", -- ./compiler/lua54.can:819
+["mul"] = "*", -- ./compiler/lua54.can:819
+["div"] = "/", -- ./compiler/lua54.can:819
+["idiv"] = "//", -- ./compiler/lua54.can:820
+["mod"] = "%", -- ./compiler/lua54.can:820
+["pow"] = "^", -- ./compiler/lua54.can:820
+["concat"] = "..", -- ./compiler/lua54.can:820
+["band"] = "&", -- ./compiler/lua54.can:821
+["bor"] = "|", -- ./compiler/lua54.can:821
+["bxor"] = "~", -- ./compiler/lua54.can:821
+["shl"] = "<<", -- ./compiler/lua54.can:821
+["shr"] = ">>", -- ./compiler/lua54.can:821
+["eq"] = "==", -- ./compiler/lua54.can:822
+["ne"] = "~=", -- ./compiler/lua54.can:822
+["lt"] = "<", -- ./compiler/lua54.can:822
+["gt"] = ">", -- ./compiler/lua54.can:822
+["le"] = "<=", -- ./compiler/lua54.can:822
+["ge"] = ">=", -- ./compiler/lua54.can:822
+["and"] = "and", -- ./compiler/lua54.can:823
+["or"] = "or", -- ./compiler/lua54.can:823
+["unm"] = "-", -- ./compiler/lua54.can:823
+["len"] = "#", -- ./compiler/lua54.can:823
+["bnot"] = "~", -- ./compiler/lua54.can:823
+["not"] = "not" -- ./compiler/lua54.can:823
+} -- ./compiler/lua54.can:823
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
+end }) -- ./compiler/lua54.can:827
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
+return requireStr .. code -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+return lua54 -- ./compiler/lua53.can:10
+end -- ./compiler/lua53.can:10
+local lua53 = _() or lua53 -- ./compiler/lua53.can:14
 return lua53 -- ./compiler/luajit.can:44
 end -- ./compiler/luajit.can:44
 local luajit = _() or luajit -- ./compiler/luajit.can:48
@@ -1879,914 +2733,872 @@ package["loaded"]["compiler.luajit"] = luajit or true -- ./compiler/luajit.can:4
 local function _() -- ./compiler/luajit.can:52
 local function _() -- ./compiler/luajit.can:54
 local function _() -- ./compiler/luajit.can:56
-local targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-return function(code, ast, options) -- ./compiler/lua53.can:3
-local lastInputPos = 1 -- ./compiler/lua53.can:5
-local prevLinePos = 1 -- ./compiler/lua53.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua53.can:7
-local lastLine = 1 -- ./compiler/lua53.can:8
-local indentLevel = 0 -- ./compiler/lua53.can:11
-local function newline() -- ./compiler/lua53.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua53.can:14
-if options["mapLines"] then -- ./compiler/lua53.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua53.can:16
+local function _() -- ./compiler/luajit.can:58
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
+return function(code, ast, options) -- ./compiler/lua54.can:3
+local lastInputPos = 1 -- ./compiler/lua54.can:5
+local prevLinePos = 1 -- ./compiler/lua54.can:6
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
+local lastLine = 1 -- ./compiler/lua54.can:8
+local indentLevel = 0 -- ./compiler/lua54.can:11
+local function newline() -- ./compiler/lua54.can:13
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
+if options["mapLines"] then -- ./compiler/lua54.can:15
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua53.can:17
-if source and line then -- ./compiler/lua53.can:19
-lastSource = source -- ./compiler/lua53.can:20
-lastLine = tonumber(line) -- ./compiler/lua53.can:21
-else -- ./compiler/lua53.can:21
+") -- ./compiler/lua54.can:17
+if source and line then -- ./compiler/lua54.can:19
+lastSource = source -- ./compiler/lua54.can:20
+lastLine = tonumber(line) -- ./compiler/lua54.can:21
+else -- ./compiler/lua54.can:21
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua53.can:23
-lastLine = lastLine + (1) -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-end -- ./compiler/lua53.can:24
-prevLinePos = lastInputPos -- ./compiler/lua53.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua53.can:30
-end -- ./compiler/lua53.can:30
-return r -- ./compiler/lua53.can:32
-end -- ./compiler/lua53.can:32
-local function indent() -- ./compiler/lua53.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:36
-return newline() -- ./compiler/lua53.can:37
-end -- ./compiler/lua53.can:37
-local function unindent() -- ./compiler/lua53.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:41
-return newline() -- ./compiler/lua53.can:42
-end -- ./compiler/lua53.can:42
-local states = { -- ./compiler/lua53.can:47
-["push"] = {}, -- ./compiler/lua53.can:48
-["destructuring"] = {}, -- ./compiler/lua53.can:49
-["scope"] = {} -- ./compiler/lua53.can:50
-} -- ./compiler/lua53.can:50
-local function push(name, state) -- ./compiler/lua53.can:53
-table["insert"](states[name], state) -- ./compiler/lua53.can:54
-return "" -- ./compiler/lua53.can:55
-end -- ./compiler/lua53.can:55
-local function pop(name) -- ./compiler/lua53.can:58
-table["remove"](states[name]) -- ./compiler/lua53.can:59
-return "" -- ./compiler/lua53.can:60
-end -- ./compiler/lua53.can:60
-local function set(name, state) -- ./compiler/lua53.can:63
-states[name][# states[name]] = state -- ./compiler/lua53.can:64
-return "" -- ./compiler/lua53.can:65
-end -- ./compiler/lua53.can:65
-local function peek(name) -- ./compiler/lua53.can:68
-return states[name][# states[name]] -- ./compiler/lua53.can:69
-end -- ./compiler/lua53.can:69
-local function var(name) -- ./compiler/lua53.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua53.can:75
-end -- ./compiler/lua53.can:75
-local function tmp() -- ./compiler/lua53.can:79
-local scope = peek("scope") -- ./compiler/lua53.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua53.can:81
-table["insert"](scope, var) -- ./compiler/lua53.can:82
-return var -- ./compiler/lua53.can:83
-end -- ./compiler/lua53.can:83
-local required = {} -- ./compiler/lua53.can:87
-local requireStr = "" -- ./compiler/lua53.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua53.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua53.can:91
-if not required[req] then -- ./compiler/lua53.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua53.can:93
-required[req] = true -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-end -- ./compiler/lua53.can:94
-local loop = { -- ./compiler/lua53.can:99
-"While", -- ./compiler/lua53.can:99
-"Repeat", -- ./compiler/lua53.can:99
-"Fornum", -- ./compiler/lua53.can:99
-"Forin", -- ./compiler/lua53.can:99
-"WhileExpr", -- ./compiler/lua53.can:99
-"RepeatExpr", -- ./compiler/lua53.can:99
-"FornumExpr", -- ./compiler/lua53.can:99
-"ForinExpr" -- ./compiler/lua53.can:99
-} -- ./compiler/lua53.can:99
-local func = { -- ./compiler/lua53.can:100
-"Function", -- ./compiler/lua53.can:100
-"TableCompr", -- ./compiler/lua53.can:100
-"DoExpr", -- ./compiler/lua53.can:100
-"WhileExpr", -- ./compiler/lua53.can:100
-"RepeatExpr", -- ./compiler/lua53.can:100
-"IfExpr", -- ./compiler/lua53.can:100
-"FornumExpr", -- ./compiler/lua53.can:100
-"ForinExpr" -- ./compiler/lua53.can:100
-} -- ./compiler/lua53.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua53.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:104
-local tagsCheck = {} -- ./compiler/lua53.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:106
-tagsCheck[tag] = true -- ./compiler/lua53.can:107
-end -- ./compiler/lua53.can:107
-local nofollowCheck = {} -- ./compiler/lua53.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:110
-nofollowCheck[tag] = true -- ./compiler/lua53.can:111
-end -- ./compiler/lua53.can:111
-for _, node in ipairs(list) do -- ./compiler/lua53.can:113
-if type(node) == "table" then -- ./compiler/lua53.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:115
-return node -- ./compiler/lua53.can:116
-end -- ./compiler/lua53.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua53.can:119
-if r then -- ./compiler/lua53.can:120
-return r -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-end -- ./compiler/lua53.can:120
-return nil -- ./compiler/lua53.can:124
-end -- ./compiler/lua53.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua53.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua53.can:129
-local tagsCheck = {} -- ./compiler/lua53.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:131
-tagsCheck[tag] = true -- ./compiler/lua53.can:132
-end -- ./compiler/lua53.can:132
-local nofollowCheck = {} -- ./compiler/lua53.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua53.can:135
-nofollowCheck[tag] = true -- ./compiler/lua53.can:136
-end -- ./compiler/lua53.can:136
-local found = {} -- ./compiler/lua53.can:138
-for _, node in ipairs(list) do -- ./compiler/lua53.can:139
-if type(node) == "table" then -- ./compiler/lua53.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua53.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua53.can:142
-table["insert"](found, n) -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-end -- ./compiler/lua53.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua53.can:146
-table["insert"](found, node) -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-end -- ./compiler/lua53.can:147
-return found -- ./compiler/lua53.can:151
-end -- ./compiler/lua53.can:151
-local function all(list, tags) -- ./compiler/lua53.can:155
-for _, node in ipairs(list) do -- ./compiler/lua53.can:156
-local ok = false -- ./compiler/lua53.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua53.can:158
-if node["tag"] == tag then -- ./compiler/lua53.can:159
-ok = true -- ./compiler/lua53.can:160
-break -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-end -- ./compiler/lua53.can:161
-if not ok then -- ./compiler/lua53.can:164
-return false -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-end -- ./compiler/lua53.can:165
-return true -- ./compiler/lua53.can:168
-end -- ./compiler/lua53.can:168
-local tags -- ./compiler/lua53.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua53.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua53.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua53.can:176
-end -- ./compiler/lua53.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua53.can:178
-end -- ./compiler/lua53.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua53.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua53.can:183
-end -- ./compiler/lua53.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua53.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua53.can:186
-end -- ./compiler/lua53.can:186
-local CONTINUE_START = function() -- ./compiler/lua53.can:188
-return "do" .. indent() -- ./compiler/lua53.can:189
-end -- ./compiler/lua53.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua53.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua53.can:192
-end -- ./compiler/lua53.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua53.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua53.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua53.can:194
-local vars = {} -- ./compiler/lua53.can:195
-local values = {} -- ./compiler/lua53.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua53.can:197
-for _, v in ipairs(list) do -- ./compiler/lua53.can:198
-local var, val -- ./compiler/lua53.can:199
-if v["tag"] == "Id" then -- ./compiler/lua53.can:200
-var = v -- ./compiler/lua53.can:201
-val = { -- ./compiler/lua53.can:202
-["tag"] = "Index", -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "Id", -- ./compiler/lua53.can:202
-list["id"] -- ./compiler/lua53.can:202
-}, -- ./compiler/lua53.can:202
-{ -- ./compiler/lua53.can:202
-["tag"] = "String", -- ./compiler/lua53.can:202
-v[1] -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-} -- ./compiler/lua53.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua53.can:203
-var = v[2] -- ./compiler/lua53.can:204
-val = { -- ./compiler/lua53.can:205
-["tag"] = "Index", -- ./compiler/lua53.can:205
-{ -- ./compiler/lua53.can:205
-["tag"] = "Id", -- ./compiler/lua53.can:205
-list["id"] -- ./compiler/lua53.can:205
-}, -- ./compiler/lua53.can:205
-v[1] -- ./compiler/lua53.can:205
-} -- ./compiler/lua53.can:205
-else -- ./compiler/lua53.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua53.can:207
-end -- ./compiler/lua53.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua53.can:209
-val = { -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["rightOp"], -- ./compiler/lua53.can:210
-var, -- ./compiler/lua53.can:210
-{ -- ./compiler/lua53.can:210
-["tag"] = "Op", -- ./compiler/lua53.can:210
-destructured["leftOp"], -- ./compiler/lua53.can:210
-val, -- ./compiler/lua53.can:210
-var -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-} -- ./compiler/lua53.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua53.can:211
-val = { -- ./compiler/lua53.can:212
-["tag"] = "Op", -- ./compiler/lua53.can:212
-destructured["rightOp"], -- ./compiler/lua53.can:212
-var, -- ./compiler/lua53.can:212
-val -- ./compiler/lua53.can:212
-} -- ./compiler/lua53.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua53.can:213
-val = { -- ./compiler/lua53.can:214
-["tag"] = "Op", -- ./compiler/lua53.can:214
-destructured["leftOp"], -- ./compiler/lua53.can:214
-val, -- ./compiler/lua53.can:214
-var -- ./compiler/lua53.can:214
-} -- ./compiler/lua53.can:214
-end -- ./compiler/lua53.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua53.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-end -- ./compiler/lua53.can:217
-if # vars > 0 then -- ./compiler/lua53.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua53.can:221
-if newlineAfter then -- ./compiler/lua53.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua53.can:223
-else -- ./compiler/lua53.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua53.can:225
-end -- ./compiler/lua53.can:225
-else -- ./compiler/lua53.can:225
-return "" -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-end -- ./compiler/lua53.can:228
-tags = setmetatable({ -- ./compiler/lua53.can:233
-["Block"] = function(t) -- ./compiler/lua53.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua53.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua53.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua53.can:238
-hasPush = false -- ./compiler/lua53.can:239
-end -- ./compiler/lua53.can:239
-local r = push("scope", {}) -- ./compiler/lua53.can:241
-if hasPush then -- ./compiler/lua53.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:243
-end -- ./compiler/lua53.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua53.can:246
-end -- ./compiler/lua53.can:246
-if t[# t] then -- ./compiler/lua53.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua53.can:249
-end -- ./compiler/lua53.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua53.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua53.can:252
-end -- ./compiler/lua53.can:252
-return r .. pop("scope") -- ./compiler/lua53.can:254
-end, -- ./compiler/lua53.can:254
-["Do"] = function(t) -- ./compiler/lua53.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua53.can:261
-end, -- ./compiler/lua53.can:261
-["Set"] = function(t) -- ./compiler/lua53.can:264
-local expr = t[# t] -- ./compiler/lua53.can:266
-local vars, values = {}, {} -- ./compiler/lua53.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua53.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua53.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua53.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua53.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua53.can:272
-else -- ./compiler/lua53.can:272
-table["insert"](vars, n) -- ./compiler/lua53.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-end -- ./compiler/lua53.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua53.can:279
-local r = "" -- ./compiler/lua53.can:280
-if # vars > 0 then -- ./compiler/lua53.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua53.can:282
-end -- ./compiler/lua53.can:282
-if # destructuringVars > 0 then -- ./compiler/lua53.can:284
-local destructured = {} -- ./compiler/lua53.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:287
-end -- ./compiler/lua53.can:287
-return r -- ./compiler/lua53.can:289
-elseif # t == 4 then -- ./compiler/lua53.can:290
-if t[3] == "=" then -- ./compiler/lua53.can:291
-local r = "" -- ./compiler/lua53.can:292
-if # vars > 0 then -- ./compiler/lua53.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:294
-t[2], -- ./compiler/lua53.can:294
-vars[1], -- ./compiler/lua53.can:294
-{ -- ./compiler/lua53.can:294
-["tag"] = "Paren", -- ./compiler/lua53.can:294
-values[1] -- ./compiler/lua53.can:294
-} -- ./compiler/lua53.can:294
-}, "Op")) -- ./compiler/lua53.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua53.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:296
-t[2], -- ./compiler/lua53.can:296
-vars[i], -- ./compiler/lua53.can:296
-{ -- ./compiler/lua53.can:296
-["tag"] = "Paren", -- ./compiler/lua53.can:296
-values[i] -- ./compiler/lua53.can:296
-} -- ./compiler/lua53.can:296
-}, "Op")) -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-end -- ./compiler/lua53.can:296
-if # destructuringVars > 0 then -- ./compiler/lua53.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua53.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:302
-end -- ./compiler/lua53.can:302
-return r -- ./compiler/lua53.can:304
-else -- ./compiler/lua53.can:304
-local r = "" -- ./compiler/lua53.can:306
-if # vars > 0 then -- ./compiler/lua53.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:308
-t[3], -- ./compiler/lua53.can:308
-{ -- ./compiler/lua53.can:308
-["tag"] = "Paren", -- ./compiler/lua53.can:308
-values[1] -- ./compiler/lua53.can:308
-}, -- ./compiler/lua53.can:308
-vars[1] -- ./compiler/lua53.can:308
-}, "Op")) -- ./compiler/lua53.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua53.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:310
-t[3], -- ./compiler/lua53.can:310
-{ -- ./compiler/lua53.can:310
-["tag"] = "Paren", -- ./compiler/lua53.can:310
-values[i] -- ./compiler/lua53.can:310
-}, -- ./compiler/lua53.can:310
-vars[i] -- ./compiler/lua53.can:310
-}, "Op")) -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-end -- ./compiler/lua53.can:310
-if # destructuringVars > 0 then -- ./compiler/lua53.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua53.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:316
-end -- ./compiler/lua53.can:316
-return r -- ./compiler/lua53.can:318
-end -- ./compiler/lua53.can:318
-else -- ./compiler/lua53.can:318
-local r = "" -- ./compiler/lua53.can:321
-if # vars > 0 then -- ./compiler/lua53.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua53.can:323
-t[2], -- ./compiler/lua53.can:323
-vars[1], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Op", -- ./compiler/lua53.can:323
-t[4], -- ./compiler/lua53.can:323
-{ -- ./compiler/lua53.can:323
-["tag"] = "Paren", -- ./compiler/lua53.can:323
-values[1] -- ./compiler/lua53.can:323
-}, -- ./compiler/lua53.can:323
-vars[1] -- ./compiler/lua53.can:323
-} -- ./compiler/lua53.can:323
-}, "Op")) -- ./compiler/lua53.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua53.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua53.can:325
-t[2], -- ./compiler/lua53.can:325
-vars[i], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Op", -- ./compiler/lua53.can:325
-t[4], -- ./compiler/lua53.can:325
-{ -- ./compiler/lua53.can:325
-["tag"] = "Paren", -- ./compiler/lua53.can:325
-values[i] -- ./compiler/lua53.can:325
-}, -- ./compiler/lua53.can:325
-vars[i] -- ./compiler/lua53.can:325
-} -- ./compiler/lua53.can:325
-}, "Op")) -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-end -- ./compiler/lua53.can:325
-if # destructuringVars > 0 then -- ./compiler/lua53.can:328
-local destructured = { -- ./compiler/lua53.can:329
-["rightOp"] = t[2], -- ./compiler/lua53.can:329
-["leftOp"] = t[4] -- ./compiler/lua53.can:329
-} -- ./compiler/lua53.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua53.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua53.can:331
-end -- ./compiler/lua53.can:331
-return r -- ./compiler/lua53.can:333
-end -- ./compiler/lua53.can:333
-end, -- ./compiler/lua53.can:333
-["While"] = function(t) -- ./compiler/lua53.can:337
-local r = "" -- ./compiler/lua53.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua53.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:340
-if # lets > 0 then -- ./compiler/lua53.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-end -- ./compiler/lua53.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua53.can:347
-if # lets > 0 then -- ./compiler/lua53.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:349
-end -- ./compiler/lua53.can:349
-if hasContinue then -- ./compiler/lua53.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:352
-end -- ./compiler/lua53.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:354
-if hasContinue then -- ./compiler/lua53.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:356
-end -- ./compiler/lua53.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:358
-if # lets > 0 then -- ./compiler/lua53.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua53.can:361
-end -- ./compiler/lua53.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua53.can:363
-end -- ./compiler/lua53.can:363
-return r -- ./compiler/lua53.can:365
-end, -- ./compiler/lua53.can:365
-["Repeat"] = function(t) -- ./compiler/lua53.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua53.can:369
-local r = "repeat" .. indent() -- ./compiler/lua53.can:370
-if hasContinue then -- ./compiler/lua53.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:372
-end -- ./compiler/lua53.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua53.can:374
-if hasContinue then -- ./compiler/lua53.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:376
-end -- ./compiler/lua53.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua53.can:378
-return r -- ./compiler/lua53.can:379
-end, -- ./compiler/lua53.can:379
-["If"] = function(t) -- ./compiler/lua53.can:382
-local r = "" -- ./compiler/lua53.can:383
-local toClose = 0 -- ./compiler/lua53.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua53.can:385
-if # lets > 0 then -- ./compiler/lua53.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua53.can:387
-toClose = toClose + (1) -- ./compiler/lua53.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-end -- ./compiler/lua53.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua53.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua53.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua53.can:395
-if # lets > 0 then -- ./compiler/lua53.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua53.can:397
-toClose = toClose + (1) -- ./compiler/lua53.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua53.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua53.can:400
-end -- ./compiler/lua53.can:400
-else -- ./compiler/lua53.can:400
-r = r .. ("else") -- ./compiler/lua53.can:403
-end -- ./compiler/lua53.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua53.can:405
-end -- ./compiler/lua53.can:405
-if # t % 2 == 1 then -- ./compiler/lua53.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua53.can:408
-end -- ./compiler/lua53.can:408
-r = r .. ("end") -- ./compiler/lua53.can:410
-for i = 1, toClose do -- ./compiler/lua53.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua53.can:412
-end -- ./compiler/lua53.can:412
-return r -- ./compiler/lua53.can:414
-end, -- ./compiler/lua53.can:414
-["Fornum"] = function(t) -- ./compiler/lua53.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua53.can:418
-if # t == 5 then -- ./compiler/lua53.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua53.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua53.can:421
-if hasContinue then -- ./compiler/lua53.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:423
-end -- ./compiler/lua53.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua53.can:425
-if hasContinue then -- ./compiler/lua53.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:427
-end -- ./compiler/lua53.can:427
-return r .. unindent() .. "end" -- ./compiler/lua53.can:429
-else -- ./compiler/lua53.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua53.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua53.can:432
-if hasContinue then -- ./compiler/lua53.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:434
-end -- ./compiler/lua53.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua53.can:436
-if hasContinue then -- ./compiler/lua53.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:438
-end -- ./compiler/lua53.can:438
-return r .. unindent() .. "end" -- ./compiler/lua53.can:440
-end -- ./compiler/lua53.can:440
-end, -- ./compiler/lua53.can:440
-["Forin"] = function(t) -- ./compiler/lua53.can:444
-local destructured = {} -- ./compiler/lua53.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua53.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua53.can:447
-if hasContinue then -- ./compiler/lua53.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua53.can:449
-end -- ./compiler/lua53.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua53.can:451
-if hasContinue then -- ./compiler/lua53.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua53.can:453
-end -- ./compiler/lua53.can:453
-return r .. unindent() .. "end" -- ./compiler/lua53.can:455
-end, -- ./compiler/lua53.can:455
-["Local"] = function(t) -- ./compiler/lua53.can:458
-local destructured = {} -- ./compiler/lua53.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:460
-if t[2][1] then -- ./compiler/lua53.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:462
-end -- ./compiler/lua53.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:464
-end, -- ./compiler/lua53.can:464
-["Let"] = function(t) -- ./compiler/lua53.can:467
-local destructured = {} -- ./compiler/lua53.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua53.can:469
-local r = "local " .. nameList -- ./compiler/lua53.can:470
-if t[2][1] then -- ./compiler/lua53.can:471
-if all(t[2], { -- ./compiler/lua53.can:472
-"Nil", -- ./compiler/lua53.can:472
-"Dots", -- ./compiler/lua53.can:472
-"Boolean", -- ./compiler/lua53.can:472
-"Number", -- ./compiler/lua53.can:472
-"String" -- ./compiler/lua53.can:472
-}) then -- ./compiler/lua53.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:473
-else -- ./compiler/lua53.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-end -- ./compiler/lua53.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua53.can:478
-end, -- ./compiler/lua53.can:478
-["Localrec"] = function(t) -- ./compiler/lua53.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua53.can:482
-end, -- ./compiler/lua53.can:482
-["Goto"] = function(t) -- ./compiler/lua53.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua53.can:486
-end, -- ./compiler/lua53.can:486
-["Label"] = function(t) -- ./compiler/lua53.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua53.can:490
-end, -- ./compiler/lua53.can:490
-["Return"] = function(t) -- ./compiler/lua53.can:493
-local push = peek("push") -- ./compiler/lua53.can:494
-if push then -- ./compiler/lua53.can:495
-local r = "" -- ./compiler/lua53.can:496
-for _, val in ipairs(t) do -- ./compiler/lua53.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua53.can:498
-end -- ./compiler/lua53.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua53.can:500
-else -- ./compiler/lua53.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua53.can:502
-end -- ./compiler/lua53.can:502
-end, -- ./compiler/lua53.can:502
-["Push"] = function(t) -- ./compiler/lua53.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua53.can:507
-r = "" -- ./compiler/lua53.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua53.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua53.can:510
-end -- ./compiler/lua53.can:510
-if t[# t] then -- ./compiler/lua53.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua53.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua53.can:514
-else -- ./compiler/lua53.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-end -- ./compiler/lua53.can:516
-return r -- ./compiler/lua53.can:519
-end, -- ./compiler/lua53.can:519
-["Break"] = function() -- ./compiler/lua53.can:522
-return "break" -- ./compiler/lua53.can:523
-end, -- ./compiler/lua53.can:523
-["Continue"] = function() -- ./compiler/lua53.can:526
-return "goto " .. var("continue") -- ./compiler/lua53.can:527
-end, -- ./compiler/lua53.can:527
-["Nil"] = function() -- ./compiler/lua53.can:534
-return "nil" -- ./compiler/lua53.can:535
-end, -- ./compiler/lua53.can:535
-["Dots"] = function() -- ./compiler/lua53.can:538
-return "..." -- ./compiler/lua53.can:539
-end, -- ./compiler/lua53.can:539
-["Boolean"] = function(t) -- ./compiler/lua53.can:542
-return tostring(t[1]) -- ./compiler/lua53.can:543
-end, -- ./compiler/lua53.can:543
-["Number"] = function(t) -- ./compiler/lua53.can:546
-return tostring(t[1]) -- ./compiler/lua53.can:547
-end, -- ./compiler/lua53.can:547
-["String"] = function(t) -- ./compiler/lua53.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua53.can:551
-end, -- ./compiler/lua53.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua53.can:554
-local r = "(" -- ./compiler/lua53.can:555
-local decl = {} -- ./compiler/lua53.can:556
-if t[1][1] then -- ./compiler/lua53.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua53.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua53.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua53.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:562
-r = r .. (id) -- ./compiler/lua53.can:563
-else -- ./compiler/lua53.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua53.can:565
-end -- ./compiler/lua53.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua53.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua53.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua53.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua53.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua53.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua53.can:572
-r = r .. (", " .. id) -- ./compiler/lua53.can:573
-else -- ./compiler/lua53.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-end -- ./compiler/lua53.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua53.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua53.can:580
-r = r .. (d .. newline()) -- ./compiler/lua53.can:581
-end -- ./compiler/lua53.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua53.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua53.can:584
-end -- ./compiler/lua53.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua53.can:586
-if hasPush then -- ./compiler/lua53.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:588
-else -- ./compiler/lua53.can:588
-push("push", false) -- ./compiler/lua53.can:590
-end -- ./compiler/lua53.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua53.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua53.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:594
-end -- ./compiler/lua53.can:594
-pop("push") -- ./compiler/lua53.can:596
-return r .. unindent() .. "end" -- ./compiler/lua53.can:597
-end, -- ./compiler/lua53.can:597
-["Function"] = function(t) -- ./compiler/lua53.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua53.can:600
-end, -- ./compiler/lua53.can:600
-["Pair"] = function(t) -- ./compiler/lua53.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua53.can:604
-end, -- ./compiler/lua53.can:604
-["Table"] = function(t) -- ./compiler/lua53.can:606
-if # t == 0 then -- ./compiler/lua53.can:607
-return "{}" -- ./compiler/lua53.can:608
-elseif # t == 1 then -- ./compiler/lua53.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua53.can:610
-else -- ./compiler/lua53.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua53.can:612
-end -- ./compiler/lua53.can:612
-end, -- ./compiler/lua53.can:612
-["TableCompr"] = function(t) -- ./compiler/lua53.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua53.can:617
-end, -- ./compiler/lua53.can:617
-["Op"] = function(t) -- ./compiler/lua53.can:620
-local r -- ./compiler/lua53.can:621
-if # t == 2 then -- ./compiler/lua53.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua53.can:624
-else -- ./compiler/lua53.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua53.can:626
-end -- ./compiler/lua53.can:626
-else -- ./compiler/lua53.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua53.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua53.can:630
-else -- ./compiler/lua53.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-end -- ./compiler/lua53.can:632
-return r -- ./compiler/lua53.can:635
-end, -- ./compiler/lua53.can:635
-["Paren"] = function(t) -- ./compiler/lua53.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua53.can:639
-end, -- ./compiler/lua53.can:639
-["MethodStub"] = function(t) -- ./compiler/lua53.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:648
-end, -- ./compiler/lua53.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua53.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua53.can:658
-end, -- ./compiler/lua53.can:658
-["LetExpr"] = function(t) -- ./compiler/lua53.can:665
-return lua(t[1][1]) -- ./compiler/lua53.can:666
-end, -- ./compiler/lua53.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua53.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua53.can:671
-local r = "(function()" .. indent() -- ./compiler/lua53.can:672
-if hasPush then -- ./compiler/lua53.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua53.can:674
-else -- ./compiler/lua53.can:674
-push("push", false) -- ./compiler/lua53.can:676
-end -- ./compiler/lua53.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua53.can:678
-if hasPush then -- ./compiler/lua53.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua53.can:680
-end -- ./compiler/lua53.can:680
-pop("push") -- ./compiler/lua53.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua53.can:683
-return r -- ./compiler/lua53.can:684
-end, -- ./compiler/lua53.can:684
-["DoExpr"] = function(t) -- ./compiler/lua53.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua53.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua53.can:689
-end -- ./compiler/lua53.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua53.can:691
-end, -- ./compiler/lua53.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua53.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua53.can:695
-end, -- ./compiler/lua53.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua53.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua53.can:699
-end, -- ./compiler/lua53.can:699
-["IfExpr"] = function(t) -- ./compiler/lua53.can:702
-for i = 2, # t do -- ./compiler/lua53.can:703
-local block = t[i] -- ./compiler/lua53.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua53.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-end -- ./compiler/lua53.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua53.can:709
-end, -- ./compiler/lua53.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua53.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua53.can:713
-end, -- ./compiler/lua53.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua53.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua53.can:717
-end, -- ./compiler/lua53.can:717
-["Call"] = function(t) -- ./compiler/lua53.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua53.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua53.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:728
-else -- ./compiler/lua53.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:730
-end -- ./compiler/lua53.can:730
-else -- ./compiler/lua53.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua53.can:733
-end -- ./compiler/lua53.can:733
-end, -- ./compiler/lua53.can:733
-["SafeCall"] = function(t) -- ./compiler/lua53.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua53.can:739
-else -- ./compiler/lua53.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua53.can:741
-end -- ./compiler/lua53.can:741
-end, -- ./compiler/lua53.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua53.can:746
-if start == nil then start = 1 end -- ./compiler/lua53.can:746
-local r -- ./compiler/lua53.can:747
-if t[start] then -- ./compiler/lua53.can:748
-r = lua(t[start]) -- ./compiler/lua53.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua53.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua53.can:751
-end -- ./compiler/lua53.can:751
-else -- ./compiler/lua53.can:751
-r = "" -- ./compiler/lua53.can:754
-end -- ./compiler/lua53.can:754
-return r -- ./compiler/lua53.can:756
-end, -- ./compiler/lua53.can:756
-["Id"] = function(t) -- ./compiler/lua53.can:759
-return t[1] -- ./compiler/lua53.can:760
-end, -- ./compiler/lua53.can:760
-["DestructuringId"] = function(t) -- ./compiler/lua53.can:763
-if t["id"] then -- ./compiler/lua53.can:764
-return t["id"] -- ./compiler/lua53.can:765
-else -- ./compiler/lua53.can:765
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua53.can:767
-local vars = { ["id"] = tmp() } -- ./compiler/lua53.can:768
-for j = 1, # t, 1 do -- ./compiler/lua53.can:769
-table["insert"](vars, t[j]) -- ./compiler/lua53.can:770
-end -- ./compiler/lua53.can:770
-table["insert"](d, vars) -- ./compiler/lua53.can:772
-t["id"] = vars["id"] -- ./compiler/lua53.can:773
-return vars["id"] -- ./compiler/lua53.can:774
-end -- ./compiler/lua53.can:774
-end, -- ./compiler/lua53.can:774
-["Index"] = function(t) -- ./compiler/lua53.can:778
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua53.can:779
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:780
-else -- ./compiler/lua53.can:780
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua53.can:782
-end -- ./compiler/lua53.can:782
-end, -- ./compiler/lua53.can:782
-["SafeIndex"] = function(t) -- ./compiler/lua53.can:786
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua53.can:787
-local l = {} -- ./compiler/lua53.can:788
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua53.can:789
-table["insert"](l, 1, t) -- ./compiler/lua53.can:790
-t = t[1] -- ./compiler/lua53.can:791
-end -- ./compiler/lua53.can:791
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua53.can:793
-for _, e in ipairs(l) do -- ./compiler/lua53.can:794
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua53.can:795
-if e["tag"] == "SafeIndex" then -- ./compiler/lua53.can:796
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua53.can:797
-else -- ./compiler/lua53.can:797
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-end -- ./compiler/lua53.can:799
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua53.can:802
-return r -- ./compiler/lua53.can:803
-else -- ./compiler/lua53.can:803
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua53.can:805
-end -- ./compiler/lua53.can:805
-end, -- ./compiler/lua53.can:805
-["_opid"] = { -- ./compiler/lua53.can:810
-["add"] = "+", -- ./compiler/lua53.can:811
-["sub"] = "-", -- ./compiler/lua53.can:811
-["mul"] = "*", -- ./compiler/lua53.can:811
-["div"] = "/", -- ./compiler/lua53.can:811
-["idiv"] = "//", -- ./compiler/lua53.can:812
-["mod"] = "%", -- ./compiler/lua53.can:812
-["pow"] = "^", -- ./compiler/lua53.can:812
-["concat"] = "..", -- ./compiler/lua53.can:812
-["band"] = "&", -- ./compiler/lua53.can:813
-["bor"] = "|", -- ./compiler/lua53.can:813
-["bxor"] = "~", -- ./compiler/lua53.can:813
-["shl"] = "<<", -- ./compiler/lua53.can:813
-["shr"] = ">>", -- ./compiler/lua53.can:813
-["eq"] = "==", -- ./compiler/lua53.can:814
-["ne"] = "~=", -- ./compiler/lua53.can:814
-["lt"] = "<", -- ./compiler/lua53.can:814
-["gt"] = ">", -- ./compiler/lua53.can:814
-["le"] = "<=", -- ./compiler/lua53.can:814
-["ge"] = ">=", -- ./compiler/lua53.can:814
-["and"] = "and", -- ./compiler/lua53.can:815
-["or"] = "or", -- ./compiler/lua53.can:815
-["unm"] = "-", -- ./compiler/lua53.can:815
-["len"] = "#", -- ./compiler/lua53.can:815
-["bnot"] = "~", -- ./compiler/lua53.can:815
-["not"] = "not" -- ./compiler/lua53.can:815
-} -- ./compiler/lua53.can:815
-}, { ["__index"] = function(self, key) -- ./compiler/lua53.can:818
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua53.can:819
-end }) -- ./compiler/lua53.can:819
-targetName = "LuaJIT" -- ./compiler/luajit.can:1
-UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
-return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
-end -- ./compiler/luajit.can:4
-APPEND = function(t, toAppend) -- ./compiler/luajit.can:6
-return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/luajit.can:7
-end -- ./compiler/luajit.can:7
-tags["_opid"]["idiv"] = function(left, right) -- ./compiler/luajit.can:10
-return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/luajit.can:11
-end -- ./compiler/luajit.can:11
-tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:13
-addRequire("bit", "band", "band") -- ./compiler/luajit.can:14
-return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:15
-end -- ./compiler/luajit.can:15
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:17
-addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:18
-return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:19
-end -- ./compiler/luajit.can:19
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:21
-addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:22
-return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:23
-end -- ./compiler/luajit.can:23
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:25
-addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:26
-return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:27
-end -- ./compiler/luajit.can:27
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:29
-addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:30
-return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:31
-end -- ./compiler/luajit.can:31
-tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:33
-addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:34
-return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:35
-end -- ./compiler/luajit.can:35
-targetName = "Lua 5.1" -- ./compiler/lua51.can:1
-states["continue"] = {} -- ./compiler/lua51.can:3
-CONTINUE_START = function() -- ./compiler/lua51.can:5
-return "local " .. var("break") .. newline() .. "repeat" .. indent() .. push("continue", var("break")) -- ./compiler/lua51.can:6
-end -- ./compiler/lua51.can:6
-CONTINUE_STOP = function() -- ./compiler/lua51.can:8
-return pop("continue") .. unindent() .. "until true" .. newline() .. "if " .. var("break") .. " then break end" -- ./compiler/lua51.can:9
-end -- ./compiler/lua51.can:9
-tags["Continue"] = function() -- ./compiler/lua51.can:12
-return "break" -- ./compiler/lua51.can:13
-end -- ./compiler/lua51.can:13
-tags["Break"] = function() -- ./compiler/lua51.can:15
-local inContinue = peek("continue") -- ./compiler/lua51.can:16
-if inContinue then -- ./compiler/lua51.can:17
-return inContinue .. " = true" .. newline() .. "break" -- ./compiler/lua51.can:18
-else -- ./compiler/lua51.can:18
-return "break" -- ./compiler/lua51.can:20
-end -- ./compiler/lua51.can:20
-end -- ./compiler/lua51.can:20
-tags["Goto"] = nil -- ./compiler/lua51.can:25
-tags["Label"] = nil -- ./compiler/lua51.can:26
-local code = lua(ast) .. newline() -- ./compiler/lua53.can:825
-return requireStr .. code -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-end -- ./compiler/lua53.can:826
-local lua53 = _() or lua53 -- ./compiler/lua53.can:831
+") do -- ./compiler/lua54.can:23
+lastLine = lastLine + (1) -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+prevLinePos = lastInputPos -- ./compiler/lua54.can:28
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
+end -- ./compiler/lua54.can:30
+return r -- ./compiler/lua54.can:32
+end -- ./compiler/lua54.can:32
+local function indent() -- ./compiler/lua54.can:35
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
+return newline() -- ./compiler/lua54.can:37
+end -- ./compiler/lua54.can:37
+local function unindent() -- ./compiler/lua54.can:40
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
+return newline() -- ./compiler/lua54.can:42
+end -- ./compiler/lua54.can:42
+local states = { -- ./compiler/lua54.can:47
+["push"] = {}, -- ./compiler/lua54.can:48
+["destructuring"] = {}, -- ./compiler/lua54.can:49
+["scope"] = {} -- ./compiler/lua54.can:50
+} -- ./compiler/lua54.can:50
+local function push(name, state) -- ./compiler/lua54.can:53
+table["insert"](states[name], state) -- ./compiler/lua54.can:54
+return "" -- ./compiler/lua54.can:55
+end -- ./compiler/lua54.can:55
+local function pop(name) -- ./compiler/lua54.can:58
+table["remove"](states[name]) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function set(name, state) -- ./compiler/lua54.can:63
+states[name][# states[name]] = state -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function peek(name) -- ./compiler/lua54.can:68
+return states[name][# states[name]] -- ./compiler/lua54.can:69
+end -- ./compiler/lua54.can:69
+local function var(name) -- ./compiler/lua54.can:74
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
+end -- ./compiler/lua54.can:75
+local function tmp() -- ./compiler/lua54.can:79
+local scope = peek("scope") -- ./compiler/lua54.can:80
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
+table["insert"](scope, var) -- ./compiler/lua54.can:82
+return var -- ./compiler/lua54.can:83
+end -- ./compiler/lua54.can:83
+local required = {} -- ./compiler/lua54.can:87
+local requireStr = "" -- ./compiler/lua54.can:88
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
+if not required[req] then -- ./compiler/lua54.can:92
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
+required[req] = true -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+local loop = { -- ./compiler/lua54.can:99
+"While", -- ./compiler/lua54.can:99
+"Repeat", -- ./compiler/lua54.can:99
+"Fornum", -- ./compiler/lua54.can:99
+"Forin", -- ./compiler/lua54.can:99
+"WhileExpr", -- ./compiler/lua54.can:99
+"RepeatExpr", -- ./compiler/lua54.can:99
+"FornumExpr", -- ./compiler/lua54.can:99
+"ForinExpr" -- ./compiler/lua54.can:99
+} -- ./compiler/lua54.can:99
+local func = { -- ./compiler/lua54.can:100
+"Function", -- ./compiler/lua54.can:100
+"TableCompr", -- ./compiler/lua54.can:100
+"DoExpr", -- ./compiler/lua54.can:100
+"WhileExpr", -- ./compiler/lua54.can:100
+"RepeatExpr", -- ./compiler/lua54.can:100
+"IfExpr", -- ./compiler/lua54.can:100
+"FornumExpr", -- ./compiler/lua54.can:100
+"ForinExpr" -- ./compiler/lua54.can:100
+} -- ./compiler/lua54.can:100
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
+local tagsCheck = {} -- ./compiler/lua54.can:105
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
+tagsCheck[tag] = true -- ./compiler/lua54.can:107
+end -- ./compiler/lua54.can:107
+local nofollowCheck = {} -- ./compiler/lua54.can:109
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
+nofollowCheck[tag] = true -- ./compiler/lua54.can:111
+end -- ./compiler/lua54.can:111
+for _, node in ipairs(list) do -- ./compiler/lua54.can:113
+if type(node) == "table" then -- ./compiler/lua54.can:114
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
+return node -- ./compiler/lua54.can:116
+end -- ./compiler/lua54.can:116
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
+if r then -- ./compiler/lua54.can:120
+return r -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+return nil -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
+local tagsCheck = {} -- ./compiler/lua54.can:130
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
+tagsCheck[tag] = true -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local nofollowCheck = {} -- ./compiler/lua54.can:134
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
+nofollowCheck[tag] = true -- ./compiler/lua54.can:136
+end -- ./compiler/lua54.can:136
+local found = {} -- ./compiler/lua54.can:138
+for _, node in ipairs(list) do -- ./compiler/lua54.can:139
+if type(node) == "table" then -- ./compiler/lua54.can:140
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
+table["insert"](found, n) -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
+table["insert"](found, node) -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+return found -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+local function all(list, tags) -- ./compiler/lua54.can:155
+for _, node in ipairs(list) do -- ./compiler/lua54.can:156
+local ok = false -- ./compiler/lua54.can:157
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
+if node["tag"] == tag then -- ./compiler/lua54.can:159
+ok = true -- ./compiler/lua54.can:160
+break -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+if not ok then -- ./compiler/lua54.can:164
+return false -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+return true -- ./compiler/lua54.can:168
+end -- ./compiler/lua54.can:168
+local tags -- ./compiler/lua54.can:172
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
+end -- ./compiler/lua54.can:178
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
+end -- ./compiler/lua54.can:183
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local CONTINUE_START = function() -- ./compiler/lua54.can:188
+return "do" .. indent() -- ./compiler/lua54.can:189
+end -- ./compiler/lua54.can:189
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+end -- ./compiler/lua54.can:192
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
+local vars = {} -- ./compiler/lua54.can:195
+local values = {} -- ./compiler/lua54.can:196
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
+for _, v in ipairs(list) do -- ./compiler/lua54.can:198
+local var, val -- ./compiler/lua54.can:199
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
+var = v -- ./compiler/lua54.can:201
+val = { -- ./compiler/lua54.can:202
+["tag"] = "Index", -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "Id", -- ./compiler/lua54.can:202
+list["id"] -- ./compiler/lua54.can:202
+}, -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "String", -- ./compiler/lua54.can:202
+v[1] -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
+var = v[2] -- ./compiler/lua54.can:204
+val = { -- ./compiler/lua54.can:205
+["tag"] = "Index", -- ./compiler/lua54.can:205
+{ -- ./compiler/lua54.can:205
+["tag"] = "Id", -- ./compiler/lua54.can:205
+list["id"] -- ./compiler/lua54.can:205
+}, -- ./compiler/lua54.can:205
+v[1] -- ./compiler/lua54.can:205
+} -- ./compiler/lua54.can:205
+else -- ./compiler/lua54.can:205
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
+end -- ./compiler/lua54.can:207
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["rightOp"], -- ./compiler/lua54.can:210
+var, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["leftOp"], -- ./compiler/lua54.can:210
+val, -- ./compiler/lua54.can:210
+var -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
+val = { -- ./compiler/lua54.can:212
+["tag"] = "Op", -- ./compiler/lua54.can:212
+destructured["rightOp"], -- ./compiler/lua54.can:212
+var, -- ./compiler/lua54.can:212
+val -- ./compiler/lua54.can:212
+} -- ./compiler/lua54.can:212
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
+val = { -- ./compiler/lua54.can:214
+["tag"] = "Op", -- ./compiler/lua54.can:214
+destructured["leftOp"], -- ./compiler/lua54.can:214
+val, -- ./compiler/lua54.can:214
+var -- ./compiler/lua54.can:214
+} -- ./compiler/lua54.can:214
+end -- ./compiler/lua54.can:214
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+if # vars > 0 then -- ./compiler/lua54.can:220
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
+if newlineAfter then -- ./compiler/lua54.can:222
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
+else -- ./compiler/lua54.can:223
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+else -- ./compiler/lua54.can:225
+return "" -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+tags = setmetatable({ -- ./compiler/lua54.can:233
+["Block"] = function(t) -- ./compiler/lua54.can:235
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
+hasPush = false -- ./compiler/lua54.can:239
+end -- ./compiler/lua54.can:239
+local r = push("scope", {}) -- ./compiler/lua54.can:241
+if hasPush then -- ./compiler/lua54.can:242
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
+end -- ./compiler/lua54.can:243
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
+end -- ./compiler/lua54.can:246
+if t[# t] then -- ./compiler/lua54.can:248
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+end -- ./compiler/lua54.can:249
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+end -- ./compiler/lua54.can:252
+return r .. pop("scope") -- ./compiler/lua54.can:254
+end, -- ./compiler/lua54.can:254
+["Do"] = function(t) -- ./compiler/lua54.can:260
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
+end, -- ./compiler/lua54.can:261
+["Set"] = function(t) -- ./compiler/lua54.can:264
+local expr = t[# t] -- ./compiler/lua54.can:266
+local vars, values = {}, {} -- ./compiler/lua54.can:267
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
+else -- ./compiler/lua54.can:272
+table["insert"](vars, n) -- ./compiler/lua54.can:274
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
+local r = "" -- ./compiler/lua54.can:280
+if # vars > 0 then -- ./compiler/lua54.can:281
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
+end -- ./compiler/lua54.can:282
+if # destructuringVars > 0 then -- ./compiler/lua54.can:284
+local destructured = {} -- ./compiler/lua54.can:285
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
+end -- ./compiler/lua54.can:287
+return r -- ./compiler/lua54.can:289
+elseif # t == 4 then -- ./compiler/lua54.can:290
+if t[3] == "=" then -- ./compiler/lua54.can:291
+local r = "" -- ./compiler/lua54.can:292
+if # vars > 0 then -- ./compiler/lua54.can:293
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
+t[2], -- ./compiler/lua54.can:294
+vars[1], -- ./compiler/lua54.can:294
+{ -- ./compiler/lua54.can:294
+["tag"] = "Paren", -- ./compiler/lua54.can:294
+values[1] -- ./compiler/lua54.can:294
+} -- ./compiler/lua54.can:294
+}, "Op")) -- ./compiler/lua54.can:294
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
+t[2], -- ./compiler/lua54.can:296
+vars[i], -- ./compiler/lua54.can:296
+{ -- ./compiler/lua54.can:296
+["tag"] = "Paren", -- ./compiler/lua54.can:296
+values[i] -- ./compiler/lua54.can:296
+} -- ./compiler/lua54.can:296
+}, "Op")) -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+if # destructuringVars > 0 then -- ./compiler/lua54.can:299
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+end -- ./compiler/lua54.can:302
+return r -- ./compiler/lua54.can:304
+else -- ./compiler/lua54.can:304
+local r = "" -- ./compiler/lua54.can:306
+if # vars > 0 then -- ./compiler/lua54.can:307
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
+t[3], -- ./compiler/lua54.can:308
+{ -- ./compiler/lua54.can:308
+["tag"] = "Paren", -- ./compiler/lua54.can:308
+values[1] -- ./compiler/lua54.can:308
+}, -- ./compiler/lua54.can:308
+vars[1] -- ./compiler/lua54.can:308
+}, "Op")) -- ./compiler/lua54.can:308
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
+t[3], -- ./compiler/lua54.can:310
+{ -- ./compiler/lua54.can:310
+["tag"] = "Paren", -- ./compiler/lua54.can:310
+values[i] -- ./compiler/lua54.can:310
+}, -- ./compiler/lua54.can:310
+vars[i] -- ./compiler/lua54.can:310
+}, "Op")) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+if # destructuringVars > 0 then -- ./compiler/lua54.can:313
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:316
+return r -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+else -- ./compiler/lua54.can:318
+local r = "" -- ./compiler/lua54.can:321
+if # vars > 0 then -- ./compiler/lua54.can:322
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
+t[2], -- ./compiler/lua54.can:323
+vars[1], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Op", -- ./compiler/lua54.can:323
+t[4], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Paren", -- ./compiler/lua54.can:323
+values[1] -- ./compiler/lua54.can:323
+}, -- ./compiler/lua54.can:323
+vars[1] -- ./compiler/lua54.can:323
+} -- ./compiler/lua54.can:323
+}, "Op")) -- ./compiler/lua54.can:323
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
+t[2], -- ./compiler/lua54.can:325
+vars[i], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Op", -- ./compiler/lua54.can:325
+t[4], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Paren", -- ./compiler/lua54.can:325
+values[i] -- ./compiler/lua54.can:325
+}, -- ./compiler/lua54.can:325
+vars[i] -- ./compiler/lua54.can:325
+} -- ./compiler/lua54.can:325
+}, "Op")) -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+if # destructuringVars > 0 then -- ./compiler/lua54.can:328
+local destructured = { -- ./compiler/lua54.can:329
+["rightOp"] = t[2], -- ./compiler/lua54.can:329
+["leftOp"] = t[4] -- ./compiler/lua54.can:329
+} -- ./compiler/lua54.can:329
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+end -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end, -- ./compiler/lua54.can:333
+["While"] = function(t) -- ./compiler/lua54.can:337
+local r = "" -- ./compiler/lua54.can:338
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
+if # lets > 0 then -- ./compiler/lua54.can:341
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
+if # lets > 0 then -- ./compiler/lua54.can:348
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
+end -- ./compiler/lua54.can:349
+if hasContinue then -- ./compiler/lua54.can:351
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
+if hasContinue then -- ./compiler/lua54.can:355
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
+end -- ./compiler/lua54.can:356
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
+if # lets > 0 then -- ./compiler/lua54.can:359
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
+end -- ./compiler/lua54.can:361
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
+end -- ./compiler/lua54.can:363
+return r -- ./compiler/lua54.can:365
+end, -- ./compiler/lua54.can:365
+["Repeat"] = function(t) -- ./compiler/lua54.can:368
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
+local r = "repeat" .. indent() -- ./compiler/lua54.can:370
+if hasContinue then -- ./compiler/lua54.can:371
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
+end -- ./compiler/lua54.can:372
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
+if hasContinue then -- ./compiler/lua54.can:375
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
+end -- ./compiler/lua54.can:376
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
+return r -- ./compiler/lua54.can:379
+end, -- ./compiler/lua54.can:379
+["If"] = function(t) -- ./compiler/lua54.can:382
+local r = "" -- ./compiler/lua54.can:383
+local toClose = 0 -- ./compiler/lua54.can:384
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
+if # lets > 0 then -- ./compiler/lua54.can:386
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
+toClose = toClose + (1) -- ./compiler/lua54.can:388
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
+if # lets > 0 then -- ./compiler/lua54.can:396
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
+toClose = toClose + (1) -- ./compiler/lua54.can:398
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
+end -- ./compiler/lua54.can:400
+else -- ./compiler/lua54.can:400
+r = r .. ("else") -- ./compiler/lua54.can:403
+end -- ./compiler/lua54.can:403
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
+end -- ./compiler/lua54.can:405
+if # t % 2 == 1 then -- ./compiler/lua54.can:407
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+r = r .. ("end") -- ./compiler/lua54.can:410
+for i = 1, toClose do -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
+end -- ./compiler/lua54.can:412
+return r -- ./compiler/lua54.can:414
+end, -- ./compiler/lua54.can:414
+["Fornum"] = function(t) -- ./compiler/lua54.can:417
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
+if # t == 5 then -- ./compiler/lua54.can:419
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
+if hasContinue then -- ./compiler/lua54.can:422
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
+end -- ./compiler/lua54.can:423
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
+if hasContinue then -- ./compiler/lua54.can:426
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
+end -- ./compiler/lua54.can:427
+return r .. unindent() .. "end" -- ./compiler/lua54.can:429
+else -- ./compiler/lua54.can:429
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
+if hasContinue then -- ./compiler/lua54.can:433
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
+end -- ./compiler/lua54.can:434
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
+if hasContinue then -- ./compiler/lua54.can:437
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
+end -- ./compiler/lua54.can:438
+return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:440
+end, -- ./compiler/lua54.can:440
+["Forin"] = function(t) -- ./compiler/lua54.can:444
+local destructured = {} -- ./compiler/lua54.can:445
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
+if hasContinue then -- ./compiler/lua54.can:448
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
+end -- ./compiler/lua54.can:449
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
+if hasContinue then -- ./compiler/lua54.can:452
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
+end -- ./compiler/lua54.can:453
+return r .. unindent() .. "end" -- ./compiler/lua54.can:455
+end, -- ./compiler/lua54.can:455
+["Local"] = function(t) -- ./compiler/lua54.can:458
+local destructured = {} -- ./compiler/lua54.can:459
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
+if t[2][1] then -- ./compiler/lua54.can:461
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
+end -- ./compiler/lua54.can:462
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
+end, -- ./compiler/lua54.can:464
+["Let"] = function(t) -- ./compiler/lua54.can:467
+local destructured = {} -- ./compiler/lua54.can:468
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
+local r = "local " .. nameList -- ./compiler/lua54.can:470
+if t[2][1] then -- ./compiler/lua54.can:471
+if all(t[2], { -- ./compiler/lua54.can:472
+"Nil", -- ./compiler/lua54.can:472
+"Dots", -- ./compiler/lua54.can:472
+"Boolean", -- ./compiler/lua54.can:472
+"Number", -- ./compiler/lua54.can:472
+"String" -- ./compiler/lua54.can:472
+}) then -- ./compiler/lua54.can:472
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
+else -- ./compiler/lua54.can:473
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
+end, -- ./compiler/lua54.can:478
+["Localrec"] = function(t) -- ./compiler/lua54.can:481
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
+end, -- ./compiler/lua54.can:482
+["Goto"] = function(t) -- ./compiler/lua54.can:485
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Label"] = function(t) -- ./compiler/lua54.can:489
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Return"] = function(t) -- ./compiler/lua54.can:493
+local push = peek("push") -- ./compiler/lua54.can:494
+if push then -- ./compiler/lua54.can:495
+local r = "" -- ./compiler/lua54.can:496
+for _, val in ipairs(t) do -- ./compiler/lua54.can:497
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
+end -- ./compiler/lua54.can:498
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
+else -- ./compiler/lua54.can:500
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
+end -- ./compiler/lua54.can:502
+end, -- ./compiler/lua54.can:502
+["Push"] = function(t) -- ./compiler/lua54.can:506
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
+r = "" -- ./compiler/lua54.can:508
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+if t[# t] then -- ./compiler/lua54.can:512
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
+else -- ./compiler/lua54.can:514
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+return r -- ./compiler/lua54.can:519
+end, -- ./compiler/lua54.can:519
+["Break"] = function() -- ./compiler/lua54.can:522
+return "break" -- ./compiler/lua54.can:523
+end, -- ./compiler/lua54.can:523
+["Continue"] = function() -- ./compiler/lua54.can:526
+return "goto " .. var("continue") -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Nil"] = function() -- ./compiler/lua54.can:534
+return "nil" -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Dots"] = function() -- ./compiler/lua54.can:538
+return "..." -- ./compiler/lua54.can:539
+end, -- ./compiler/lua54.can:539
+["Boolean"] = function(t) -- ./compiler/lua54.can:542
+return tostring(t[1]) -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Number"] = function(t) -- ./compiler/lua54.can:546
+return tostring(t[1]) -- ./compiler/lua54.can:547
+end, -- ./compiler/lua54.can:547
+["String"] = function(t) -- ./compiler/lua54.can:550
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
+end, -- ./compiler/lua54.can:551
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
+local r = "(" -- ./compiler/lua54.can:555
+local decl = {} -- ./compiler/lua54.can:556
+if t[1][1] then -- ./compiler/lua54.can:557
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
+r = r .. (id) -- ./compiler/lua54.can:563
+else -- ./compiler/lua54.can:563
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
+end -- ./compiler/lua54.can:565
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
+r = r .. (", " .. id) -- ./compiler/lua54.can:573
+else -- ./compiler/lua54.can:573
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
+r = r .. (d .. newline()) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
+end -- ./compiler/lua54.can:584
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
+if hasPush then -- ./compiler/lua54.can:587
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
+else -- ./compiler/lua54.can:588
+push("push", false) -- ./compiler/lua54.can:590
+end -- ./compiler/lua54.can:590
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
+end -- ./compiler/lua54.can:594
+pop("push") -- ./compiler/lua54.can:596
+return r .. unindent() .. "end" -- ./compiler/lua54.can:597
+end, -- ./compiler/lua54.can:597
+["Function"] = function(t) -- ./compiler/lua54.can:599
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
+end, -- ./compiler/lua54.can:600
+["Pair"] = function(t) -- ./compiler/lua54.can:603
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
+end, -- ./compiler/lua54.can:604
+["Table"] = function(t) -- ./compiler/lua54.can:606
+if # t == 0 then -- ./compiler/lua54.can:607
+return "{}" -- ./compiler/lua54.can:608
+elseif # t == 1 then -- ./compiler/lua54.can:609
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
+else -- ./compiler/lua54.can:610
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
+end -- ./compiler/lua54.can:612
+end, -- ./compiler/lua54.can:612
+["TableCompr"] = function(t) -- ./compiler/lua54.can:616
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
+end, -- ./compiler/lua54.can:617
+["Op"] = function(t) -- ./compiler/lua54.can:620
+local r -- ./compiler/lua54.can:621
+if # t == 2 then -- ./compiler/lua54.can:622
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+else -- ./compiler/lua54.can:624
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+end -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
+else -- ./compiler/lua54.can:630
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+return r -- ./compiler/lua54.can:635
+end, -- ./compiler/lua54.can:635
+["Paren"] = function(t) -- ./compiler/lua54.can:638
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
+end, -- ./compiler/lua54.can:639
+["MethodStub"] = function(t) -- ./compiler/lua54.can:642
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
+end, -- ./compiler/lua54.can:648
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
+end, -- ./compiler/lua54.can:658
+["LetExpr"] = function(t) -- ./compiler/lua54.can:665
+return lua(t[1][1]) -- ./compiler/lua54.can:666
+end, -- ./compiler/lua54.can:666
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
+local r = "(function()" .. indent() -- ./compiler/lua54.can:672
+if hasPush then -- ./compiler/lua54.can:673
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
+else -- ./compiler/lua54.can:674
+push("push", false) -- ./compiler/lua54.can:676
+end -- ./compiler/lua54.can:676
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
+if hasPush then -- ./compiler/lua54.can:679
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
+end -- ./compiler/lua54.can:680
+pop("push") -- ./compiler/lua54.can:682
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
+return r -- ./compiler/lua54.can:684
+end, -- ./compiler/lua54.can:684
+["DoExpr"] = function(t) -- ./compiler/lua54.can:687
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
+end -- ./compiler/lua54.can:689
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
+end, -- ./compiler/lua54.can:691
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
+end, -- ./compiler/lua54.can:695
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
+end, -- ./compiler/lua54.can:699
+["IfExpr"] = function(t) -- ./compiler/lua54.can:702
+for i = 2, # t do -- ./compiler/lua54.can:703
+local block = t[i] -- ./compiler/lua54.can:704
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:709
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+end, -- ./compiler/lua54.can:713
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
+end, -- ./compiler/lua54.can:717
+["Call"] = function(t) -- ./compiler/lua54.can:723
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
+else -- ./compiler/lua54.can:728
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
+end -- ./compiler/lua54.can:730
+else -- ./compiler/lua54.can:730
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
+end -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["SafeCall"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
+else -- ./compiler/lua54.can:739
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
+end -- ./compiler/lua54.can:741
+end, -- ./compiler/lua54.can:741
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
+if start == nil then start = 1 end -- ./compiler/lua54.can:746
+local r -- ./compiler/lua54.can:747
+if t[start] then -- ./compiler/lua54.can:748
+r = lua(t[start]) -- ./compiler/lua54.can:749
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
+end -- ./compiler/lua54.can:751
+else -- ./compiler/lua54.can:751
+r = "" -- ./compiler/lua54.can:754
+end -- ./compiler/lua54.can:754
+return r -- ./compiler/lua54.can:756
+end, -- ./compiler/lua54.can:756
+["Id"] = function(t) -- ./compiler/lua54.can:759
+return t[1] -- ./compiler/lua54.can:760
+end, -- ./compiler/lua54.can:760
+["AttributeId"] = function(t) -- ./compiler/lua54.can:763
+if t[2] then -- ./compiler/lua54.can:764
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
+else -- ./compiler/lua54.can:765
+return t[1] -- ./compiler/lua54.can:767
+end -- ./compiler/lua54.can:767
+end, -- ./compiler/lua54.can:767
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
+if t["id"] then -- ./compiler/lua54.can:772
+return t["id"] -- ./compiler/lua54.can:773
+else -- ./compiler/lua54.can:773
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
+for j = 1, # t, 1 do -- ./compiler/lua54.can:777
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
+end -- ./compiler/lua54.can:778
+table["insert"](d, vars) -- ./compiler/lua54.can:780
+t["id"] = vars["id"] -- ./compiler/lua54.can:781
+return vars["id"] -- ./compiler/lua54.can:782
+end -- ./compiler/lua54.can:782
+end, -- ./compiler/lua54.can:782
+["Index"] = function(t) -- ./compiler/lua54.can:786
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
+else -- ./compiler/lua54.can:788
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+end -- ./compiler/lua54.can:790
+end, -- ./compiler/lua54.can:790
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
+local l = {} -- ./compiler/lua54.can:796
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
+table["insert"](l, 1, t) -- ./compiler/lua54.can:798
+t = t[1] -- ./compiler/lua54.can:799
+end -- ./compiler/lua54.can:799
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
+for _, e in ipairs(l) do -- ./compiler/lua54.can:802
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
+else -- ./compiler/lua54.can:805
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
+return r -- ./compiler/lua54.can:811
+else -- ./compiler/lua54.can:811
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
+end -- ./compiler/lua54.can:813
+end, -- ./compiler/lua54.can:813
+["_opid"] = { -- ./compiler/lua54.can:818
+["add"] = "+", -- ./compiler/lua54.can:819
+["sub"] = "-", -- ./compiler/lua54.can:819
+["mul"] = "*", -- ./compiler/lua54.can:819
+["div"] = "/", -- ./compiler/lua54.can:819
+["idiv"] = "//", -- ./compiler/lua54.can:820
+["mod"] = "%", -- ./compiler/lua54.can:820
+["pow"] = "^", -- ./compiler/lua54.can:820
+["concat"] = "..", -- ./compiler/lua54.can:820
+["band"] = "&", -- ./compiler/lua54.can:821
+["bor"] = "|", -- ./compiler/lua54.can:821
+["bxor"] = "~", -- ./compiler/lua54.can:821
+["shl"] = "<<", -- ./compiler/lua54.can:821
+["shr"] = ">>", -- ./compiler/lua54.can:821
+["eq"] = "==", -- ./compiler/lua54.can:822
+["ne"] = "~=", -- ./compiler/lua54.can:822
+["lt"] = "<", -- ./compiler/lua54.can:822
+["gt"] = ">", -- ./compiler/lua54.can:822
+["le"] = "<=", -- ./compiler/lua54.can:822
+["ge"] = ">=", -- ./compiler/lua54.can:822
+["and"] = "and", -- ./compiler/lua54.can:823
+["or"] = "or", -- ./compiler/lua54.can:823
+["unm"] = "-", -- ./compiler/lua54.can:823
+["len"] = "#", -- ./compiler/lua54.can:823
+["bnot"] = "~", -- ./compiler/lua54.can:823
+["not"] = "not" -- ./compiler/lua54.can:823
+} -- ./compiler/lua54.can:823
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
+end }) -- ./compiler/lua54.can:827
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
+return requireStr .. code -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+return lua54 -- ./compiler/lua53.can:10
+end -- ./compiler/lua53.can:10
+local lua53 = _() or lua53 -- ./compiler/lua53.can:14
 return lua53 -- ./compiler/luajit.can:44
 end -- ./compiler/luajit.can:44
 local luajit = _() or luajit -- ./compiler/luajit.can:48
@@ -3798,933 +4610,977 @@ local labels = { -- ./candran/can-parser/parser.lua:88
 }, -- ./candran/can-parser/parser.lua:115
 { -- ./candran/can-parser/parser.lua:116
 "ErrDefLet", -- ./candran/can-parser/parser.lua:116
-"expected a function definition or assignment after let" -- ./candran/can-parser/parser.lua:116
+"expected an assignment after let" -- ./candran/can-parser/parser.lua:116
 }, -- ./candran/can-parser/parser.lua:116
 { -- ./candran/can-parser/parser.lua:117
-"ErrNameLFunc", -- ./candran/can-parser/parser.lua:117
-"expected a function name after 'function'" -- ./candran/can-parser/parser.lua:117
+"ErrDefClose", -- ./candran/can-parser/parser.lua:117
+"expected an assignment after close" -- ./candran/can-parser/parser.lua:117
 }, -- ./candran/can-parser/parser.lua:117
 { -- ./candran/can-parser/parser.lua:118
-"ErrEListLAssign", -- ./candran/can-parser/parser.lua:118
-"expected one or more expressions after '='" -- ./candran/can-parser/parser.lua:118
+"ErrDefConst", -- ./candran/can-parser/parser.lua:118
+"expected an assignment after const" -- ./candran/can-parser/parser.lua:118
 }, -- ./candran/can-parser/parser.lua:118
 { -- ./candran/can-parser/parser.lua:119
-"ErrEListAssign", -- ./candran/can-parser/parser.lua:119
-"expected one or more expressions after '='" -- ./candran/can-parser/parser.lua:119
+"ErrNameLFunc", -- ./candran/can-parser/parser.lua:119
+"expected a function name after 'function'" -- ./candran/can-parser/parser.lua:119
 }, -- ./candran/can-parser/parser.lua:119
+{ -- ./candran/can-parser/parser.lua:120
+"ErrEListLAssign", -- ./candran/can-parser/parser.lua:120
+"expected one or more expressions after '='" -- ./candran/can-parser/parser.lua:120
+}, -- ./candran/can-parser/parser.lua:120
 { -- ./candran/can-parser/parser.lua:121
-"ErrFuncName", -- ./candran/can-parser/parser.lua:121
-"expected a function name after 'function'" -- ./candran/can-parser/parser.lua:121
+"ErrEListAssign", -- ./candran/can-parser/parser.lua:121
+"expected one or more expressions after '='" -- ./candran/can-parser/parser.lua:121
 }, -- ./candran/can-parser/parser.lua:121
-{ -- ./candran/can-parser/parser.lua:122
-"ErrNameFunc1", -- ./candran/can-parser/parser.lua:122
-"expected a function name after '.'" -- ./candran/can-parser/parser.lua:122
-}, -- ./candran/can-parser/parser.lua:122
 { -- ./candran/can-parser/parser.lua:123
-"ErrNameFunc2", -- ./candran/can-parser/parser.lua:123
-"expected a method name after ':'" -- ./candran/can-parser/parser.lua:123
+"ErrFuncName", -- ./candran/can-parser/parser.lua:123
+"expected a function name after 'function'" -- ./candran/can-parser/parser.lua:123
 }, -- ./candran/can-parser/parser.lua:123
 { -- ./candran/can-parser/parser.lua:124
-"ErrOParenPList", -- ./candran/can-parser/parser.lua:124
-"expected '(' for the parameter list" -- ./candran/can-parser/parser.lua:124
+"ErrNameFunc1", -- ./candran/can-parser/parser.lua:124
+"expected a function name after '.'" -- ./candran/can-parser/parser.lua:124
 }, -- ./candran/can-parser/parser.lua:124
 { -- ./candran/can-parser/parser.lua:125
-"ErrCParenPList", -- ./candran/can-parser/parser.lua:125
-"expected ')' to close the parameter list" -- ./candran/can-parser/parser.lua:125
+"ErrNameFunc2", -- ./candran/can-parser/parser.lua:125
+"expected a method name after ':'" -- ./candran/can-parser/parser.lua:125
 }, -- ./candran/can-parser/parser.lua:125
 { -- ./candran/can-parser/parser.lua:126
-"ErrEndFunc", -- ./candran/can-parser/parser.lua:126
-"expected 'end' to close the function body" -- ./candran/can-parser/parser.lua:126
+"ErrOParenPList", -- ./candran/can-parser/parser.lua:126
+"expected '(' for the parameter list" -- ./candran/can-parser/parser.lua:126
 }, -- ./candran/can-parser/parser.lua:126
 { -- ./candran/can-parser/parser.lua:127
-"ErrParList", -- ./candran/can-parser/parser.lua:127
-"expected a variable name or '...' after ','" -- ./candran/can-parser/parser.lua:127
+"ErrCParenPList", -- ./candran/can-parser/parser.lua:127
+"expected ')' to close the parameter list" -- ./candran/can-parser/parser.lua:127
 }, -- ./candran/can-parser/parser.lua:127
+{ -- ./candran/can-parser/parser.lua:128
+"ErrEndFunc", -- ./candran/can-parser/parser.lua:128
+"expected 'end' to close the function body" -- ./candran/can-parser/parser.lua:128
+}, -- ./candran/can-parser/parser.lua:128
 { -- ./candran/can-parser/parser.lua:129
-"ErrLabel", -- ./candran/can-parser/parser.lua:129
-"expected a label name after '::'" -- ./candran/can-parser/parser.lua:129
+"ErrParList", -- ./candran/can-parser/parser.lua:129
+"expected a variable name or '...' after ','" -- ./candran/can-parser/parser.lua:129
 }, -- ./candran/can-parser/parser.lua:129
-{ -- ./candran/can-parser/parser.lua:130
-"ErrCloseLabel", -- ./candran/can-parser/parser.lua:130
-"expected '::' after the label" -- ./candran/can-parser/parser.lua:130
-}, -- ./candran/can-parser/parser.lua:130
 { -- ./candran/can-parser/parser.lua:131
-"ErrGoto", -- ./candran/can-parser/parser.lua:131
-"expected a label after 'goto'" -- ./candran/can-parser/parser.lua:131
+"ErrLabel", -- ./candran/can-parser/parser.lua:131
+"expected a label name after '::'" -- ./candran/can-parser/parser.lua:131
 }, -- ./candran/can-parser/parser.lua:131
 { -- ./candran/can-parser/parser.lua:132
-"ErrRetList", -- ./candran/can-parser/parser.lua:132
-"expected an expression after ',' in the return statement" -- ./candran/can-parser/parser.lua:132
+"ErrCloseLabel", -- ./candran/can-parser/parser.lua:132
+"expected '::' after the label" -- ./candran/can-parser/parser.lua:132
 }, -- ./candran/can-parser/parser.lua:132
+{ -- ./candran/can-parser/parser.lua:133
+"ErrGoto", -- ./candran/can-parser/parser.lua:133
+"expected a label after 'goto'" -- ./candran/can-parser/parser.lua:133
+}, -- ./candran/can-parser/parser.lua:133
 { -- ./candran/can-parser/parser.lua:134
-"ErrVarList", -- ./candran/can-parser/parser.lua:134
-"expected a variable name after ','" -- ./candran/can-parser/parser.lua:134
+"ErrRetList", -- ./candran/can-parser/parser.lua:134
+"expected an expression after ',' in the return statement" -- ./candran/can-parser/parser.lua:134
 }, -- ./candran/can-parser/parser.lua:134
-{ -- ./candran/can-parser/parser.lua:135
-"ErrExprList", -- ./candran/can-parser/parser.lua:135
-"expected an expression after ','" -- ./candran/can-parser/parser.lua:135
-}, -- ./candran/can-parser/parser.lua:135
+{ -- ./candran/can-parser/parser.lua:136
+"ErrVarList", -- ./candran/can-parser/parser.lua:136
+"expected a variable name after ','" -- ./candran/can-parser/parser.lua:136
+}, -- ./candran/can-parser/parser.lua:136
 { -- ./candran/can-parser/parser.lua:137
-"ErrOrExpr", -- ./candran/can-parser/parser.lua:137
-"expected an expression after 'or'" -- ./candran/can-parser/parser.lua:137
+"ErrExprList", -- ./candran/can-parser/parser.lua:137
+"expected an expression after ','" -- ./candran/can-parser/parser.lua:137
 }, -- ./candran/can-parser/parser.lua:137
-{ -- ./candran/can-parser/parser.lua:138
-"ErrAndExpr", -- ./candran/can-parser/parser.lua:138
-"expected an expression after 'and'" -- ./candran/can-parser/parser.lua:138
-}, -- ./candran/can-parser/parser.lua:138
 { -- ./candran/can-parser/parser.lua:139
-"ErrRelExpr", -- ./candran/can-parser/parser.lua:139
-"expected an expression after the relational operator" -- ./candran/can-parser/parser.lua:139
+"ErrOrExpr", -- ./candran/can-parser/parser.lua:139
+"expected an expression after 'or'" -- ./candran/can-parser/parser.lua:139
 }, -- ./candran/can-parser/parser.lua:139
 { -- ./candran/can-parser/parser.lua:140
-"ErrBOrExpr", -- ./candran/can-parser/parser.lua:140
-"expected an expression after '|'" -- ./candran/can-parser/parser.lua:140
+"ErrAndExpr", -- ./candran/can-parser/parser.lua:140
+"expected an expression after 'and'" -- ./candran/can-parser/parser.lua:140
 }, -- ./candran/can-parser/parser.lua:140
 { -- ./candran/can-parser/parser.lua:141
-"ErrBXorExpr", -- ./candran/can-parser/parser.lua:141
-"expected an expression after '~'" -- ./candran/can-parser/parser.lua:141
+"ErrRelExpr", -- ./candran/can-parser/parser.lua:141
+"expected an expression after the relational operator" -- ./candran/can-parser/parser.lua:141
 }, -- ./candran/can-parser/parser.lua:141
 { -- ./candran/can-parser/parser.lua:142
-"ErrBAndExpr", -- ./candran/can-parser/parser.lua:142
-"expected an expression after '&'" -- ./candran/can-parser/parser.lua:142
+"ErrBOrExpr", -- ./candran/can-parser/parser.lua:142
+"expected an expression after '|'" -- ./candran/can-parser/parser.lua:142
 }, -- ./candran/can-parser/parser.lua:142
 { -- ./candran/can-parser/parser.lua:143
-"ErrShiftExpr", -- ./candran/can-parser/parser.lua:143
-"expected an expression after the bit shift" -- ./candran/can-parser/parser.lua:143
+"ErrBXorExpr", -- ./candran/can-parser/parser.lua:143
+"expected an expression after '~'" -- ./candran/can-parser/parser.lua:143
 }, -- ./candran/can-parser/parser.lua:143
 { -- ./candran/can-parser/parser.lua:144
-"ErrConcatExpr", -- ./candran/can-parser/parser.lua:144
-"expected an expression after '..'" -- ./candran/can-parser/parser.lua:144
+"ErrBAndExpr", -- ./candran/can-parser/parser.lua:144
+"expected an expression after '&'" -- ./candran/can-parser/parser.lua:144
 }, -- ./candran/can-parser/parser.lua:144
 { -- ./candran/can-parser/parser.lua:145
-"ErrAddExpr", -- ./candran/can-parser/parser.lua:145
-"expected an expression after the additive operator" -- ./candran/can-parser/parser.lua:145
+"ErrShiftExpr", -- ./candran/can-parser/parser.lua:145
+"expected an expression after the bit shift" -- ./candran/can-parser/parser.lua:145
 }, -- ./candran/can-parser/parser.lua:145
 { -- ./candran/can-parser/parser.lua:146
-"ErrMulExpr", -- ./candran/can-parser/parser.lua:146
-"expected an expression after the multiplicative operator" -- ./candran/can-parser/parser.lua:146
+"ErrConcatExpr", -- ./candran/can-parser/parser.lua:146
+"expected an expression after '..'" -- ./candran/can-parser/parser.lua:146
 }, -- ./candran/can-parser/parser.lua:146
 { -- ./candran/can-parser/parser.lua:147
-"ErrUnaryExpr", -- ./candran/can-parser/parser.lua:147
-"expected an expression after the unary operator" -- ./candran/can-parser/parser.lua:147
+"ErrAddExpr", -- ./candran/can-parser/parser.lua:147
+"expected an expression after the additive operator" -- ./candran/can-parser/parser.lua:147
 }, -- ./candran/can-parser/parser.lua:147
 { -- ./candran/can-parser/parser.lua:148
-"ErrPowExpr", -- ./candran/can-parser/parser.lua:148
-"expected an expression after '^'" -- ./candran/can-parser/parser.lua:148
+"ErrMulExpr", -- ./candran/can-parser/parser.lua:148
+"expected an expression after the multiplicative operator" -- ./candran/can-parser/parser.lua:148
 }, -- ./candran/can-parser/parser.lua:148
+{ -- ./candran/can-parser/parser.lua:149
+"ErrUnaryExpr", -- ./candran/can-parser/parser.lua:149
+"expected an expression after the unary operator" -- ./candran/can-parser/parser.lua:149
+}, -- ./candran/can-parser/parser.lua:149
 { -- ./candran/can-parser/parser.lua:150
-"ErrExprParen", -- ./candran/can-parser/parser.lua:150
-"expected an expression after '('" -- ./candran/can-parser/parser.lua:150
+"ErrPowExpr", -- ./candran/can-parser/parser.lua:150
+"expected an expression after '^'" -- ./candran/can-parser/parser.lua:150
 }, -- ./candran/can-parser/parser.lua:150
-{ -- ./candran/can-parser/parser.lua:151
-"ErrCParenExpr", -- ./candran/can-parser/parser.lua:151
-"expected ')' to close the expression" -- ./candran/can-parser/parser.lua:151
-}, -- ./candran/can-parser/parser.lua:151
 { -- ./candran/can-parser/parser.lua:152
-"ErrNameIndex", -- ./candran/can-parser/parser.lua:152
-"expected a field name after '.'" -- ./candran/can-parser/parser.lua:152
+"ErrExprParen", -- ./candran/can-parser/parser.lua:152
+"expected an expression after '('" -- ./candran/can-parser/parser.lua:152
 }, -- ./candran/can-parser/parser.lua:152
 { -- ./candran/can-parser/parser.lua:153
-"ErrExprIndex", -- ./candran/can-parser/parser.lua:153
-"expected an expression after '['" -- ./candran/can-parser/parser.lua:153
+"ErrCParenExpr", -- ./candran/can-parser/parser.lua:153
+"expected ')' to close the expression" -- ./candran/can-parser/parser.lua:153
 }, -- ./candran/can-parser/parser.lua:153
 { -- ./candran/can-parser/parser.lua:154
-"ErrCBracketIndex", -- ./candran/can-parser/parser.lua:154
-"expected ']' to close the indexing expression" -- ./candran/can-parser/parser.lua:154
+"ErrNameIndex", -- ./candran/can-parser/parser.lua:154
+"expected a field name after '.'" -- ./candran/can-parser/parser.lua:154
 }, -- ./candran/can-parser/parser.lua:154
 { -- ./candran/can-parser/parser.lua:155
-"ErrNameMeth", -- ./candran/can-parser/parser.lua:155
-"expected a method name after ':'" -- ./candran/can-parser/parser.lua:155
+"ErrExprIndex", -- ./candran/can-parser/parser.lua:155
+"expected an expression after '['" -- ./candran/can-parser/parser.lua:155
 }, -- ./candran/can-parser/parser.lua:155
 { -- ./candran/can-parser/parser.lua:156
-"ErrMethArgs", -- ./candran/can-parser/parser.lua:156
-"expected some arguments for the method call (or '()')" -- ./candran/can-parser/parser.lua:156
+"ErrCBracketIndex", -- ./candran/can-parser/parser.lua:156
+"expected ']' to close the indexing expression" -- ./candran/can-parser/parser.lua:156
 }, -- ./candran/can-parser/parser.lua:156
+{ -- ./candran/can-parser/parser.lua:157
+"ErrNameMeth", -- ./candran/can-parser/parser.lua:157
+"expected a method name after ':'" -- ./candran/can-parser/parser.lua:157
+}, -- ./candran/can-parser/parser.lua:157
 { -- ./candran/can-parser/parser.lua:158
-"ErrArgList", -- ./candran/can-parser/parser.lua:158
-"expected an expression after ',' in the argument list" -- ./candran/can-parser/parser.lua:158
+"ErrMethArgs", -- ./candran/can-parser/parser.lua:158
+"expected some arguments for the method call (or '()')" -- ./candran/can-parser/parser.lua:158
 }, -- ./candran/can-parser/parser.lua:158
-{ -- ./candran/can-parser/parser.lua:159
-"ErrCParenArgs", -- ./candran/can-parser/parser.lua:159
-"expected ')' to close the argument list" -- ./candran/can-parser/parser.lua:159
-}, -- ./candran/can-parser/parser.lua:159
+{ -- ./candran/can-parser/parser.lua:160
+"ErrArgList", -- ./candran/can-parser/parser.lua:160
+"expected an expression after ',' in the argument list" -- ./candran/can-parser/parser.lua:160
+}, -- ./candran/can-parser/parser.lua:160
 { -- ./candran/can-parser/parser.lua:161
-"ErrCBraceTable", -- ./candran/can-parser/parser.lua:161
-"expected '}' to close the table constructor" -- ./candran/can-parser/parser.lua:161
+"ErrCParenArgs", -- ./candran/can-parser/parser.lua:161
+"expected ')' to close the argument list" -- ./candran/can-parser/parser.lua:161
 }, -- ./candran/can-parser/parser.lua:161
-{ -- ./candran/can-parser/parser.lua:162
-"ErrEqField", -- ./candran/can-parser/parser.lua:162
-"expected '=' after the table key" -- ./candran/can-parser/parser.lua:162
-}, -- ./candran/can-parser/parser.lua:162
 { -- ./candran/can-parser/parser.lua:163
-"ErrExprField", -- ./candran/can-parser/parser.lua:163
-"expected an expression after '='" -- ./candran/can-parser/parser.lua:163
+"ErrCBraceTable", -- ./candran/can-parser/parser.lua:163
+"expected '}' to close the table constructor" -- ./candran/can-parser/parser.lua:163
 }, -- ./candran/can-parser/parser.lua:163
 { -- ./candran/can-parser/parser.lua:164
-"ErrExprFKey", -- ./candran/can-parser/parser.lua:164
-"expected an expression after '[' for the table key" -- ./candran/can-parser/parser.lua:164
+"ErrEqField", -- ./candran/can-parser/parser.lua:164
+"expected '=' after the table key" -- ./candran/can-parser/parser.lua:164
 }, -- ./candran/can-parser/parser.lua:164
 { -- ./candran/can-parser/parser.lua:165
-"ErrCBracketFKey", -- ./candran/can-parser/parser.lua:165
-"expected ']' to close the table key" -- ./candran/can-parser/parser.lua:165
+"ErrExprField", -- ./candran/can-parser/parser.lua:165
+"expected an expression after '='" -- ./candran/can-parser/parser.lua:165
 }, -- ./candran/can-parser/parser.lua:165
+{ -- ./candran/can-parser/parser.lua:166
+"ErrExprFKey", -- ./candran/can-parser/parser.lua:166
+"expected an expression after '[' for the table key" -- ./candran/can-parser/parser.lua:166
+}, -- ./candran/can-parser/parser.lua:166
 { -- ./candran/can-parser/parser.lua:167
-"ErrCBraceDestructuring", -- ./candran/can-parser/parser.lua:167
-"expected '}' to close the destructuring variable list" -- ./candran/can-parser/parser.lua:167
+"ErrCBracketFKey", -- ./candran/can-parser/parser.lua:167
+"expected ']' to close the table key" -- ./candran/can-parser/parser.lua:167
 }, -- ./candran/can-parser/parser.lua:167
-{ -- ./candran/can-parser/parser.lua:168
-"ErrDestructuringEqField", -- ./candran/can-parser/parser.lua:168
-"expected '=' after the table key in destructuring variable list" -- ./candran/can-parser/parser.lua:168
-}, -- ./candran/can-parser/parser.lua:168
 { -- ./candran/can-parser/parser.lua:169
-"ErrDestructuringExprField", -- ./candran/can-parser/parser.lua:169
-"expected an identifier after '=' in destructuring variable list" -- ./candran/can-parser/parser.lua:169
+"ErrCBraceDestructuring", -- ./candran/can-parser/parser.lua:169
+"expected '}' to close the destructuring variable list" -- ./candran/can-parser/parser.lua:169
 }, -- ./candran/can-parser/parser.lua:169
+{ -- ./candran/can-parser/parser.lua:170
+"ErrDestructuringEqField", -- ./candran/can-parser/parser.lua:170
+"expected '=' after the table key in destructuring variable list" -- ./candran/can-parser/parser.lua:170
+}, -- ./candran/can-parser/parser.lua:170
 { -- ./candran/can-parser/parser.lua:171
-"ErrCBracketTableCompr", -- ./candran/can-parser/parser.lua:171
-"expected ']' to close the table comprehension" -- ./candran/can-parser/parser.lua:171
+"ErrDestructuringExprField", -- ./candran/can-parser/parser.lua:171
+"expected an identifier after '=' in destructuring variable list" -- ./candran/can-parser/parser.lua:171
 }, -- ./candran/can-parser/parser.lua:171
 { -- ./candran/can-parser/parser.lua:173
-"ErrDigitHex", -- ./candran/can-parser/parser.lua:173
-"expected one or more hexadecimal digits after '0x'" -- ./candran/can-parser/parser.lua:173
+"ErrCBracketTableCompr", -- ./candran/can-parser/parser.lua:173
+"expected ']' to close the table comprehension" -- ./candran/can-parser/parser.lua:173
 }, -- ./candran/can-parser/parser.lua:173
-{ -- ./candran/can-parser/parser.lua:174
-"ErrDigitDeci", -- ./candran/can-parser/parser.lua:174
-"expected one or more digits after the decimal point" -- ./candran/can-parser/parser.lua:174
-}, -- ./candran/can-parser/parser.lua:174
 { -- ./candran/can-parser/parser.lua:175
-"ErrDigitExpo", -- ./candran/can-parser/parser.lua:175
-"expected one or more digits for the exponent" -- ./candran/can-parser/parser.lua:175
+"ErrDigitHex", -- ./candran/can-parser/parser.lua:175
+"expected one or more hexadecimal digits after '0x'" -- ./candran/can-parser/parser.lua:175
 }, -- ./candran/can-parser/parser.lua:175
+{ -- ./candran/can-parser/parser.lua:176
+"ErrDigitDeci", -- ./candran/can-parser/parser.lua:176
+"expected one or more digits after the decimal point" -- ./candran/can-parser/parser.lua:176
+}, -- ./candran/can-parser/parser.lua:176
 { -- ./candran/can-parser/parser.lua:177
-"ErrQuote", -- ./candran/can-parser/parser.lua:177
-"unclosed string" -- ./candran/can-parser/parser.lua:177
+"ErrDigitExpo", -- ./candran/can-parser/parser.lua:177
+"expected one or more digits for the exponent" -- ./candran/can-parser/parser.lua:177
 }, -- ./candran/can-parser/parser.lua:177
-{ -- ./candran/can-parser/parser.lua:178
-"ErrHexEsc", -- ./candran/can-parser/parser.lua:178
-"expected exactly two hexadecimal digits after '\\x'" -- ./candran/can-parser/parser.lua:178
-}, -- ./candran/can-parser/parser.lua:178
 { -- ./candran/can-parser/parser.lua:179
-"ErrOBraceUEsc", -- ./candran/can-parser/parser.lua:179
-"expected '{' after '\\u'" -- ./candran/can-parser/parser.lua:179
+"ErrQuote", -- ./candran/can-parser/parser.lua:179
+"unclosed string" -- ./candran/can-parser/parser.lua:179
 }, -- ./candran/can-parser/parser.lua:179
 { -- ./candran/can-parser/parser.lua:180
-"ErrDigitUEsc", -- ./candran/can-parser/parser.lua:180
-"expected one or more hexadecimal digits for the UTF-8 code point" -- ./candran/can-parser/parser.lua:180
+"ErrHexEsc", -- ./candran/can-parser/parser.lua:180
+"expected exactly two hexadecimal digits after '\\x'" -- ./candran/can-parser/parser.lua:180
 }, -- ./candran/can-parser/parser.lua:180
 { -- ./candran/can-parser/parser.lua:181
-"ErrCBraceUEsc", -- ./candran/can-parser/parser.lua:181
-"expected '}' after the code point" -- ./candran/can-parser/parser.lua:181
+"ErrOBraceUEsc", -- ./candran/can-parser/parser.lua:181
+"expected '{' after '\\u'" -- ./candran/can-parser/parser.lua:181
 }, -- ./candran/can-parser/parser.lua:181
 { -- ./candran/can-parser/parser.lua:182
-"ErrEscSeq", -- ./candran/can-parser/parser.lua:182
-"invalid escape sequence" -- ./candran/can-parser/parser.lua:182
+"ErrDigitUEsc", -- ./candran/can-parser/parser.lua:182
+"expected one or more hexadecimal digits for the UTF-8 code point" -- ./candran/can-parser/parser.lua:182
 }, -- ./candran/can-parser/parser.lua:182
 { -- ./candran/can-parser/parser.lua:183
-"ErrCloseLStr", -- ./candran/can-parser/parser.lua:183
-"unclosed long string" -- ./candran/can-parser/parser.lua:183
-} -- ./candran/can-parser/parser.lua:183
-} -- ./candran/can-parser/parser.lua:183
-local function throw(label) -- ./candran/can-parser/parser.lua:186
-label = "Err" .. label -- ./candran/can-parser/parser.lua:187
-for i, labelinfo in ipairs(labels) do -- ./candran/can-parser/parser.lua:188
-if labelinfo[1] == label then -- ./candran/can-parser/parser.lua:189
-return T(i) -- ./candran/can-parser/parser.lua:190
-end -- ./candran/can-parser/parser.lua:190
-end -- ./candran/can-parser/parser.lua:190
-error("Label not found: " .. label) -- ./candran/can-parser/parser.lua:194
-end -- ./candran/can-parser/parser.lua:194
-local function expect(patt, label) -- ./candran/can-parser/parser.lua:197
-return patt + throw(label) -- ./candran/can-parser/parser.lua:198
-end -- ./candran/can-parser/parser.lua:198
-local function token(patt) -- ./candran/can-parser/parser.lua:204
-return patt * V("Skip") -- ./candran/can-parser/parser.lua:205
-end -- ./candran/can-parser/parser.lua:205
-local function sym(str) -- ./candran/can-parser/parser.lua:208
-return token(P(str)) -- ./candran/can-parser/parser.lua:209
-end -- ./candran/can-parser/parser.lua:209
-local function kw(str) -- ./candran/can-parser/parser.lua:212
-return token(P(str) * - V("IdRest")) -- ./candran/can-parser/parser.lua:213
-end -- ./candran/can-parser/parser.lua:213
-local function tagC(tag, patt) -- ./candran/can-parser/parser.lua:216
-return Ct(Cg(Cp(), "pos") * Cg(Cc(tag), "tag") * patt) -- ./candran/can-parser/parser.lua:217
-end -- ./candran/can-parser/parser.lua:217
-local function unaryOp(op, e) -- ./candran/can-parser/parser.lua:220
-return { -- ./candran/can-parser/parser.lua:221
-["tag"] = "Op", -- ./candran/can-parser/parser.lua:221
-["pos"] = e["pos"], -- ./candran/can-parser/parser.lua:221
-[1] = op, -- ./candran/can-parser/parser.lua:221
-[2] = e -- ./candran/can-parser/parser.lua:221
-} -- ./candran/can-parser/parser.lua:221
-end -- ./candran/can-parser/parser.lua:221
-local function binaryOp(e1, op, e2) -- ./candran/can-parser/parser.lua:224
-if not op then -- ./candran/can-parser/parser.lua:225
-return e1 -- ./candran/can-parser/parser.lua:226
-else -- ./candran/can-parser/parser.lua:226
-return { -- ./candran/can-parser/parser.lua:228
-["tag"] = "Op", -- ./candran/can-parser/parser.lua:228
-["pos"] = e1["pos"], -- ./candran/can-parser/parser.lua:228
-[1] = op, -- ./candran/can-parser/parser.lua:228
-[2] = e1, -- ./candran/can-parser/parser.lua:228
-[3] = e2 -- ./candran/can-parser/parser.lua:228
-} -- ./candran/can-parser/parser.lua:228
-end -- ./candran/can-parser/parser.lua:228
-end -- ./candran/can-parser/parser.lua:228
-local function sepBy(patt, sep, label) -- ./candran/can-parser/parser.lua:232
-if label then -- ./candran/can-parser/parser.lua:233
-return patt * Cg(sep * expect(patt, label)) ^ 0 -- ./candran/can-parser/parser.lua:234
-else -- ./candran/can-parser/parser.lua:234
-return patt * Cg(sep * patt) ^ 0 -- ./candran/can-parser/parser.lua:236
-end -- ./candran/can-parser/parser.lua:236
-end -- ./candran/can-parser/parser.lua:236
-local function chainOp(patt, sep, label) -- ./candran/can-parser/parser.lua:240
-return Cf(sepBy(patt, sep, label), binaryOp) -- ./candran/can-parser/parser.lua:241
+"ErrCBraceUEsc", -- ./candran/can-parser/parser.lua:183
+"expected '}' after the code point" -- ./candran/can-parser/parser.lua:183
+}, -- ./candran/can-parser/parser.lua:183
+{ -- ./candran/can-parser/parser.lua:184
+"ErrEscSeq", -- ./candran/can-parser/parser.lua:184
+"invalid escape sequence" -- ./candran/can-parser/parser.lua:184
+}, -- ./candran/can-parser/parser.lua:184
+{ -- ./candran/can-parser/parser.lua:185
+"ErrCloseLStr", -- ./candran/can-parser/parser.lua:185
+"unclosed long string" -- ./candran/can-parser/parser.lua:185
+}, -- ./candran/can-parser/parser.lua:185
+{ -- ./candran/can-parser/parser.lua:187
+"ErrUnknownAttribute", -- ./candran/can-parser/parser.lua:187
+"unknown variable attribute" -- ./candran/can-parser/parser.lua:187
+}, -- ./candran/can-parser/parser.lua:187
+{ -- ./candran/can-parser/parser.lua:188
+"ErrCBracketAttribute", -- ./candran/can-parser/parser.lua:188
+"expected '>' to close the variable attribute" -- ./candran/can-parser/parser.lua:188
+} -- ./candran/can-parser/parser.lua:188
+} -- ./candran/can-parser/parser.lua:188
+local function throw(label) -- ./candran/can-parser/parser.lua:191
+label = "Err" .. label -- ./candran/can-parser/parser.lua:192
+for i, labelinfo in ipairs(labels) do -- ./candran/can-parser/parser.lua:193
+if labelinfo[1] == label then -- ./candran/can-parser/parser.lua:194
+return T(i) -- ./candran/can-parser/parser.lua:195
+end -- ./candran/can-parser/parser.lua:195
+end -- ./candran/can-parser/parser.lua:195
+error("Label not found: " .. label) -- ./candran/can-parser/parser.lua:199
+end -- ./candran/can-parser/parser.lua:199
+local function expect(patt, label) -- ./candran/can-parser/parser.lua:202
+return patt + throw(label) -- ./candran/can-parser/parser.lua:203
+end -- ./candran/can-parser/parser.lua:203
+local function token(patt) -- ./candran/can-parser/parser.lua:209
+return patt * V("Skip") -- ./candran/can-parser/parser.lua:210
+end -- ./candran/can-parser/parser.lua:210
+local function sym(str) -- ./candran/can-parser/parser.lua:213
+return token(P(str)) -- ./candran/can-parser/parser.lua:214
+end -- ./candran/can-parser/parser.lua:214
+local function kw(str) -- ./candran/can-parser/parser.lua:217
+return token(P(str) * - V("IdRest")) -- ./candran/can-parser/parser.lua:218
+end -- ./candran/can-parser/parser.lua:218
+local function tagC(tag, patt) -- ./candran/can-parser/parser.lua:221
+return Ct(Cg(Cp(), "pos") * Cg(Cc(tag), "tag") * patt) -- ./candran/can-parser/parser.lua:222
+end -- ./candran/can-parser/parser.lua:222
+local function unaryOp(op, e) -- ./candran/can-parser/parser.lua:225
+return { -- ./candran/can-parser/parser.lua:226
+["tag"] = "Op", -- ./candran/can-parser/parser.lua:226
+["pos"] = e["pos"], -- ./candran/can-parser/parser.lua:226
+[1] = op, -- ./candran/can-parser/parser.lua:226
+[2] = e -- ./candran/can-parser/parser.lua:226
+} -- ./candran/can-parser/parser.lua:226
+end -- ./candran/can-parser/parser.lua:226
+local function binaryOp(e1, op, e2) -- ./candran/can-parser/parser.lua:229
+if not op then -- ./candran/can-parser/parser.lua:230
+return e1 -- ./candran/can-parser/parser.lua:231
+else -- ./candran/can-parser/parser.lua:231
+return { -- ./candran/can-parser/parser.lua:233
+["tag"] = "Op", -- ./candran/can-parser/parser.lua:233
+["pos"] = e1["pos"], -- ./candran/can-parser/parser.lua:233
+[1] = op, -- ./candran/can-parser/parser.lua:233
+[2] = e1, -- ./candran/can-parser/parser.lua:233
+[3] = e2 -- ./candran/can-parser/parser.lua:233
+} -- ./candran/can-parser/parser.lua:233
+end -- ./candran/can-parser/parser.lua:233
+end -- ./candran/can-parser/parser.lua:233
+local function sepBy(patt, sep, label) -- ./candran/can-parser/parser.lua:237
+if label then -- ./candran/can-parser/parser.lua:238
+return patt * Cg(sep * expect(patt, label)) ^ 0 -- ./candran/can-parser/parser.lua:239
+else -- ./candran/can-parser/parser.lua:239
+return patt * Cg(sep * patt) ^ 0 -- ./candran/can-parser/parser.lua:241
 end -- ./candran/can-parser/parser.lua:241
-local function commaSep(patt, label) -- ./candran/can-parser/parser.lua:244
-return sepBy(patt, sym(","), label) -- ./candran/can-parser/parser.lua:245
-end -- ./candran/can-parser/parser.lua:245
-local function tagDo(block) -- ./candran/can-parser/parser.lua:248
-block["tag"] = "Do" -- ./candran/can-parser/parser.lua:249
-return block -- ./candran/can-parser/parser.lua:250
+end -- ./candran/can-parser/parser.lua:241
+local function chainOp(patt, sep, label) -- ./candran/can-parser/parser.lua:245
+return Cf(sepBy(patt, sep, label), binaryOp) -- ./candran/can-parser/parser.lua:246
+end -- ./candran/can-parser/parser.lua:246
+local function commaSep(patt, label) -- ./candran/can-parser/parser.lua:249
+return sepBy(patt, sym(","), label) -- ./candran/can-parser/parser.lua:250
 end -- ./candran/can-parser/parser.lua:250
-local function fixFuncStat(func) -- ./candran/can-parser/parser.lua:253
-if func[1]["is_method"] then -- ./candran/can-parser/parser.lua:254
-table["insert"](func[2][1], 1, { -- ./candran/can-parser/parser.lua:254
-["tag"] = "Id", -- ./candran/can-parser/parser.lua:254
-[1] = "self" -- ./candran/can-parser/parser.lua:254
-}) -- ./candran/can-parser/parser.lua:254
-end -- ./candran/can-parser/parser.lua:254
-func[1] = { func[1] } -- ./candran/can-parser/parser.lua:255
-func[2] = { func[2] } -- ./candran/can-parser/parser.lua:256
-return func -- ./candran/can-parser/parser.lua:257
-end -- ./candran/can-parser/parser.lua:257
-local function addDots(params, dots) -- ./candran/can-parser/parser.lua:260
-if dots then -- ./candran/can-parser/parser.lua:261
-table["insert"](params, dots) -- ./candran/can-parser/parser.lua:261
-end -- ./candran/can-parser/parser.lua:261
-return params -- ./candran/can-parser/parser.lua:262
+local function tagDo(block) -- ./candran/can-parser/parser.lua:253
+block["tag"] = "Do" -- ./candran/can-parser/parser.lua:254
+return block -- ./candran/can-parser/parser.lua:255
+end -- ./candran/can-parser/parser.lua:255
+local function fixFuncStat(func) -- ./candran/can-parser/parser.lua:258
+if func[1]["is_method"] then -- ./candran/can-parser/parser.lua:259
+table["insert"](func[2][1], 1, { -- ./candran/can-parser/parser.lua:259
+["tag"] = "Id", -- ./candran/can-parser/parser.lua:259
+[1] = "self" -- ./candran/can-parser/parser.lua:259
+}) -- ./candran/can-parser/parser.lua:259
+end -- ./candran/can-parser/parser.lua:259
+func[1] = { func[1] } -- ./candran/can-parser/parser.lua:260
+func[2] = { func[2] } -- ./candran/can-parser/parser.lua:261
+return func -- ./candran/can-parser/parser.lua:262
 end -- ./candran/can-parser/parser.lua:262
-local function insertIndex(t, index) -- ./candran/can-parser/parser.lua:265
-return { -- ./candran/can-parser/parser.lua:266
-["tag"] = "Index", -- ./candran/can-parser/parser.lua:266
-["pos"] = t["pos"], -- ./candran/can-parser/parser.lua:266
-[1] = t, -- ./candran/can-parser/parser.lua:266
-[2] = index -- ./candran/can-parser/parser.lua:266
-} -- ./candran/can-parser/parser.lua:266
+local function addDots(params, dots) -- ./candran/can-parser/parser.lua:265
+if dots then -- ./candran/can-parser/parser.lua:266
+table["insert"](params, dots) -- ./candran/can-parser/parser.lua:266
 end -- ./candran/can-parser/parser.lua:266
-local function markMethod(t, method) -- ./candran/can-parser/parser.lua:269
-if method then -- ./candran/can-parser/parser.lua:270
+return params -- ./candran/can-parser/parser.lua:267
+end -- ./candran/can-parser/parser.lua:267
+local function insertIndex(t, index) -- ./candran/can-parser/parser.lua:270
 return { -- ./candran/can-parser/parser.lua:271
 ["tag"] = "Index", -- ./candran/can-parser/parser.lua:271
 ["pos"] = t["pos"], -- ./candran/can-parser/parser.lua:271
-["is_method"] = true, -- ./candran/can-parser/parser.lua:271
 [1] = t, -- ./candran/can-parser/parser.lua:271
-[2] = method -- ./candran/can-parser/parser.lua:271
+[2] = index -- ./candran/can-parser/parser.lua:271
 } -- ./candran/can-parser/parser.lua:271
 end -- ./candran/can-parser/parser.lua:271
-return t -- ./candran/can-parser/parser.lua:273
-end -- ./candran/can-parser/parser.lua:273
-local function makeSuffixedExpr(t1, t2) -- ./candran/can-parser/parser.lua:276
-if t2["tag"] == "Call" or t2["tag"] == "SafeCall" then -- ./candran/can-parser/parser.lua:277
-local t = { -- ./candran/can-parser/parser.lua:278
-["tag"] = t2["tag"], -- ./candran/can-parser/parser.lua:278
-["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:278
-[1] = t1 -- ./candran/can-parser/parser.lua:278
-} -- ./candran/can-parser/parser.lua:278
-for k, v in ipairs(t2) do -- ./candran/can-parser/parser.lua:279
-table["insert"](t, v) -- ./candran/can-parser/parser.lua:280
-end -- ./candran/can-parser/parser.lua:280
-return t -- ./candran/can-parser/parser.lua:282
-elseif t2["tag"] == "MethodStub" or t2["tag"] == "SafeMethodStub" then -- ./candran/can-parser/parser.lua:283
-return { -- ./candran/can-parser/parser.lua:284
-["tag"] = t2["tag"], -- ./candran/can-parser/parser.lua:284
-["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:284
-[1] = t1, -- ./candran/can-parser/parser.lua:284
-[2] = t2[1] -- ./candran/can-parser/parser.lua:284
-} -- ./candran/can-parser/parser.lua:284
-elseif t2["tag"] == "SafeDotIndex" or t2["tag"] == "SafeArrayIndex" then -- ./candran/can-parser/parser.lua:285
-return { -- ./candran/can-parser/parser.lua:286
-["tag"] = "SafeIndex", -- ./candran/can-parser/parser.lua:286
-["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:286
-[1] = t1, -- ./candran/can-parser/parser.lua:286
-[2] = t2[1] -- ./candran/can-parser/parser.lua:286
-} -- ./candran/can-parser/parser.lua:286
-elseif t2["tag"] == "DotIndex" or t2["tag"] == "ArrayIndex" then -- ./candran/can-parser/parser.lua:287
-return { -- ./candran/can-parser/parser.lua:288
-["tag"] = "Index", -- ./candran/can-parser/parser.lua:288
-["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:288
-[1] = t1, -- ./candran/can-parser/parser.lua:288
-[2] = t2[1] -- ./candran/can-parser/parser.lua:288
-} -- ./candran/can-parser/parser.lua:288
-else -- ./candran/can-parser/parser.lua:288
-error("unexpected tag in suffixed expression") -- ./candran/can-parser/parser.lua:290
-end -- ./candran/can-parser/parser.lua:290
-end -- ./candran/can-parser/parser.lua:290
-local function fixShortFunc(t) -- ./candran/can-parser/parser.lua:294
-if t[1] == ":" then -- ./candran/can-parser/parser.lua:295
-table["insert"](t[2], 1, { -- ./candran/can-parser/parser.lua:296
-["tag"] = "Id", -- ./candran/can-parser/parser.lua:296
-"self" -- ./candran/can-parser/parser.lua:296
-}) -- ./candran/can-parser/parser.lua:296
-table["remove"](t, 1) -- ./candran/can-parser/parser.lua:297
-t["is_method"] = true -- ./candran/can-parser/parser.lua:298
-end -- ./candran/can-parser/parser.lua:298
-t["is_short"] = true -- ./candran/can-parser/parser.lua:300
-return t -- ./candran/can-parser/parser.lua:301
-end -- ./candran/can-parser/parser.lua:301
-local function statToExpr(t) -- ./candran/can-parser/parser.lua:304
-t["tag"] = t["tag"] .. "Expr" -- ./candran/can-parser/parser.lua:305
+local function markMethod(t, method) -- ./candran/can-parser/parser.lua:274
+if method then -- ./candran/can-parser/parser.lua:275
+return { -- ./candran/can-parser/parser.lua:276
+["tag"] = "Index", -- ./candran/can-parser/parser.lua:276
+["pos"] = t["pos"], -- ./candran/can-parser/parser.lua:276
+["is_method"] = true, -- ./candran/can-parser/parser.lua:276
+[1] = t, -- ./candran/can-parser/parser.lua:276
+[2] = method -- ./candran/can-parser/parser.lua:276
+} -- ./candran/can-parser/parser.lua:276
+end -- ./candran/can-parser/parser.lua:276
+return t -- ./candran/can-parser/parser.lua:278
+end -- ./candran/can-parser/parser.lua:278
+local function makeSuffixedExpr(t1, t2) -- ./candran/can-parser/parser.lua:281
+if t2["tag"] == "Call" or t2["tag"] == "SafeCall" then -- ./candran/can-parser/parser.lua:282
+local t = { -- ./candran/can-parser/parser.lua:283
+["tag"] = t2["tag"], -- ./candran/can-parser/parser.lua:283
+["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:283
+[1] = t1 -- ./candran/can-parser/parser.lua:283
+} -- ./candran/can-parser/parser.lua:283
+for k, v in ipairs(t2) do -- ./candran/can-parser/parser.lua:284
+table["insert"](t, v) -- ./candran/can-parser/parser.lua:285
+end -- ./candran/can-parser/parser.lua:285
+return t -- ./candran/can-parser/parser.lua:287
+elseif t2["tag"] == "MethodStub" or t2["tag"] == "SafeMethodStub" then -- ./candran/can-parser/parser.lua:288
+return { -- ./candran/can-parser/parser.lua:289
+["tag"] = t2["tag"], -- ./candran/can-parser/parser.lua:289
+["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:289
+[1] = t1, -- ./candran/can-parser/parser.lua:289
+[2] = t2[1] -- ./candran/can-parser/parser.lua:289
+} -- ./candran/can-parser/parser.lua:289
+elseif t2["tag"] == "SafeDotIndex" or t2["tag"] == "SafeArrayIndex" then -- ./candran/can-parser/parser.lua:290
+return { -- ./candran/can-parser/parser.lua:291
+["tag"] = "SafeIndex", -- ./candran/can-parser/parser.lua:291
+["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:291
+[1] = t1, -- ./candran/can-parser/parser.lua:291
+[2] = t2[1] -- ./candran/can-parser/parser.lua:291
+} -- ./candran/can-parser/parser.lua:291
+elseif t2["tag"] == "DotIndex" or t2["tag"] == "ArrayIndex" then -- ./candran/can-parser/parser.lua:292
+return { -- ./candran/can-parser/parser.lua:293
+["tag"] = "Index", -- ./candran/can-parser/parser.lua:293
+["pos"] = t1["pos"], -- ./candran/can-parser/parser.lua:293
+[1] = t1, -- ./candran/can-parser/parser.lua:293
+[2] = t2[1] -- ./candran/can-parser/parser.lua:293
+} -- ./candran/can-parser/parser.lua:293
+else -- ./candran/can-parser/parser.lua:293
+error("unexpected tag in suffixed expression") -- ./candran/can-parser/parser.lua:295
+end -- ./candran/can-parser/parser.lua:295
+end -- ./candran/can-parser/parser.lua:295
+local function fixShortFunc(t) -- ./candran/can-parser/parser.lua:299
+if t[1] == ":" then -- ./candran/can-parser/parser.lua:300
+table["insert"](t[2], 1, { -- ./candran/can-parser/parser.lua:301
+["tag"] = "Id", -- ./candran/can-parser/parser.lua:301
+"self" -- ./candran/can-parser/parser.lua:301
+}) -- ./candran/can-parser/parser.lua:301
+table["remove"](t, 1) -- ./candran/can-parser/parser.lua:302
+t["is_method"] = true -- ./candran/can-parser/parser.lua:303
+end -- ./candran/can-parser/parser.lua:303
+t["is_short"] = true -- ./candran/can-parser/parser.lua:305
 return t -- ./candran/can-parser/parser.lua:306
 end -- ./candran/can-parser/parser.lua:306
-local function fixStructure(t) -- ./candran/can-parser/parser.lua:309
-local i = 1 -- ./candran/can-parser/parser.lua:310
-while i <= # t do -- ./candran/can-parser/parser.lua:311
-if type(t[i]) == "table" then -- ./candran/can-parser/parser.lua:312
-fixStructure(t[i]) -- ./candran/can-parser/parser.lua:313
-for j = # t[i], 1, - 1 do -- ./candran/can-parser/parser.lua:314
-local stat = t[i][j] -- ./candran/can-parser/parser.lua:315
-if type(stat) == "table" and stat["move_up_block"] and stat["move_up_block"] > 0 then -- ./candran/can-parser/parser.lua:316
-table["remove"](t[i], j) -- ./candran/can-parser/parser.lua:317
-table["insert"](t, i + 1, stat) -- ./candran/can-parser/parser.lua:318
-if t["tag"] == "Block" or t["tag"] == "Do" then -- ./candran/can-parser/parser.lua:319
-stat["move_up_block"] = stat["move_up_block"] - 1 -- ./candran/can-parser/parser.lua:320
-end -- ./candran/can-parser/parser.lua:320
-end -- ./candran/can-parser/parser.lua:320
-end -- ./candran/can-parser/parser.lua:320
-end -- ./candran/can-parser/parser.lua:320
-i = i + 1 -- ./candran/can-parser/parser.lua:325
+local function statToExpr(t) -- ./candran/can-parser/parser.lua:309
+t["tag"] = t["tag"] .. "Expr" -- ./candran/can-parser/parser.lua:310
+return t -- ./candran/can-parser/parser.lua:311
+end -- ./candran/can-parser/parser.lua:311
+local function fixStructure(t) -- ./candran/can-parser/parser.lua:314
+local i = 1 -- ./candran/can-parser/parser.lua:315
+while i <= # t do -- ./candran/can-parser/parser.lua:316
+if type(t[i]) == "table" then -- ./candran/can-parser/parser.lua:317
+fixStructure(t[i]) -- ./candran/can-parser/parser.lua:318
+for j = # t[i], 1, - 1 do -- ./candran/can-parser/parser.lua:319
+local stat = t[i][j] -- ./candran/can-parser/parser.lua:320
+if type(stat) == "table" and stat["move_up_block"] and stat["move_up_block"] > 0 then -- ./candran/can-parser/parser.lua:321
+table["remove"](t[i], j) -- ./candran/can-parser/parser.lua:322
+table["insert"](t, i + 1, stat) -- ./candran/can-parser/parser.lua:323
+if t["tag"] == "Block" or t["tag"] == "Do" then -- ./candran/can-parser/parser.lua:324
+stat["move_up_block"] = stat["move_up_block"] - 1 -- ./candran/can-parser/parser.lua:325
 end -- ./candran/can-parser/parser.lua:325
-return t -- ./candran/can-parser/parser.lua:327
-end -- ./candran/can-parser/parser.lua:327
-local function searchEndRec(block, isRecCall) -- ./candran/can-parser/parser.lua:330
-for i, stat in ipairs(block) do -- ./candran/can-parser/parser.lua:331
-if stat["tag"] == "Set" or stat["tag"] == "Push" or stat["tag"] == "Return" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:333
-local exprlist -- ./candran/can-parser/parser.lua:334
-if stat["tag"] == "Set" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:336
-exprlist = stat[# stat] -- ./candran/can-parser/parser.lua:337
-elseif stat["tag"] == "Push" or stat["tag"] == "Return" then -- ./candran/can-parser/parser.lua:338
-exprlist = stat -- ./candran/can-parser/parser.lua:339
-end -- ./candran/can-parser/parser.lua:339
-local last = exprlist[# exprlist] -- ./candran/can-parser/parser.lua:342
-if last["tag"] == "Function" and last["is_short"] and not last["is_method"] and # last[1] == 1 then -- ./candran/can-parser/parser.lua:346
-local p = i -- ./candran/can-parser/parser.lua:347
-for j, fstat in ipairs(last[2]) do -- ./candran/can-parser/parser.lua:348
-p = i + j -- ./candran/can-parser/parser.lua:349
-table["insert"](block, p, fstat) -- ./candran/can-parser/parser.lua:350
-if stat["move_up_block"] then -- ./candran/can-parser/parser.lua:352
-fstat["move_up_block"] = (fstat["move_up_block"] or 0) + stat["move_up_block"] -- ./candran/can-parser/parser.lua:353
-end -- ./candran/can-parser/parser.lua:353
-if block["is_singlestatblock"] then -- ./candran/can-parser/parser.lua:356
-fstat["move_up_block"] = (fstat["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:357
-end -- ./candran/can-parser/parser.lua:357
-end -- ./candran/can-parser/parser.lua:357
-exprlist[# exprlist] = last[1] -- ./candran/can-parser/parser.lua:361
-exprlist[# exprlist]["tag"] = "Paren" -- ./candran/can-parser/parser.lua:362
-if not isRecCall then -- ./candran/can-parser/parser.lua:364
-for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:365
-block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:366
-end -- ./candran/can-parser/parser.lua:366
-end -- ./candran/can-parser/parser.lua:366
-return block, i -- ./candran/can-parser/parser.lua:370
-elseif last["tag"]:match("Expr$") then -- ./candran/can-parser/parser.lua:373
-local r = searchEndRec({ last }) -- ./candran/can-parser/parser.lua:374
-if r then -- ./candran/can-parser/parser.lua:375
-for j = 2, # r, 1 do -- ./candran/can-parser/parser.lua:376
-table["insert"](block, i + j - 1, r[j]) -- ./candran/can-parser/parser.lua:377
-end -- ./candran/can-parser/parser.lua:377
-return block, i -- ./candran/can-parser/parser.lua:379
-end -- ./candran/can-parser/parser.lua:379
-elseif last["tag"] == "Function" then -- ./candran/can-parser/parser.lua:381
-local r = searchEndRec(last[2]) -- ./candran/can-parser/parser.lua:382
-if r then -- ./candran/can-parser/parser.lua:383
+end -- ./candran/can-parser/parser.lua:325
+end -- ./candran/can-parser/parser.lua:325
+end -- ./candran/can-parser/parser.lua:325
+i = i + 1 -- ./candran/can-parser/parser.lua:330
+end -- ./candran/can-parser/parser.lua:330
+return t -- ./candran/can-parser/parser.lua:332
+end -- ./candran/can-parser/parser.lua:332
+local function searchEndRec(block, isRecCall) -- ./candran/can-parser/parser.lua:335
+for i, stat in ipairs(block) do -- ./candran/can-parser/parser.lua:336
+if stat["tag"] == "Set" or stat["tag"] == "Push" or stat["tag"] == "Return" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:338
+local exprlist -- ./candran/can-parser/parser.lua:339
+if stat["tag"] == "Set" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:341
+exprlist = stat[# stat] -- ./candran/can-parser/parser.lua:342
+elseif stat["tag"] == "Push" or stat["tag"] == "Return" then -- ./candran/can-parser/parser.lua:343
+exprlist = stat -- ./candran/can-parser/parser.lua:344
+end -- ./candran/can-parser/parser.lua:344
+local last = exprlist[# exprlist] -- ./candran/can-parser/parser.lua:347
+if last["tag"] == "Function" and last["is_short"] and not last["is_method"] and # last[1] == 1 then -- ./candran/can-parser/parser.lua:351
+local p = i -- ./candran/can-parser/parser.lua:352
+for j, fstat in ipairs(last[2]) do -- ./candran/can-parser/parser.lua:353
+p = i + j -- ./candran/can-parser/parser.lua:354
+table["insert"](block, p, fstat) -- ./candran/can-parser/parser.lua:355
+if stat["move_up_block"] then -- ./candran/can-parser/parser.lua:357
+fstat["move_up_block"] = (fstat["move_up_block"] or 0) + stat["move_up_block"] -- ./candran/can-parser/parser.lua:358
+end -- ./candran/can-parser/parser.lua:358
+if block["is_singlestatblock"] then -- ./candran/can-parser/parser.lua:361
+fstat["move_up_block"] = (fstat["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:362
+end -- ./candran/can-parser/parser.lua:362
+end -- ./candran/can-parser/parser.lua:362
+exprlist[# exprlist] = last[1] -- ./candran/can-parser/parser.lua:366
+exprlist[# exprlist]["tag"] = "Paren" -- ./candran/can-parser/parser.lua:367
+if not isRecCall then -- ./candran/can-parser/parser.lua:369
+for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:370
+block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:371
+end -- ./candran/can-parser/parser.lua:371
+end -- ./candran/can-parser/parser.lua:371
+return block, i -- ./candran/can-parser/parser.lua:375
+elseif last["tag"]:match("Expr$") then -- ./candran/can-parser/parser.lua:378
+local r = searchEndRec({ last }) -- ./candran/can-parser/parser.lua:379
+if r then -- ./candran/can-parser/parser.lua:380
+for j = 2, # r, 1 do -- ./candran/can-parser/parser.lua:381
+table["insert"](block, i + j - 1, r[j]) -- ./candran/can-parser/parser.lua:382
+end -- ./candran/can-parser/parser.lua:382
 return block, i -- ./candran/can-parser/parser.lua:384
 end -- ./candran/can-parser/parser.lua:384
-end -- ./candran/can-parser/parser.lua:384
-elseif stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Do") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:389
-local blocks -- ./candran/can-parser/parser.lua:390
-if stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:392
-blocks = stat -- ./candran/can-parser/parser.lua:393
-elseif stat["tag"]:match("^Do") then -- ./candran/can-parser/parser.lua:394
-blocks = { stat } -- ./candran/can-parser/parser.lua:395
-end -- ./candran/can-parser/parser.lua:395
-for _, iblock in ipairs(blocks) do -- ./candran/can-parser/parser.lua:398
-if iblock["tag"] == "Block" then -- ./candran/can-parser/parser.lua:399
-local oldLen = # iblock -- ./candran/can-parser/parser.lua:400
-local newiBlock, newEnd = searchEndRec(iblock, true) -- ./candran/can-parser/parser.lua:401
-if newiBlock then -- ./candran/can-parser/parser.lua:402
-local p = i -- ./candran/can-parser/parser.lua:403
-for j = newEnd + (# iblock - oldLen) + 1, # iblock, 1 do -- ./candran/can-parser/parser.lua:404
-p = p + 1 -- ./candran/can-parser/parser.lua:405
-table["insert"](block, p, iblock[j]) -- ./candran/can-parser/parser.lua:406
-iblock[j] = nil -- ./candran/can-parser/parser.lua:407
-end -- ./candran/can-parser/parser.lua:407
-if not isRecCall then -- ./candran/can-parser/parser.lua:410
-for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:411
-block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:412
+elseif last["tag"] == "Function" then -- ./candran/can-parser/parser.lua:386
+local r = searchEndRec(last[2]) -- ./candran/can-parser/parser.lua:387
+if r then -- ./candran/can-parser/parser.lua:388
+return block, i -- ./candran/can-parser/parser.lua:389
+end -- ./candran/can-parser/parser.lua:389
+end -- ./candran/can-parser/parser.lua:389
+elseif stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Do") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:394
+local blocks -- ./candran/can-parser/parser.lua:395
+if stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:397
+blocks = stat -- ./candran/can-parser/parser.lua:398
+elseif stat["tag"]:match("^Do") then -- ./candran/can-parser/parser.lua:399
+blocks = { stat } -- ./candran/can-parser/parser.lua:400
+end -- ./candran/can-parser/parser.lua:400
+for _, iblock in ipairs(blocks) do -- ./candran/can-parser/parser.lua:403
+if iblock["tag"] == "Block" then -- ./candran/can-parser/parser.lua:404
+local oldLen = # iblock -- ./candran/can-parser/parser.lua:405
+local newiBlock, newEnd = searchEndRec(iblock, true) -- ./candran/can-parser/parser.lua:406
+if newiBlock then -- ./candran/can-parser/parser.lua:407
+local p = i -- ./candran/can-parser/parser.lua:408
+for j = newEnd + (# iblock - oldLen) + 1, # iblock, 1 do -- ./candran/can-parser/parser.lua:409
+p = p + 1 -- ./candran/can-parser/parser.lua:410
+table["insert"](block, p, iblock[j]) -- ./candran/can-parser/parser.lua:411
+iblock[j] = nil -- ./candran/can-parser/parser.lua:412
 end -- ./candran/can-parser/parser.lua:412
-end -- ./candran/can-parser/parser.lua:412
-return block, i -- ./candran/can-parser/parser.lua:416
-end -- ./candran/can-parser/parser.lua:416
-end -- ./candran/can-parser/parser.lua:416
-end -- ./candran/can-parser/parser.lua:416
-end -- ./candran/can-parser/parser.lua:416
-end -- ./candran/can-parser/parser.lua:416
-return nil -- ./candran/can-parser/parser.lua:422
-end -- ./candran/can-parser/parser.lua:422
-local function searchEnd(s, p, t) -- ./candran/can-parser/parser.lua:425
-local r = searchEndRec(fixStructure(t)) -- ./candran/can-parser/parser.lua:426
-if not r then -- ./candran/can-parser/parser.lua:427
-return false -- ./candran/can-parser/parser.lua:428
-end -- ./candran/can-parser/parser.lua:428
-return true, r -- ./candran/can-parser/parser.lua:430
-end -- ./candran/can-parser/parser.lua:430
-local function expectBlockOrSingleStatWithStartEnd(start, startLabel, stopLabel, canFollow) -- ./candran/can-parser/parser.lua:433
-if canFollow then -- ./candran/can-parser/parser.lua:434
-return (- start * V("SingleStatBlock") * canFollow ^ - 1) + (expect(start, startLabel) * ((V("Block") * (canFollow + kw("end"))) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:437
-else -- ./candran/can-parser/parser.lua:437
-return (- start * V("SingleStatBlock")) + (expect(start, startLabel) * ((V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:441
-end -- ./candran/can-parser/parser.lua:441
-end -- ./candran/can-parser/parser.lua:441
-local function expectBlockWithEnd(label) -- ./candran/can-parser/parser.lua:445
-return (V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(label)) -- ./candran/can-parser/parser.lua:447
-end -- ./candran/can-parser/parser.lua:447
-local function maybeBlockWithEnd() -- ./candran/can-parser/parser.lua:450
-return (V("BlockNoErr") * kw("end")) + Cmt(V("BlockNoErr"), searchEnd) -- ./candran/can-parser/parser.lua:452
+if not isRecCall then -- ./candran/can-parser/parser.lua:415
+for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:416
+block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:417
+end -- ./candran/can-parser/parser.lua:417
+end -- ./candran/can-parser/parser.lua:417
+return block, i -- ./candran/can-parser/parser.lua:421
+end -- ./candran/can-parser/parser.lua:421
+end -- ./candran/can-parser/parser.lua:421
+end -- ./candran/can-parser/parser.lua:421
+end -- ./candran/can-parser/parser.lua:421
+end -- ./candran/can-parser/parser.lua:421
+return nil -- ./candran/can-parser/parser.lua:427
+end -- ./candran/can-parser/parser.lua:427
+local function searchEnd(s, p, t) -- ./candran/can-parser/parser.lua:430
+local r = searchEndRec(fixStructure(t)) -- ./candran/can-parser/parser.lua:431
+if not r then -- ./candran/can-parser/parser.lua:432
+return false -- ./candran/can-parser/parser.lua:433
+end -- ./candran/can-parser/parser.lua:433
+return true, r -- ./candran/can-parser/parser.lua:435
+end -- ./candran/can-parser/parser.lua:435
+local function expectBlockOrSingleStatWithStartEnd(start, startLabel, stopLabel, canFollow) -- ./candran/can-parser/parser.lua:438
+if canFollow then -- ./candran/can-parser/parser.lua:439
+return (- start * V("SingleStatBlock") * canFollow ^ - 1) + (expect(start, startLabel) * ((V("Block") * (canFollow + kw("end"))) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:442
+else -- ./candran/can-parser/parser.lua:442
+return (- start * V("SingleStatBlock")) + (expect(start, startLabel) * ((V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:446
+end -- ./candran/can-parser/parser.lua:446
+end -- ./candran/can-parser/parser.lua:446
+local function expectBlockWithEnd(label) -- ./candran/can-parser/parser.lua:450
+return (V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(label)) -- ./candran/can-parser/parser.lua:452
 end -- ./candran/can-parser/parser.lua:452
-local function maybe(patt) -- ./candran/can-parser/parser.lua:455
-return # patt / 0 * patt -- ./candran/can-parser/parser.lua:456
-end -- ./candran/can-parser/parser.lua:456
-local stacks = { ["lexpr"] = {} } -- ./candran/can-parser/parser.lua:460
-local function push(f) -- ./candran/can-parser/parser.lua:462
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:463
-table["insert"](stacks[f], true) -- ./candran/can-parser/parser.lua:464
-return true -- ./candran/can-parser/parser.lua:465
-end) -- ./candran/can-parser/parser.lua:465
-end -- ./candran/can-parser/parser.lua:465
-local function pop(f) -- ./candran/can-parser/parser.lua:468
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:469
-table["remove"](stacks[f]) -- ./candran/can-parser/parser.lua:470
-return true -- ./candran/can-parser/parser.lua:471
-end) -- ./candran/can-parser/parser.lua:471
-end -- ./candran/can-parser/parser.lua:471
-local function when(f) -- ./candran/can-parser/parser.lua:474
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:475
-return # stacks[f] > 0 -- ./candran/can-parser/parser.lua:476
-end) -- ./candran/can-parser/parser.lua:476
-end -- ./candran/can-parser/parser.lua:476
-local function set(f, patt) -- ./candran/can-parser/parser.lua:479
-return push(f) * patt * pop(f) -- ./candran/can-parser/parser.lua:480
-end -- ./candran/can-parser/parser.lua:480
-local G = { -- ./candran/can-parser/parser.lua:484
-V("Lua"), -- ./candran/can-parser/parser.lua:484
-["Lua"] = (V("Shebang") ^ - 1 * V("Skip") * V("Block") * expect(P(- 1), "Extra")) / fixStructure, -- ./candran/can-parser/parser.lua:485
+local function maybeBlockWithEnd() -- ./candran/can-parser/parser.lua:455
+return (V("BlockNoErr") * kw("end")) + Cmt(V("BlockNoErr"), searchEnd) -- ./candran/can-parser/parser.lua:457
+end -- ./candran/can-parser/parser.lua:457
+local function maybe(patt) -- ./candran/can-parser/parser.lua:460
+return # patt / 0 * patt -- ./candran/can-parser/parser.lua:461
+end -- ./candran/can-parser/parser.lua:461
+local function setAttribute(attribute) -- ./candran/can-parser/parser.lua:464
+return function(assign) -- ./candran/can-parser/parser.lua:465
+assign[1]["tag"] = "AttributeNameList" -- ./candran/can-parser/parser.lua:466
+for _, id in ipairs(assign[1]) do -- ./candran/can-parser/parser.lua:467
+if id["tag"] == "Id" then -- ./candran/can-parser/parser.lua:468
+id["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:469
+id[2] = attribute -- ./candran/can-parser/parser.lua:470
+elseif id["tag"] == "DestructuringId" then -- ./candran/can-parser/parser.lua:471
+for _, did in ipairs(id) do -- ./candran/can-parser/parser.lua:472
+did["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:473
+did[2] = attribute -- ./candran/can-parser/parser.lua:474
+end -- ./candran/can-parser/parser.lua:474
+end -- ./candran/can-parser/parser.lua:474
+end -- ./candran/can-parser/parser.lua:474
+return assign -- ./candran/can-parser/parser.lua:478
+end -- ./candran/can-parser/parser.lua:478
+end -- ./candran/can-parser/parser.lua:478
+local stacks = { ["lexpr"] = {} } -- ./candran/can-parser/parser.lua:483
+local function push(f) -- ./candran/can-parser/parser.lua:485
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:486
+table["insert"](stacks[f], true) -- ./candran/can-parser/parser.lua:487
+return true -- ./candran/can-parser/parser.lua:488
+end) -- ./candran/can-parser/parser.lua:488
+end -- ./candran/can-parser/parser.lua:488
+local function pop(f) -- ./candran/can-parser/parser.lua:491
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:492
+table["remove"](stacks[f]) -- ./candran/can-parser/parser.lua:493
+return true -- ./candran/can-parser/parser.lua:494
+end) -- ./candran/can-parser/parser.lua:494
+end -- ./candran/can-parser/parser.lua:494
+local function when(f) -- ./candran/can-parser/parser.lua:497
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:498
+return # stacks[f] > 0 -- ./candran/can-parser/parser.lua:499
+end) -- ./candran/can-parser/parser.lua:499
+end -- ./candran/can-parser/parser.lua:499
+local function set(f, patt) -- ./candran/can-parser/parser.lua:502
+return push(f) * patt * pop(f) -- ./candran/can-parser/parser.lua:503
+end -- ./candran/can-parser/parser.lua:503
+local G = { -- ./candran/can-parser/parser.lua:507
+V("Lua"), -- ./candran/can-parser/parser.lua:507
+["Lua"] = (V("Shebang") ^ - 1 * V("Skip") * V("Block") * expect(P(- 1), "Extra")) / fixStructure, -- ./candran/can-parser/parser.lua:508
 ["Shebang"] = P("#!") * (P(1) - P("\
-")) ^ 0, -- ./candran/can-parser/parser.lua:486
-["Block"] = tagC("Block", (V("Stat") + - V("BlockEnd") * throw("InvalidStat")) ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:488
-["Stat"] = V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat") + V("LocalStat") + V("FuncStat") + V("BreakStat") + V("LabelStat") + V("GoToStat") + V("LetStat") + V("FuncCall") + V("Assignment") + V("ContinueStat") + V("PushStat") + sym(";"), -- ./candran/can-parser/parser.lua:494
-["BlockEnd"] = P("return") + "end" + "elseif" + "else" + "until" + "]" + - 1 + V("ImplicitPushStat") + V("Assignment"), -- ./candran/can-parser/parser.lua:495
-["SingleStatBlock"] = tagC("Block", V("Stat") + V("RetStat") + V("ImplicitPushStat")) / function(t) -- ./candran/can-parser/parser.lua:497
-t["is_singlestatblock"] = true -- ./candran/can-parser/parser.lua:497
-return t -- ./candran/can-parser/parser.lua:497
-end, -- ./candran/can-parser/parser.lua:497
-["BlockNoErr"] = tagC("Block", V("Stat") ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:498
-["IfStat"] = tagC("If", V("IfPart")), -- ./candran/can-parser/parser.lua:500
-["IfPart"] = kw("if") * set("lexpr", expect(V("Expr"), "ExprIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:501
-["ElseIfPart"] = kw("elseif") * set("lexpr", expect(V("Expr"), "ExprEIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenEIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:502
-["ElsePart"] = kw("else") * expectBlockWithEnd("EndIf"), -- ./candran/can-parser/parser.lua:503
-["DoStat"] = kw("do") * expectBlockWithEnd("EndDo") / tagDo, -- ./candran/can-parser/parser.lua:505
-["WhileStat"] = tagC("While", kw("while") * set("lexpr", expect(V("Expr"), "ExprWhile")) * V("WhileBody")), -- ./candran/can-parser/parser.lua:506
-["WhileBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoWhile", "EndWhile"), -- ./candran/can-parser/parser.lua:507
-["RepeatStat"] = tagC("Repeat", kw("repeat") * V("Block") * expect(kw("until"), "UntilRep") * expect(V("Expr"), "ExprRep")), -- ./candran/can-parser/parser.lua:508
-["ForStat"] = kw("for") * expect(V("ForNum") + V("ForIn"), "ForRange"), -- ./candran/can-parser/parser.lua:510
-["ForNum"] = tagC("Fornum", V("Id") * sym("=") * V("NumRange") * V("ForBody")), -- ./candran/can-parser/parser.lua:511
-["NumRange"] = expect(V("Expr"), "ExprFor1") * expect(sym(","), "CommaFor") * expect(V("Expr"), "ExprFor2") * (sym(",") * expect(V("Expr"), "ExprFor3")) ^ - 1, -- ./candran/can-parser/parser.lua:513
-["ForIn"] = tagC("Forin", V("DestructuringNameList") * expect(kw("in"), "InFor") * expect(V("ExprList"), "EListFor") * V("ForBody")), -- ./candran/can-parser/parser.lua:514
-["ForBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoFor", "EndFor"), -- ./candran/can-parser/parser.lua:515
-["LocalStat"] = kw("local") * expect(V("LocalFunc") + V("LocalAssign"), "DefLocal"), -- ./candran/can-parser/parser.lua:517
-["LocalFunc"] = tagC("Localrec", kw("function") * expect(V("Id"), "NameLFunc") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:518
-["LocalAssign"] = tagC("Local", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:520
-["LetStat"] = kw("let") * expect(V("LetAssign"), "DefLet"), -- ./candran/can-parser/parser.lua:522
-["LetAssign"] = tagC("Let", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Let", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:524
-["Assignment"] = tagC("Set", (V("VarList") + V("DestructuringNameList")) * V("BinOp") ^ - 1 * (P("=") / "=") * ((V("BinOp") - P("-")) + # (P("-") * V("Space")) * V("BinOp")) ^ - 1 * V("Skip") * expect(V("ExprList"), "EListAssign")), -- ./candran/can-parser/parser.lua:526
-["FuncStat"] = tagC("Set", kw("function") * expect(V("FuncName"), "FuncName") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:528
-["FuncName"] = Cf(V("Id") * (sym(".") * expect(V("StrId"), "NameFunc1")) ^ 0, insertIndex) * (sym(":") * expect(V("StrId"), "NameFunc2")) ^ - 1 / markMethod, -- ./candran/can-parser/parser.lua:530
-["FuncBody"] = tagC("Function", V("FuncParams") * expectBlockWithEnd("EndFunc")), -- ./candran/can-parser/parser.lua:531
-["FuncParams"] = expect(sym("("), "OParenPList") * V("ParList") * expect(sym(")"), "CParenPList"), -- ./candran/can-parser/parser.lua:532
-["ParList"] = V("NamedParList") * (sym(",") * expect(tagC("Dots", sym("...")), "ParList")) ^ - 1 / addDots + Ct(tagC("Dots", sym("..."))) + Ct(Cc()), -- ./candran/can-parser/parser.lua:535
-["ShortFuncDef"] = tagC("Function", V("ShortFuncParams") * maybeBlockWithEnd()) / fixShortFunc, -- ./candran/can-parser/parser.lua:537
-["ShortFuncParams"] = (sym(":") / ":") ^ - 1 * sym("(") * V("ParList") * sym(")"), -- ./candran/can-parser/parser.lua:538
-["NamedParList"] = tagC("NamedParList", commaSep(V("NamedPar"))), -- ./candran/can-parser/parser.lua:540
-["NamedPar"] = tagC("ParPair", V("ParKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:542
-["ParKey"] = V("Id") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:543
-["LabelStat"] = tagC("Label", sym("::") * expect(V("Name"), "Label") * expect(sym("::"), "CloseLabel")), -- ./candran/can-parser/parser.lua:545
-["GoToStat"] = tagC("Goto", kw("goto") * expect(V("Name"), "Goto")), -- ./candran/can-parser/parser.lua:546
-["BreakStat"] = tagC("Break", kw("break")), -- ./candran/can-parser/parser.lua:547
-["ContinueStat"] = tagC("Continue", kw("continue")), -- ./candran/can-parser/parser.lua:548
-["RetStat"] = tagC("Return", kw("return") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:549
-["PushStat"] = tagC("Push", kw("push") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:551
-["ImplicitPushStat"] = tagC("Push", commaSep(V("Expr"), "RetList")), -- ./candran/can-parser/parser.lua:552
-["NameList"] = tagC("NameList", commaSep(V("Id"))), -- ./candran/can-parser/parser.lua:554
-["DestructuringNameList"] = tagC("NameList", commaSep(V("DestructuringId"))), -- ./candran/can-parser/parser.lua:555
-["VarList"] = tagC("VarList", commaSep(V("VarExpr"))), -- ./candran/can-parser/parser.lua:556
-["ExprList"] = tagC("ExpList", commaSep(V("Expr"), "ExprList")), -- ./candran/can-parser/parser.lua:557
-["DestructuringId"] = tagC("DestructuringId", sym("{") * V("DestructuringIdFieldList") * expect(sym("}"), "CBraceDestructuring")) + V("Id"), -- ./candran/can-parser/parser.lua:559
-["DestructuringIdFieldList"] = sepBy(V("DestructuringIdField"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:560
-["DestructuringIdField"] = tagC("Pair", V("FieldKey") * expect(sym("="), "DestructuringEqField") * expect(V("Id"), "DestructuringExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:562
-["Expr"] = V("OrExpr"), -- ./candran/can-parser/parser.lua:564
-["OrExpr"] = chainOp(V("AndExpr"), V("OrOp"), "OrExpr"), -- ./candran/can-parser/parser.lua:565
-["AndExpr"] = chainOp(V("RelExpr"), V("AndOp"), "AndExpr"), -- ./candran/can-parser/parser.lua:566
-["RelExpr"] = chainOp(V("BOrExpr"), V("RelOp"), "RelExpr"), -- ./candran/can-parser/parser.lua:567
-["BOrExpr"] = chainOp(V("BXorExpr"), V("BOrOp"), "BOrExpr"), -- ./candran/can-parser/parser.lua:568
-["BXorExpr"] = chainOp(V("BAndExpr"), V("BXorOp"), "BXorExpr"), -- ./candran/can-parser/parser.lua:569
-["BAndExpr"] = chainOp(V("ShiftExpr"), V("BAndOp"), "BAndExpr"), -- ./candran/can-parser/parser.lua:570
-["ShiftExpr"] = chainOp(V("ConcatExpr"), V("ShiftOp"), "ShiftExpr"), -- ./candran/can-parser/parser.lua:571
-["ConcatExpr"] = V("AddExpr") * (V("ConcatOp") * expect(V("ConcatExpr"), "ConcatExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:572
-["AddExpr"] = chainOp(V("MulExpr"), V("AddOp"), "AddExpr"), -- ./candran/can-parser/parser.lua:573
-["MulExpr"] = chainOp(V("UnaryExpr"), V("MulOp"), "MulExpr"), -- ./candran/can-parser/parser.lua:574
-["UnaryExpr"] = V("UnaryOp") * expect(V("UnaryExpr"), "UnaryExpr") / unaryOp + V("PowExpr"), -- ./candran/can-parser/parser.lua:576
-["PowExpr"] = V("SimpleExpr") * (V("PowOp") * expect(V("UnaryExpr"), "PowExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:577
-["SimpleExpr"] = tagC("Number", V("Number")) + tagC("Nil", kw("nil")) + tagC("Boolean", kw("false") * Cc(false)) + tagC("Boolean", kw("true") * Cc(true)) + tagC("Dots", sym("...")) + V("FuncDef") + (when("lexpr") * tagC("LetExpr", maybe(V("DestructuringNameList")) * sym("=") * - sym("=") * expect(V("ExprList"), "EListLAssign"))) + V("ShortFuncDef") + V("SuffixedExpr") + V("StatExpr"), -- ./candran/can-parser/parser.lua:587
-["StatExpr"] = (V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat")) / statToExpr, -- ./candran/can-parser/parser.lua:589
-["FuncCall"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:591
-return exp["tag"] == "Call" or exp["tag"] == "SafeCall", exp -- ./candran/can-parser/parser.lua:591
-end), -- ./candran/can-parser/parser.lua:591
-["VarExpr"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:592
-return exp["tag"] == "Id" or exp["tag"] == "Index", exp -- ./candran/can-parser/parser.lua:592
-end), -- ./candran/can-parser/parser.lua:592
-["SuffixedExpr"] = Cf(V("PrimaryExpr") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr") * - V("Call") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr"), makeSuffixedExpr), -- ./candran/can-parser/parser.lua:596
-["PrimaryExpr"] = V("SelfId") * (V("SelfCall") + V("SelfIndex")) + V("Id") + tagC("Paren", sym("(") * expect(V("Expr"), "ExprParen") * expect(sym(")"), "CParenExpr")), -- ./candran/can-parser/parser.lua:599
-["NoCallPrimaryExpr"] = tagC("String", V("String")) + V("Table") + V("TableCompr"), -- ./candran/can-parser/parser.lua:600
-["Index"] = tagC("DotIndex", sym("." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("ArrayIndex", sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")) + tagC("SafeDotIndex", sym("?." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("SafeArrayIndex", sym("?[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")), -- ./candran/can-parser/parser.lua:604
-["MethodStub"] = tagC("MethodStub", sym(":" * - P(":")) * expect(V("StrId"), "NameMeth")) + tagC("SafeMethodStub", sym("?:" * - P(":")) * expect(V("StrId"), "NameMeth")), -- ./candran/can-parser/parser.lua:606
-["Call"] = tagC("Call", V("FuncArgs")) + tagC("SafeCall", P("?") * V("FuncArgs")), -- ./candran/can-parser/parser.lua:608
-["SelfCall"] = tagC("MethodStub", V("StrId")) * V("Call"), -- ./candran/can-parser/parser.lua:609
-["SelfIndex"] = tagC("DotIndex", V("StrId")), -- ./candran/can-parser/parser.lua:610
-["FuncDef"] = (kw("function") * V("FuncBody")), -- ./candran/can-parser/parser.lua:612
-["FuncArgs"] = sym("(") * commaSep(V("Expr"), "ArgList") ^ - 1 * expect(sym(")"), "CParenArgs") + V("Table") + tagC("String", V("String")), -- ./candran/can-parser/parser.lua:615
-["Table"] = tagC("Table", sym("{") * V("FieldList") ^ - 1 * expect(sym("}"), "CBraceTable")), -- ./candran/can-parser/parser.lua:617
-["FieldList"] = sepBy(V("Field"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:618
-["Field"] = tagC("Pair", V("FieldKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Expr"), -- ./candran/can-parser/parser.lua:620
-["FieldKey"] = sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprFKey") * expect(sym("]"), "CBracketFKey") + V("StrId") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:622
-["FieldSep"] = sym(",") + sym(";"), -- ./candran/can-parser/parser.lua:623
-["TableCompr"] = tagC("TableCompr", sym("[") * V("Block") * expect(sym("]"), "CBracketTableCompr")), -- ./candran/can-parser/parser.lua:625
-["SelfId"] = tagC("Id", sym("@") / "self"), -- ./candran/can-parser/parser.lua:627
-["Id"] = tagC("Id", V("Name")) + V("SelfId"), -- ./candran/can-parser/parser.lua:628
-["StrId"] = tagC("String", V("Name")), -- ./candran/can-parser/parser.lua:629
-["Skip"] = (V("Space") + V("Comment")) ^ 0, -- ./candran/can-parser/parser.lua:632
-["Space"] = space ^ 1, -- ./candran/can-parser/parser.lua:633
-["Comment"] = P("--") * V("LongStr") / function() -- ./candran/can-parser/parser.lua:634
-return  -- ./candran/can-parser/parser.lua:634
+")) ^ 0, -- ./candran/can-parser/parser.lua:509
+["Block"] = tagC("Block", (V("Stat") + - V("BlockEnd") * throw("InvalidStat")) ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:511
+["Stat"] = V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat") + V("LocalStat") + V("FuncStat") + V("BreakStat") + V("LabelStat") + V("GoToStat") + V("LetStat") + V("ConstStat") + V("CloseStat") + V("FuncCall") + V("Assignment") + V("ContinueStat") + V("PushStat") + sym(";"), -- ./candran/can-parser/parser.lua:517
+["BlockEnd"] = P("return") + "end" + "elseif" + "else" + "until" + "]" + - 1 + V("ImplicitPushStat") + V("Assignment"), -- ./candran/can-parser/parser.lua:518
+["SingleStatBlock"] = tagC("Block", V("Stat") + V("RetStat") + V("ImplicitPushStat")) / function(t) -- ./candran/can-parser/parser.lua:520
+t["is_singlestatblock"] = true -- ./candran/can-parser/parser.lua:520
+return t -- ./candran/can-parser/parser.lua:520
+end, -- ./candran/can-parser/parser.lua:520
+["BlockNoErr"] = tagC("Block", V("Stat") ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:521
+["IfStat"] = tagC("If", V("IfPart")), -- ./candran/can-parser/parser.lua:523
+["IfPart"] = kw("if") * set("lexpr", expect(V("Expr"), "ExprIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:524
+["ElseIfPart"] = kw("elseif") * set("lexpr", expect(V("Expr"), "ExprEIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenEIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:525
+["ElsePart"] = kw("else") * expectBlockWithEnd("EndIf"), -- ./candran/can-parser/parser.lua:526
+["DoStat"] = kw("do") * expectBlockWithEnd("EndDo") / tagDo, -- ./candran/can-parser/parser.lua:528
+["WhileStat"] = tagC("While", kw("while") * set("lexpr", expect(V("Expr"), "ExprWhile")) * V("WhileBody")), -- ./candran/can-parser/parser.lua:529
+["WhileBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoWhile", "EndWhile"), -- ./candran/can-parser/parser.lua:530
+["RepeatStat"] = tagC("Repeat", kw("repeat") * V("Block") * expect(kw("until"), "UntilRep") * expect(V("Expr"), "ExprRep")), -- ./candran/can-parser/parser.lua:531
+["ForStat"] = kw("for") * expect(V("ForNum") + V("ForIn"), "ForRange"), -- ./candran/can-parser/parser.lua:533
+["ForNum"] = tagC("Fornum", V("Id") * sym("=") * V("NumRange") * V("ForBody")), -- ./candran/can-parser/parser.lua:534
+["NumRange"] = expect(V("Expr"), "ExprFor1") * expect(sym(","), "CommaFor") * expect(V("Expr"), "ExprFor2") * (sym(",") * expect(V("Expr"), "ExprFor3")) ^ - 1, -- ./candran/can-parser/parser.lua:536
+["ForIn"] = tagC("Forin", V("DestructuringNameList") * expect(kw("in"), "InFor") * expect(V("ExprList"), "EListFor") * V("ForBody")), -- ./candran/can-parser/parser.lua:537
+["ForBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoFor", "EndFor"), -- ./candran/can-parser/parser.lua:538
+["LocalStat"] = kw("local") * expect(V("LocalFunc") + V("LocalAssign"), "DefLocal"), -- ./candran/can-parser/parser.lua:540
+["LocalFunc"] = tagC("Localrec", kw("function") * expect(V("Id"), "NameLFunc") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:541
+["LocalAssign"] = tagC("Local", V("AttributeNameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:543
+["LetStat"] = kw("let") * expect(V("LetAssign"), "DefLet"), -- ./candran/can-parser/parser.lua:545
+["LetAssign"] = tagC("Let", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Let", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:547
+["ConstStat"] = kw("const") * expect(V("AttributeAssign") / setAttribute("const"), "DefConst"), -- ./candran/can-parser/parser.lua:549
+["CloseStat"] = kw("close") * expect(V("AttributeAssign") / setAttribute("close"), "DefClose"), -- ./candran/can-parser/parser.lua:550
+["AttributeAssign"] = tagC("Local", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:552
+["Assignment"] = tagC("Set", (V("VarList") + V("DestructuringNameList")) * V("BinOp") ^ - 1 * (P("=") / "=") * ((V("BinOp") - P("-")) + # (P("-") * V("Space")) * V("BinOp")) ^ - 1 * V("Skip") * expect(V("ExprList"), "EListAssign")), -- ./candran/can-parser/parser.lua:554
+["FuncStat"] = tagC("Set", kw("function") * expect(V("FuncName"), "FuncName") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:556
+["FuncName"] = Cf(V("Id") * (sym(".") * expect(V("StrId"), "NameFunc1")) ^ 0, insertIndex) * (sym(":") * expect(V("StrId"), "NameFunc2")) ^ - 1 / markMethod, -- ./candran/can-parser/parser.lua:558
+["FuncBody"] = tagC("Function", V("FuncParams") * expectBlockWithEnd("EndFunc")), -- ./candran/can-parser/parser.lua:559
+["FuncParams"] = expect(sym("("), "OParenPList") * V("ParList") * expect(sym(")"), "CParenPList"), -- ./candran/can-parser/parser.lua:560
+["ParList"] = V("NamedParList") * (sym(",") * expect(tagC("Dots", sym("...")), "ParList")) ^ - 1 / addDots + Ct(tagC("Dots", sym("..."))) + Ct(Cc()), -- ./candran/can-parser/parser.lua:563
+["ShortFuncDef"] = tagC("Function", V("ShortFuncParams") * maybeBlockWithEnd()) / fixShortFunc, -- ./candran/can-parser/parser.lua:565
+["ShortFuncParams"] = (sym(":") / ":") ^ - 1 * sym("(") * V("ParList") * sym(")"), -- ./candran/can-parser/parser.lua:566
+["NamedParList"] = tagC("NamedParList", commaSep(V("NamedPar"))), -- ./candran/can-parser/parser.lua:568
+["NamedPar"] = tagC("ParPair", V("ParKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:570
+["ParKey"] = V("Id") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:571
+["LabelStat"] = tagC("Label", sym("::") * expect(V("Name"), "Label") * expect(sym("::"), "CloseLabel")), -- ./candran/can-parser/parser.lua:573
+["GoToStat"] = tagC("Goto", kw("goto") * expect(V("Name"), "Goto")), -- ./candran/can-parser/parser.lua:574
+["BreakStat"] = tagC("Break", kw("break")), -- ./candran/can-parser/parser.lua:575
+["ContinueStat"] = tagC("Continue", kw("continue")), -- ./candran/can-parser/parser.lua:576
+["RetStat"] = tagC("Return", kw("return") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:577
+["PushStat"] = tagC("Push", kw("push") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:579
+["ImplicitPushStat"] = tagC("Push", commaSep(V("Expr"), "RetList")), -- ./candran/can-parser/parser.lua:580
+["NameList"] = tagC("NameList", commaSep(V("Id"))), -- ./candran/can-parser/parser.lua:582
+["DestructuringNameList"] = tagC("NameList", commaSep(V("DestructuringId"))), -- ./candran/can-parser/parser.lua:583
+["AttributeNameList"] = tagC("AttributeNameList", commaSep(V("AttributeId"))), -- ./candran/can-parser/parser.lua:584
+["VarList"] = tagC("VarList", commaSep(V("VarExpr"))), -- ./candran/can-parser/parser.lua:585
+["ExprList"] = tagC("ExpList", commaSep(V("Expr"), "ExprList")), -- ./candran/can-parser/parser.lua:586
+["DestructuringId"] = tagC("DestructuringId", sym("{") * V("DestructuringIdFieldList") * expect(sym("}"), "CBraceDestructuring")) + V("Id"), -- ./candran/can-parser/parser.lua:588
+["DestructuringIdFieldList"] = sepBy(V("DestructuringIdField"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:589
+["DestructuringIdField"] = tagC("Pair", V("FieldKey") * expect(sym("="), "DestructuringEqField") * expect(V("Id"), "DestructuringExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:591
+["Expr"] = V("OrExpr"), -- ./candran/can-parser/parser.lua:593
+["OrExpr"] = chainOp(V("AndExpr"), V("OrOp"), "OrExpr"), -- ./candran/can-parser/parser.lua:594
+["AndExpr"] = chainOp(V("RelExpr"), V("AndOp"), "AndExpr"), -- ./candran/can-parser/parser.lua:595
+["RelExpr"] = chainOp(V("BOrExpr"), V("RelOp"), "RelExpr"), -- ./candran/can-parser/parser.lua:596
+["BOrExpr"] = chainOp(V("BXorExpr"), V("BOrOp"), "BOrExpr"), -- ./candran/can-parser/parser.lua:597
+["BXorExpr"] = chainOp(V("BAndExpr"), V("BXorOp"), "BXorExpr"), -- ./candran/can-parser/parser.lua:598
+["BAndExpr"] = chainOp(V("ShiftExpr"), V("BAndOp"), "BAndExpr"), -- ./candran/can-parser/parser.lua:599
+["ShiftExpr"] = chainOp(V("ConcatExpr"), V("ShiftOp"), "ShiftExpr"), -- ./candran/can-parser/parser.lua:600
+["ConcatExpr"] = V("AddExpr") * (V("ConcatOp") * expect(V("ConcatExpr"), "ConcatExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:601
+["AddExpr"] = chainOp(V("MulExpr"), V("AddOp"), "AddExpr"), -- ./candran/can-parser/parser.lua:602
+["MulExpr"] = chainOp(V("UnaryExpr"), V("MulOp"), "MulExpr"), -- ./candran/can-parser/parser.lua:603
+["UnaryExpr"] = V("UnaryOp") * expect(V("UnaryExpr"), "UnaryExpr") / unaryOp + V("PowExpr"), -- ./candran/can-parser/parser.lua:605
+["PowExpr"] = V("SimpleExpr") * (V("PowOp") * expect(V("UnaryExpr"), "PowExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:606
+["SimpleExpr"] = tagC("Number", V("Number")) + tagC("Nil", kw("nil")) + tagC("Boolean", kw("false") * Cc(false)) + tagC("Boolean", kw("true") * Cc(true)) + tagC("Dots", sym("...")) + V("FuncDef") + (when("lexpr") * tagC("LetExpr", maybe(V("DestructuringNameList")) * sym("=") * - sym("=") * expect(V("ExprList"), "EListLAssign"))) + V("ShortFuncDef") + V("SuffixedExpr") + V("StatExpr"), -- ./candran/can-parser/parser.lua:616
+["StatExpr"] = (V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat")) / statToExpr, -- ./candran/can-parser/parser.lua:618
+["FuncCall"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:620
+return exp["tag"] == "Call" or exp["tag"] == "SafeCall", exp -- ./candran/can-parser/parser.lua:620
+end), -- ./candran/can-parser/parser.lua:620
+["VarExpr"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:621
+return exp["tag"] == "Id" or exp["tag"] == "Index", exp -- ./candran/can-parser/parser.lua:621
+end), -- ./candran/can-parser/parser.lua:621
+["SuffixedExpr"] = Cf(V("PrimaryExpr") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr") * - V("Call") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr"), makeSuffixedExpr), -- ./candran/can-parser/parser.lua:625
+["PrimaryExpr"] = V("SelfId") * (V("SelfCall") + V("SelfIndex")) + V("Id") + tagC("Paren", sym("(") * expect(V("Expr"), "ExprParen") * expect(sym(")"), "CParenExpr")), -- ./candran/can-parser/parser.lua:628
+["NoCallPrimaryExpr"] = tagC("String", V("String")) + V("Table") + V("TableCompr"), -- ./candran/can-parser/parser.lua:629
+["Index"] = tagC("DotIndex", sym("." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("ArrayIndex", sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")) + tagC("SafeDotIndex", sym("?." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("SafeArrayIndex", sym("?[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")), -- ./candran/can-parser/parser.lua:633
+["MethodStub"] = tagC("MethodStub", sym(":" * - P(":")) * expect(V("StrId"), "NameMeth")) + tagC("SafeMethodStub", sym("?:" * - P(":")) * expect(V("StrId"), "NameMeth")), -- ./candran/can-parser/parser.lua:635
+["Call"] = tagC("Call", V("FuncArgs")) + tagC("SafeCall", P("?") * V("FuncArgs")), -- ./candran/can-parser/parser.lua:637
+["SelfCall"] = tagC("MethodStub", V("StrId")) * V("Call"), -- ./candran/can-parser/parser.lua:638
+["SelfIndex"] = tagC("DotIndex", V("StrId")), -- ./candran/can-parser/parser.lua:639
+["FuncDef"] = (kw("function") * V("FuncBody")), -- ./candran/can-parser/parser.lua:641
+["FuncArgs"] = sym("(") * commaSep(V("Expr"), "ArgList") ^ - 1 * expect(sym(")"), "CParenArgs") + V("Table") + tagC("String", V("String")), -- ./candran/can-parser/parser.lua:644
+["Table"] = tagC("Table", sym("{") * V("FieldList") ^ - 1 * expect(sym("}"), "CBraceTable")), -- ./candran/can-parser/parser.lua:646
+["FieldList"] = sepBy(V("Field"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:647
+["Field"] = tagC("Pair", V("FieldKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Expr"), -- ./candran/can-parser/parser.lua:649
+["FieldKey"] = sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprFKey") * expect(sym("]"), "CBracketFKey") + V("StrId") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:651
+["FieldSep"] = sym(",") + sym(";"), -- ./candran/can-parser/parser.lua:652
+["TableCompr"] = tagC("TableCompr", sym("[") * V("Block") * expect(sym("]"), "CBracketTableCompr")), -- ./candran/can-parser/parser.lua:654
+["SelfId"] = tagC("Id", sym("@") / "self"), -- ./candran/can-parser/parser.lua:656
+["Id"] = tagC("Id", V("Name")) + V("SelfId"), -- ./candran/can-parser/parser.lua:657
+["AttributeSelfId"] = tagC("AttributeId", sym("@") / "self" * V("Attribute") ^ - 1), -- ./candran/can-parser/parser.lua:658
+["AttributeId"] = tagC("AttributeId", V("Name") * V("Attribute") ^ - 1) + V("AttributeSelfId"), -- ./candran/can-parser/parser.lua:659
+["StrId"] = tagC("String", V("Name")), -- ./candran/can-parser/parser.lua:660
+["Attribute"] = sym("<") * expect(kw("const") / "const" + kw("close") / "close", "UnknownAttribute") * expect(sym(">"), "CBracketAttribute"), -- ./candran/can-parser/parser.lua:662
+["Skip"] = (V("Space") + V("Comment")) ^ 0, -- ./candran/can-parser/parser.lua:665
+["Space"] = space ^ 1, -- ./candran/can-parser/parser.lua:666
+["Comment"] = P("--") * V("LongStr") / function() -- ./candran/can-parser/parser.lua:667
+return  -- ./candran/can-parser/parser.lua:667
 end + P("--") * (P(1) - P("\
-")) ^ 0, -- ./candran/can-parser/parser.lua:635
-["Name"] = token(- V("Reserved") * C(V("Ident"))), -- ./candran/can-parser/parser.lua:637
-["Reserved"] = V("Keywords") * - V("IdRest"), -- ./candran/can-parser/parser.lua:638
-["Keywords"] = P("and") + "break" + "do" + "elseif" + "else" + "end" + "false" + "for" + "function" + "goto" + "if" + "in" + "local" + "nil" + "not" + "or" + "repeat" + "return" + "then" + "true" + "until" + "while", -- ./candran/can-parser/parser.lua:642
-["Ident"] = V("IdStart") * V("IdRest") ^ 0, -- ./candran/can-parser/parser.lua:643
-["IdStart"] = alpha + P("_"), -- ./candran/can-parser/parser.lua:644
-["IdRest"] = alnum + P("_"), -- ./candran/can-parser/parser.lua:645
-["Number"] = token(C(V("Hex") + V("Float") + V("Int"))), -- ./candran/can-parser/parser.lua:647
-["Hex"] = (P("0x") + "0X") * ((xdigit ^ 0 * V("DeciHex")) + (expect(xdigit ^ 1, "DigitHex") * V("DeciHex") ^ - 1)) * V("ExpoHex") ^ - 1, -- ./candran/can-parser/parser.lua:648
-["Float"] = V("Decimal") * V("Expo") ^ - 1 + V("Int") * V("Expo"), -- ./candran/can-parser/parser.lua:650
-["Decimal"] = digit ^ 1 * "." * digit ^ 0 + P(".") * - P(".") * expect(digit ^ 1, "DigitDeci"), -- ./candran/can-parser/parser.lua:652
-["DeciHex"] = P(".") * xdigit ^ 0, -- ./candran/can-parser/parser.lua:653
-["Expo"] = S("eE") * S("+-") ^ - 1 * expect(digit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:654
-["ExpoHex"] = S("pP") * S("+-") ^ - 1 * expect(xdigit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:655
-["Int"] = digit ^ 1, -- ./candran/can-parser/parser.lua:656
-["String"] = token(V("ShortStr") + V("LongStr")), -- ./candran/can-parser/parser.lua:658
+")) ^ 0, -- ./candran/can-parser/parser.lua:668
+["Name"] = token(- V("Reserved") * C(V("Ident"))), -- ./candran/can-parser/parser.lua:670
+["Reserved"] = V("Keywords") * - V("IdRest"), -- ./candran/can-parser/parser.lua:671
+["Keywords"] = P("and") + "break" + "do" + "elseif" + "else" + "end" + "false" + "for" + "function" + "goto" + "if" + "in" + "local" + "nil" + "not" + "or" + "repeat" + "return" + "then" + "true" + "until" + "while", -- ./candran/can-parser/parser.lua:675
+["Ident"] = V("IdStart") * V("IdRest") ^ 0, -- ./candran/can-parser/parser.lua:676
+["IdStart"] = alpha + P("_"), -- ./candran/can-parser/parser.lua:677
+["IdRest"] = alnum + P("_"), -- ./candran/can-parser/parser.lua:678
+["Number"] = token(C(V("Hex") + V("Float") + V("Int"))), -- ./candran/can-parser/parser.lua:680
+["Hex"] = (P("0x") + "0X") * ((xdigit ^ 0 * V("DeciHex")) + (expect(xdigit ^ 1, "DigitHex") * V("DeciHex") ^ - 1)) * V("ExpoHex") ^ - 1, -- ./candran/can-parser/parser.lua:681
+["Float"] = V("Decimal") * V("Expo") ^ - 1 + V("Int") * V("Expo"), -- ./candran/can-parser/parser.lua:683
+["Decimal"] = digit ^ 1 * "." * digit ^ 0 + P(".") * - P(".") * expect(digit ^ 1, "DigitDeci"), -- ./candran/can-parser/parser.lua:685
+["DeciHex"] = P(".") * xdigit ^ 0, -- ./candran/can-parser/parser.lua:686
+["Expo"] = S("eE") * S("+-") ^ - 1 * expect(digit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:687
+["ExpoHex"] = S("pP") * S("+-") ^ - 1 * expect(xdigit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:688
+["Int"] = digit ^ 1, -- ./candran/can-parser/parser.lua:689
+["String"] = token(V("ShortStr") + V("LongStr")), -- ./candran/can-parser/parser.lua:691
 ["ShortStr"] = P("\"") * Cs((V("EscSeq") + (P(1) - S("\"\
 "))) ^ 0) * expect(P("\""), "Quote") + P("'") * Cs((V("EscSeq") + (P(1) - S("'\
-"))) ^ 0) * expect(P("'"), "Quote"), -- ./candran/can-parser/parser.lua:660
+"))) ^ 0) * expect(P("'"), "Quote"), -- ./candran/can-parser/parser.lua:693
 ["EscSeq"] = P("\\") / "" * (P("a") / "\7" + P("b") / "\8" + P("f") / "\12" + P("n") / "\
 " + P("r") / "\13" + P("t") / "\9" + P("v") / "\11" + P("\
 ") / "\
 " + P("\13") / "\
-" + P("\\") / "\\" + P("\"") / "\"" + P("'") / "'" + P("z") * space ^ 0 / "" + digit * digit ^ - 2 / tonumber / string["char"] + P("x") * expect(C(xdigit * xdigit), "HexEsc") * Cc(16) / tonumber / string["char"] + P("u") * expect("{", "OBraceUEsc") * expect(C(xdigit ^ 1), "DigitUEsc") * Cc(16) * expect("}", "CBraceUEsc") / tonumber / (utf8 and utf8["char"] or string["char"]) + throw("EscSeq")), -- ./candran/can-parser/parser.lua:690
-["LongStr"] = V("Open") * C((P(1) - V("CloseEq")) ^ 0) * expect(V("Close"), "CloseLStr") / function(s, eqs) -- ./candran/can-parser/parser.lua:693
-return s -- ./candran/can-parser/parser.lua:693
-end, -- ./candran/can-parser/parser.lua:693
+" + P("\\") / "\\" + P("\"") / "\"" + P("'") / "'" + P("z") * space ^ 0 / "" + digit * digit ^ - 2 / tonumber / string["char"] + P("x") * expect(C(xdigit * xdigit), "HexEsc") * Cc(16) / tonumber / string["char"] + P("u") * expect("{", "OBraceUEsc") * expect(C(xdigit ^ 1), "DigitUEsc") * Cc(16) * expect("}", "CBraceUEsc") / tonumber / (utf8 and utf8["char"] or string["char"]) + throw("EscSeq")), -- ./candran/can-parser/parser.lua:723
+["LongStr"] = V("Open") * C((P(1) - V("CloseEq")) ^ 0) * expect(V("Close"), "CloseLStr") / function(s, eqs) -- ./candran/can-parser/parser.lua:726
+return s -- ./candran/can-parser/parser.lua:726
+end, -- ./candran/can-parser/parser.lua:726
 ["Open"] = "[" * Cg(V("Equals"), "openEq") * "[" * P("\
-") ^ - 1, -- ./candran/can-parser/parser.lua:694
-["Close"] = "]" * C(V("Equals")) * "]", -- ./candran/can-parser/parser.lua:695
-["Equals"] = P("=") ^ 0, -- ./candran/can-parser/parser.lua:696
-["CloseEq"] = Cmt(V("Close") * Cb("openEq"), function(s, i, closeEq, openEq) -- ./candran/can-parser/parser.lua:697
-return # openEq == # closeEq -- ./candran/can-parser/parser.lua:697
-end), -- ./candran/can-parser/parser.lua:697
-["OrOp"] = kw("or") / "or", -- ./candran/can-parser/parser.lua:699
-["AndOp"] = kw("and") / "and", -- ./candran/can-parser/parser.lua:700
-["RelOp"] = sym("~=") / "ne" + sym("==") / "eq" + sym("<=") / "le" + sym(">=") / "ge" + sym("<") / "lt" + sym(">") / "gt", -- ./candran/can-parser/parser.lua:706
-["BOrOp"] = sym("|") / "bor", -- ./candran/can-parser/parser.lua:707
-["BXorOp"] = sym("~" * - P("=")) / "bxor", -- ./candran/can-parser/parser.lua:708
-["BAndOp"] = sym("&") / "band", -- ./candran/can-parser/parser.lua:709
-["ShiftOp"] = sym("<<") / "shl" + sym(">>") / "shr", -- ./candran/can-parser/parser.lua:711
-["ConcatOp"] = sym("..") / "concat", -- ./candran/can-parser/parser.lua:712
-["AddOp"] = sym("+") / "add" + sym("-") / "sub", -- ./candran/can-parser/parser.lua:714
-["MulOp"] = sym("*") / "mul" + sym("//") / "idiv" + sym("/") / "div" + sym("%") / "mod", -- ./candran/can-parser/parser.lua:718
-["UnaryOp"] = kw("not") / "not" + sym("-") / "unm" + sym("#") / "len" + sym("~") / "bnot", -- ./candran/can-parser/parser.lua:722
-["PowOp"] = sym("^") / "pow", -- ./candran/can-parser/parser.lua:723
-["BinOp"] = V("OrOp") + V("AndOp") + V("BOrOp") + V("BXorOp") + V("BAndOp") + V("ShiftOp") + V("ConcatOp") + V("AddOp") + V("MulOp") + V("PowOp") -- ./candran/can-parser/parser.lua:724
-} -- ./candran/can-parser/parser.lua:724
-local parser = {} -- ./candran/can-parser/parser.lua:727
-local validator = require("candran.can-parser.validator") -- ./candran/can-parser/parser.lua:729
-local validate = validator["validate"] -- ./candran/can-parser/parser.lua:730
-local syntaxerror = validator["syntaxerror"] -- ./candran/can-parser/parser.lua:731
-parser["parse"] = function(subject, filename) -- ./candran/can-parser/parser.lua:733
-local errorinfo = { -- ./candran/can-parser/parser.lua:734
-["subject"] = subject, -- ./candran/can-parser/parser.lua:734
-["filename"] = filename -- ./candran/can-parser/parser.lua:734
-} -- ./candran/can-parser/parser.lua:734
-lpeg["setmaxstack"](1000) -- ./candran/can-parser/parser.lua:735
-local ast, label, errpos = lpeg["match"](G, subject, nil, errorinfo) -- ./candran/can-parser/parser.lua:736
-if not ast then -- ./candran/can-parser/parser.lua:737
-local errmsg = labels[label][2] -- ./candran/can-parser/parser.lua:738
-return ast, syntaxerror(errorinfo, errpos, errmsg) -- ./candran/can-parser/parser.lua:739
-end -- ./candran/can-parser/parser.lua:739
-return validate(ast, errorinfo) -- ./candran/can-parser/parser.lua:741
-end -- ./candran/can-parser/parser.lua:741
-return parser -- ./candran/can-parser/parser.lua:744
-end -- ./candran/can-parser/parser.lua:744
-local parser = _() or parser -- ./candran/can-parser/parser.lua:748
-package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:749
-local candran = { ["VERSION"] = "0.12.0" } -- candran.can:14
-candran["default"] = { -- candran.can:18
-["target"] = "lua53", -- candran.can:19
-["indentation"] = "", -- candran.can:20
+") ^ - 1, -- ./candran/can-parser/parser.lua:727
+["Close"] = "]" * C(V("Equals")) * "]", -- ./candran/can-parser/parser.lua:728
+["Equals"] = P("=") ^ 0, -- ./candran/can-parser/parser.lua:729
+["CloseEq"] = Cmt(V("Close") * Cb("openEq"), function(s, i, closeEq, openEq) -- ./candran/can-parser/parser.lua:730
+return # openEq == # closeEq -- ./candran/can-parser/parser.lua:730
+end), -- ./candran/can-parser/parser.lua:730
+["OrOp"] = kw("or") / "or", -- ./candran/can-parser/parser.lua:732
+["AndOp"] = kw("and") / "and", -- ./candran/can-parser/parser.lua:733
+["RelOp"] = sym("~=") / "ne" + sym("==") / "eq" + sym("<=") / "le" + sym(">=") / "ge" + sym("<") / "lt" + sym(">") / "gt", -- ./candran/can-parser/parser.lua:739
+["BOrOp"] = sym("|") / "bor", -- ./candran/can-parser/parser.lua:740
+["BXorOp"] = sym("~" * - P("=")) / "bxor", -- ./candran/can-parser/parser.lua:741
+["BAndOp"] = sym("&") / "band", -- ./candran/can-parser/parser.lua:742
+["ShiftOp"] = sym("<<") / "shl" + sym(">>") / "shr", -- ./candran/can-parser/parser.lua:744
+["ConcatOp"] = sym("..") / "concat", -- ./candran/can-parser/parser.lua:745
+["AddOp"] = sym("+") / "add" + sym("-") / "sub", -- ./candran/can-parser/parser.lua:747
+["MulOp"] = sym("*") / "mul" + sym("//") / "idiv" + sym("/") / "div" + sym("%") / "mod", -- ./candran/can-parser/parser.lua:751
+["UnaryOp"] = kw("not") / "not" + sym("-") / "unm" + sym("#") / "len" + sym("~") / "bnot", -- ./candran/can-parser/parser.lua:755
+["PowOp"] = sym("^") / "pow", -- ./candran/can-parser/parser.lua:756
+["BinOp"] = V("OrOp") + V("AndOp") + V("BOrOp") + V("BXorOp") + V("BAndOp") + V("ShiftOp") + V("ConcatOp") + V("AddOp") + V("MulOp") + V("PowOp") -- ./candran/can-parser/parser.lua:757
+} -- ./candran/can-parser/parser.lua:757
+local parser = {} -- ./candran/can-parser/parser.lua:760
+local validator = require("candran.can-parser.validator") -- ./candran/can-parser/parser.lua:762
+local validate = validator["validate"] -- ./candran/can-parser/parser.lua:763
+local syntaxerror = validator["syntaxerror"] -- ./candran/can-parser/parser.lua:764
+parser["parse"] = function(subject, filename) -- ./candran/can-parser/parser.lua:766
+local errorinfo = { -- ./candran/can-parser/parser.lua:767
+["subject"] = subject, -- ./candran/can-parser/parser.lua:767
+["filename"] = filename -- ./candran/can-parser/parser.lua:767
+} -- ./candran/can-parser/parser.lua:767
+lpeg["setmaxstack"](1000) -- ./candran/can-parser/parser.lua:768
+local ast, label, errpos = lpeg["match"](G, subject, nil, errorinfo) -- ./candran/can-parser/parser.lua:769
+if not ast then -- ./candran/can-parser/parser.lua:770
+local errmsg = labels[label][2] -- ./candran/can-parser/parser.lua:771
+return ast, syntaxerror(errorinfo, errpos, errmsg) -- ./candran/can-parser/parser.lua:772
+end -- ./candran/can-parser/parser.lua:772
+return validate(ast, errorinfo) -- ./candran/can-parser/parser.lua:774
+end -- ./candran/can-parser/parser.lua:774
+return parser -- ./candran/can-parser/parser.lua:777
+end -- ./candran/can-parser/parser.lua:777
+local parser = _() or parser -- ./candran/can-parser/parser.lua:781
+package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
+local candran = { ["VERSION"] = "0.13.0" } -- candran.can:15
+candran["default"] = { -- candran.can:19
+["target"] = "lua54", -- candran.can:20
+["indentation"] = "", -- candran.can:21
 ["newline"] = "\
-", -- candran.can:21
-["variablePrefix"] = "__CAN_", -- candran.can:22
-["mapLines"] = true, -- candran.can:23
-["chunkname"] = "nil", -- candran.can:24
-["rewriteErrors"] = true -- candran.can:25
-} -- candran.can:25
-if _VERSION == "Lua 5.1" then -- candran.can:29
-if package["loaded"]["jit"] then -- candran.can:30
-candran["default"]["target"] = "luajit" -- candran.can:31
-else -- candran.can:31
-candran["default"]["target"] = "lua51" -- candran.can:33
-end -- candran.can:33
-end -- candran.can:33
-candran["preprocess"] = function(input, options) -- candran.can:43
-if options == nil then options = {} end -- candran.can:43
-options = util["merge"](candran["default"], options) -- candran.can:44
-local preprocessor = "" -- candran.can:47
-local i = 0 -- candran.can:48
-local inLongString = false -- candran.can:49
-local inComment = false -- candran.can:50
+", -- candran.can:22
+["variablePrefix"] = "__CAN_", -- candran.can:23
+["mapLines"] = true, -- candran.can:24
+["chunkname"] = "nil", -- candran.can:25
+["rewriteErrors"] = true -- candran.can:26
+} -- candran.can:26
+if _VERSION == "Lua 5.1" then -- candran.can:30
+if package["loaded"]["jit"] then -- candran.can:31
+candran["default"]["target"] = "luajit" -- candran.can:32
+else -- candran.can:32
+candran["default"]["target"] = "lua51" -- candran.can:34
+end -- candran.can:34
+elseif _VERSION == "Lua 5.2" then -- candran.can:36
+candran["default"]["target"] = "lua51" -- candran.can:37
+elseif _VERSION == "Lua 5.3" then -- candran.can:38
+ -- candran.can:40
+end -- candran.can:40
+candran["preprocess"] = function(input, options) -- candran.can:48
+if options == nil then options = {} end -- candran.can:48
+options = util["merge"](candran["default"], options) -- candran.can:49
+local preprocessor = "" -- candran.can:52
+local i = 0 -- candran.can:53
+local inLongString = false -- candran.can:54
+local inComment = false -- candran.can:55
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:51
-i = i + (1) -- candran.can:52
-if inComment then -- candran.can:54
-inComment = not line:match("%]%]") -- candran.can:55
-elseif inLongString then -- candran.can:56
-inLongString = not line:match("%]%]") -- candran.can:57
-else -- candran.can:57
-if line:match("[^%-]%[%[") then -- candran.can:59
-inLongString = true -- candran.can:60
-elseif line:match("%-%-%[%[") then -- candran.can:61
-inComment = true -- candran.can:62
-end -- candran.can:62
-end -- candran.can:62
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:65
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:66
-else -- candran.can:66
-local l = line:sub(1, - 2) -- candran.can:68
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:69
+)") do -- candran.can:56
+i = i + (1) -- candran.can:57
+if inComment then -- candran.can:59
+inComment = not line:match("%]%]") -- candran.can:60
+elseif inLongString then -- candran.can:61
+inLongString = not line:match("%]%]") -- candran.can:62
+else -- candran.can:62
+if line:match("[^%-]%[%[") then -- candran.can:64
+inLongString = true -- candran.can:65
+elseif line:match("%-%-%[%[") then -- candran.can:66
+inComment = true -- candran.can:67
+end -- candran.can:67
+end -- candran.can:67
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:70
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:71
+else -- candran.can:71
+local l = line:sub(1, - 2) -- candran.can:73
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:74
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:70
-else -- candran.can:70
+") -- candran.can:75
+else -- candran.can:75
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:72
-end -- candran.can:72
-end -- candran.can:72
-end -- candran.can:72
-preprocessor = preprocessor .. ("return output") -- candran.can:76
-local env = util["merge"](_G, options) -- candran.can:79
-env["candran"] = candran -- candran.can:81
-env["output"] = "" -- candran.can:83
-env["import"] = function(modpath, margs) -- candran.can:90
-if margs == nil then margs = {} end -- candran.can:90
-local filepath = assert(util["search"](modpath, { -- candran.can:91
-"can", -- candran.can:91
-"lua" -- candran.can:91
-}), "No module named \"" .. modpath .. "\"") -- candran.can:91
-local f = io["open"](filepath) -- candran.can:94
-if not f then -- candran.can:95
-error("can't open the module file to import") -- candran.can:95
-end -- candran.can:95
-margs = util["merge"](options, { -- candran.can:97
-["chunkname"] = filepath, -- candran.can:97
-["loadLocal"] = true, -- candran.can:97
-["loadPackage"] = true -- candran.can:97
-}, margs) -- candran.can:97
-local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:98
-f:close() -- candran.can:99
-local modname = modpath:match("[^%.]+$") -- candran.can:102
+") -- candran.can:77
+end -- candran.can:77
+end -- candran.can:77
+end -- candran.can:77
+preprocessor = preprocessor .. ("return output") -- candran.can:81
+local env = util["merge"](_G, options) -- candran.can:84
+env["candran"] = candran -- candran.can:86
+env["output"] = "" -- candran.can:88
+env["import"] = function(modpath, margs) -- candran.can:95
+if margs == nil then margs = {} end -- candran.can:95
+local filepath = assert(util["search"](modpath, { -- candran.can:96
+"can", -- candran.can:96
+"lua" -- candran.can:96
+}), "No module named \"" .. modpath .. "\"") -- candran.can:96
+local f = io["open"](filepath) -- candran.can:99
+if not f then -- candran.can:100
+error("can't open the module file to import") -- candran.can:100
+end -- candran.can:100
+margs = util["merge"](options, { -- candran.can:102
+["chunkname"] = filepath, -- candran.can:102
+["loadLocal"] = true, -- candran.can:102
+["loadPackage"] = true -- candran.can:102
+}, margs) -- candran.can:102
+local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:103
+f:close() -- candran.can:104
+local modname = modpath:match("[^%.]+$") -- candran.can:107
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:111
-end -- candran.can:111
-env["include"] = function(file) -- candran.can:116
-local f = io["open"](file) -- candran.can:117
-if not f then -- candran.can:118
-error("can't open the file " .. file .. " to include") -- candran.can:118
-end -- candran.can:118
-env["write"](f:read("*a")) -- candran.can:119
-f:close() -- candran.can:120
-end -- candran.can:120
-env["write"] = function(...) -- candran.can:124
-env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:125
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:116
+end -- candran.can:116
+env["include"] = function(file) -- candran.can:121
+local f = io["open"](file) -- candran.can:122
+if not f then -- candran.can:123
+error("can't open the file " .. file .. " to include") -- candran.can:123
+end -- candran.can:123
+env["write"](f:read("*a")) -- candran.can:124
+f:close() -- candran.can:125
 end -- candran.can:125
-env["placeholder"] = function(name) -- candran.can:129
-if env[name] then -- candran.can:130
-env["write"](env[name]) -- candran.can:131
-end -- candran.can:131
-end -- candran.can:131
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:136
-if not preprocess then -- candran.can:137
-return nil, "in preprocessor: " .. err -- candran.can:138
-end -- candran.can:138
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:141
+env["write"] = function(...) -- candran.can:129
+env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
+") -- candran.can:130
+end -- candran.can:130
+env["placeholder"] = function(name) -- candran.can:134
+if env[name] then -- candran.can:135
+env["write"](env[name]) -- candran.can:136
+end -- candran.can:136
+end -- candran.can:136
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:141
 if not preprocess then -- candran.can:142
 return nil, "in preprocessor: " .. err -- candran.can:143
 end -- candran.can:143
-local success, output = pcall(preprocess) -- candran.can:147
-if not success then -- candran.can:148
-return nil, "in preprocessor: " .. output -- candran.can:149
-end -- candran.can:149
-return output -- candran.can:152
-end -- candran.can:152
-candran["compile"] = function(input, options) -- candran.can:161
-if options == nil then options = {} end -- candran.can:161
-options = util["merge"](candran["default"], options) -- candran.can:162
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:164
-if not ast then -- candran.can:166
-return nil, errmsg -- candran.can:167
-end -- candran.can:167
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:170
-end -- candran.can:170
-candran["make"] = function(code, options) -- candran.can:179
-local r, err = candran["preprocess"](code, options) -- candran.can:180
-if r then -- candran.can:181
-r, err = candran["compile"](r, options) -- candran.can:182
-if r then -- candran.can:183
-return r -- candran.can:184
-end -- candran.can:184
-end -- candran.can:184
-return r, err -- candran.can:187
-end -- candran.can:187
-local errorRewritingActive = false -- candran.can:190
-local codeCache = {} -- candran.can:191
-candran["loadfile"] = function(filepath, env, options) -- candran.can:194
-local f, err = io["open"](filepath) -- candran.can:195
-if not f then -- candran.can:196
-return nil, ("cannot open %s"):format(err) -- candran.can:197
-end -- candran.can:197
-local content = f:read("*a") -- candran.can:199
-f:close() -- candran.can:200
-return candran["load"](content, filepath, env, options) -- candran.can:202
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:146
+if not preprocess then -- candran.can:147
+return nil, "in preprocessor: " .. err -- candran.can:148
+end -- candran.can:148
+local success, output = pcall(preprocess) -- candran.can:152
+if not success then -- candran.can:153
+return nil, "in preprocessor: " .. output -- candran.can:154
+end -- candran.can:154
+return output -- candran.can:157
+end -- candran.can:157
+candran["compile"] = function(input, options) -- candran.can:166
+if options == nil then options = {} end -- candran.can:166
+options = util["merge"](candran["default"], options) -- candran.can:167
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:169
+if not ast then -- candran.can:171
+return nil, errmsg -- candran.can:172
+end -- candran.can:172
+return require("compiler." .. options["target"])(input, ast, options) -- candran.can:175
+end -- candran.can:175
+candran["make"] = function(code, options) -- candran.can:184
+local r, err = candran["preprocess"](code, options) -- candran.can:185
+if r then -- candran.can:186
+r, err = candran["compile"](r, options) -- candran.can:187
+if r then -- candran.can:188
+return r -- candran.can:189
+end -- candran.can:189
+end -- candran.can:189
+return r, err -- candran.can:192
+end -- candran.can:192
+local errorRewritingActive = false -- candran.can:195
+local codeCache = {} -- candran.can:196
+candran["loadfile"] = function(filepath, env, options) -- candran.can:199
+local f, err = io["open"](filepath) -- candran.can:200
+if not f then -- candran.can:201
+return nil, ("cannot open %s"):format(err) -- candran.can:202
 end -- candran.can:202
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:207
-if options == nil then options = {} end -- candran.can:207
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:208
-local code, err = candran["make"](chunk, options) -- candran.can:210
-if not code then -- candran.can:211
-return code, err -- candran.can:212
-end -- candran.can:212
-codeCache[options["chunkname"]] = code -- candran.can:215
-local f, err = util["load"](code, options["chunkname"], env) -- candran.can:216
-if f == nil then -- candran.can:221
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:222
-end -- candran.can:222
-if options["rewriteErrors"] == false then -- candran.can:225
-return f -- candran.can:226
-else -- candran.can:226
-return function(...) -- candran.can:228
-local params = { ... } -- candran.can:229
-if not errorRewritingActive then -- candran.can:230
-errorRewritingActive = true -- candran.can:231
-local t = { xpcall(function() -- candran.can:232
-return f(unpack(params)) -- candran.can:232
-end, candran["messageHandler"]) } -- candran.can:232
-errorRewritingActive = false -- candran.can:233
-if t[1] == false then -- candran.can:234
-error(t[2], 0) -- candran.can:235
-end -- candran.can:235
-return unpack(t, 2) -- candran.can:237
-else -- candran.can:237
-return f(...) -- candran.can:239
-end -- candran.can:239
-end -- candran.can:239
-end -- candran.can:239
-end -- candran.can:239
-candran["dofile"] = function(filename, options) -- candran.can:247
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:248
-if f == nil then -- candran.can:250
-error(err) -- candran.can:251
-else -- candran.can:251
-return f() -- candran.can:253
-end -- candran.can:253
-end -- candran.can:253
-candran["messageHandler"] = function(message) -- candran.can:259
+local content = f:read("*a") -- candran.can:204
+f:close() -- candran.can:205
+return candran["load"](content, filepath, env, options) -- candran.can:207
+end -- candran.can:207
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:212
+if options == nil then options = {} end -- candran.can:212
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:213
+local code, err = candran["make"](chunk, options) -- candran.can:215
+if not code then -- candran.can:216
+return code, err -- candran.can:217
+end -- candran.can:217
+codeCache[options["chunkname"]] = code -- candran.can:220
+local f, err = util["load"](code, options["chunkname"], env) -- candran.can:221
+if f == nil then -- candran.can:226
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:227
+end -- candran.can:227
+if options["rewriteErrors"] == false then -- candran.can:230
+return f -- candran.can:231
+else -- candran.can:231
+return function(...) -- candran.can:233
+local params = { ... } -- candran.can:234
+if not errorRewritingActive then -- candran.can:235
+errorRewritingActive = true -- candran.can:236
+local t = { xpcall(function() -- candran.can:237
+return f(unpack(params)) -- candran.can:237
+end, candran["messageHandler"]) } -- candran.can:237
+errorRewritingActive = false -- candran.can:238
+if t[1] == false then -- candran.can:239
+error(t[2], 0) -- candran.can:240
+end -- candran.can:240
+return unpack(t, 2) -- candran.can:242
+else -- candran.can:242
+return f(...) -- candran.can:244
+end -- candran.can:244
+end -- candran.can:244
+end -- candran.can:244
+end -- candran.can:244
+candran["dofile"] = function(filename, options) -- candran.can:252
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:253
+if f == nil then -- candran.can:255
+error(err) -- candran.can:256
+else -- candran.can:256
+return f() -- candran.can:258
+end -- candran.can:258
+end -- candran.can:258
+candran["messageHandler"] = function(message) -- candran.can:264
 return debug["traceback"](message, 2):gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:260
-line = tonumber(line) -- candran.can:261
-local originalFile -- candran.can:263
-local strName = source:match("%[string \"(.-)\"%]") -- candran.can:264
-if strName then -- candran.can:265
-if codeCache[strName] then -- candran.can:266
-originalFile = codeCache[strName] -- candran.can:267
-source = strName -- candran.can:268
-end -- candran.can:268
-else -- candran.can:268
-local fi = io["open"](source, "r") -- candran.can:271
-if fi then -- candran.can:272
-originalFile = fi:read("*a") -- candran.can:273
-fi:close() -- candran.can:274
-end -- candran.can:274
-end -- candran.can:274
-if originalFile then -- candran.can:278
-local i = 0 -- candran.can:279
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:265
+line = tonumber(line) -- candran.can:266
+local originalFile -- candran.can:268
+local strName = source:match("%[string \"(.-)\"%]") -- candran.can:269
+if strName then -- candran.can:270
+if codeCache[strName] then -- candran.can:271
+originalFile = codeCache[strName] -- candran.can:272
+source = strName -- candran.can:273
+end -- candran.can:273
+else -- candran.can:273
+local fi = io["open"](source, "r") -- candran.can:276
+if fi then -- candran.can:277
+originalFile = fi:read("*a") -- candran.can:278
+fi:close() -- candran.can:279
+end -- candran.can:279
+end -- candran.can:279
+if originalFile then -- candran.can:283
+local i = 0 -- candran.can:284
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:280
-i = i + 1 -- candran.can:281
-if i == line then -- candran.can:282
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:283
-if lineMap then -- candran.can:284
-if extSource ~= source then -- candran.can:285
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:286
-else -- candran.can:286
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:288
-end -- candran.can:288
-end -- candran.can:288
-break -- candran.can:291
-end -- candran.can:291
-end -- candran.can:291
-end -- candran.can:291
-end) -- candran.can:291
-end -- candran.can:291
-candran["searcher"] = function(modpath) -- candran.can:299
-local filepath = util["search"](modpath, { "can" }) -- candran.can:300
-if not filepath then -- candran.can:301
+") do -- candran.can:285
+i = i + 1 -- candran.can:286
+if i == line then -- candran.can:287
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:288
+if lineMap then -- candran.can:289
+if extSource ~= source then -- candran.can:290
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:291
+else -- candran.can:291
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:293
+end -- candran.can:293
+end -- candran.can:293
+break -- candran.can:296
+end -- candran.can:296
+end -- candran.can:296
+end -- candran.can:296
+end) -- candran.can:296
+end -- candran.can:296
+candran["searcher"] = function(modpath) -- candran.can:304
+local filepath = util["search"](modpath, { "can" }) -- candran.can:305
+if not filepath then -- candran.can:306
 return "\
-\9no candran file in package.path" -- candran.can:302
-end -- candran.can:302
-return candran["loadfile"](filepath) -- candran.can:304
-end -- candran.can:304
-candran["setup"] = function() -- candran.can:308
-if _VERSION == "Lua 5.1" then -- candran.can:309
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:310
-else -- candran.can:310
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:312
-end -- candran.can:312
-return candran -- candran.can:314
-end -- candran.can:314
-return candran -- candran.can:317
+\9no candran file in package.path" -- candran.can:307
+end -- candran.can:307
+return candran["loadfile"](filepath) -- candran.can:309
+end -- candran.can:309
+candran["setup"] = function() -- candran.can:313
+if _VERSION == "Lua 5.1" then -- candran.can:314
+table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:315
+else -- candran.can:315
+table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:317
+end -- candran.can:317
+return candran -- candran.can:319
+end -- candran.can:319
+return candran -- candran.can:322
diff --git a/candran/can-parser/parser.lua b/candran/can-parser/parser.lua
index 0d17122..6efe5c7 100644
--- a/candran/can-parser/parser.lua
+++ b/candran/can-parser/parser.lua
@@ -14,7 +14,7 @@ stat:
   | `If{ (lexpr block)+ block? }              -- if e1 then b1 [elseif e2 then b2] ... [else bn] end
   | `Fornum{ ident expr expr expr? block }    -- for ident = e, e[, e] do b end
   | `Forin{ {ident+} {expr+} block }          -- for i1, i2... in e1, e2... do b end
-  | `Local{ {ident+} {expr+}? }               -- local i1, i2... = e1, e2...
+  | `Local{ {attributeident+} {expr+}? }      -- local i1, i2... = e1, e2...
   | `Let{ {ident+} {expr+}? }                 -- let i1, i2... = e1, e2...
   | `Localrec{ {ident} {expr} }               -- only used for 'local function'
   | `Goto{ <string> }                         -- goto str
@@ -59,7 +59,7 @@ apply:
     `Call{ expr expr* }
   | `SafeCall{ expr expr* }
 
-lhs: `Id{ <string> } | `Index{ expr expr } | ˇDestructuringId{ Id | Pair+ }
+lhs: `Id{ <string> } | AttributeId{ <string> <string>? } | `Index{ expr expr } | ˇDestructuringId{ Id | Pair+ }
 
 opid:  -- includes additional operators from Lua 5.3 and all relational operators
     'add'  | 'sub' | 'mul'  | 'div'
@@ -113,7 +113,9 @@ local labels = {
   { "ErrDoFor", "expected 'do' after the range of the for loop" },
 
   { "ErrDefLocal", "expected a function definition or assignment after local" },
-  { "ErrDefLet", "expected a function definition or assignment after let" },
+  { "ErrDefLet", "expected an assignment after let" },
+  { "ErrDefClose", "expected an assignment after close" },
+  { "ErrDefConst", "expected an assignment after const" },
   { "ErrNameLFunc", "expected a function name after 'function'" },
   { "ErrEListLAssign", "expected one or more expressions after '='" },
   { "ErrEListAssign", "expected one or more expressions after '='" },
@@ -181,6 +183,9 @@ local labels = {
   { "ErrCBraceUEsc", "expected '}' after the code point" },
   { "ErrEscSeq", "invalid escape sequence" },
   { "ErrCloseLStr", "unclosed long string" },
+
+  { "ErrUnknownAttribute", "unknown variable attribute" },
+  { "ErrCBracketAttribute", "expected '>' to close the variable attribute" },
 }
 
 local function throw(label)
@@ -456,6 +461,24 @@ local function maybe (patt) -- fail pattern instead of propagating errors
   return #patt/0 * patt
 end
 
+local function setAttribute(attribute)
+  return function(assign)
+    assign[1].tag = "AttributeNameList"
+    for _, id in ipairs(assign[1]) do
+      if id.tag == "Id" then
+        id.tag = "AttributeId"
+        id[2] = attribute
+      elseif id.tag == "DestructuringId" then
+        for _, did in ipairs(id) do
+          did.tag = "AttributeId"
+          did[2] = attribute
+        end
+      end
+    end
+    return assign
+  end
+end
+
 local stacks = {
   lexpr = {}
 }
@@ -488,7 +511,7 @@ local G = { V"Lua",
   Block       = tagC("Block", (V"Stat" + -V"BlockEnd" * throw("InvalidStat"))^0 * ((V"RetStat" + V"ImplicitPushStat") * sym(";")^-1)^-1);
   Stat        = V"IfStat" + V"DoStat" + V"WhileStat" + V"RepeatStat" + V"ForStat"
               + V"LocalStat" + V"FuncStat" + V"BreakStat" + V"LabelStat" + V"GoToStat"
-              + V"LetStat"
+              + V"LetStat" + V"ConstStat" + V"CloseStat"
               + V"FuncCall" + V"Assignment"
               + V"ContinueStat" + V"PushStat"
               + sym(";");
@@ -516,13 +539,18 @@ local G = { V"Lua",
 
   LocalStat    = kw("local") * expect(V"LocalFunc" + V"LocalAssign", "DefLocal");
   LocalFunc    = tagC("Localrec", kw("function") * expect(V"Id", "NameLFunc") * V"FuncBody") / fixFuncStat;
-  LocalAssign  = tagC("Local", V"NameList" * (sym("=") * expect(V"ExprList", "EListLAssign") + Ct(Cc())))
+  LocalAssign  = tagC("Local", V"AttributeNameList" * (sym("=") * expect(V"ExprList", "EListLAssign") + Ct(Cc())))
                + tagC("Local", V"DestructuringNameList" * sym("=") * expect(V"ExprList", "EListLAssign"));
 
   LetStat      = kw("let") * expect(V"LetAssign", "DefLet");
   LetAssign    = tagC("Let", V"NameList" * (sym("=") * expect(V"ExprList", "EListLAssign") + Ct(Cc())))
                + tagC("Let", V"DestructuringNameList" * sym("=") * expect(V"ExprList", "EListLAssign"));
 
+  ConstStat       = kw("const") * expect(V"AttributeAssign" / setAttribute("const"), "DefConst");
+  CloseStat       = kw("close") * expect(V"AttributeAssign" / setAttribute("close"), "DefClose");
+  AttributeAssign = tagC("Local", V"NameList" * (sym("=") * expect(V"ExprList", "EListLAssign") + Ct(Cc())))
+                  + tagC("Local", V"DestructuringNameList" * sym("=") * expect(V"ExprList", "EListLAssign"));
+
   Assignment   = tagC("Set", (V"VarList" + V"DestructuringNameList") * V"BinOp"^-1 * (P"=" / "=") * ((V"BinOp" - P"-") + #(P"-" * V"Space") * V"BinOp")^-1 * V"Skip" * expect(V"ExprList", "EListAssign"));
 
   FuncStat    = tagC("Set", kw("function") * expect(V"FuncName", "FuncName") * V"FuncBody") / fixFuncStat;
@@ -551,8 +579,9 @@ local G = { V"Lua",
   PushStat         = tagC("Push", kw("push") * commaSep(V"Expr", "RetList")^-1);
   ImplicitPushStat = tagC("Push", commaSep(V"Expr", "RetList"));
 
-  NameList  = tagC("NameList", commaSep(V"Id"));
+  NameList              = tagC("NameList", commaSep(V"Id"));
   DestructuringNameList = tagC("NameList", commaSep(V"DestructuringId")),
+  AttributeNameList     = tagC("AttributeNameList", commaSep(V"AttributeId"));
   VarList   = tagC("VarList", commaSep(V"VarExpr"));
   ExprList  = tagC("ExpList", commaSep(V"Expr", "ExprList"));
 
@@ -626,8 +655,12 @@ local G = { V"Lua",
 
   SelfId = tagC("Id", sym"@" / "self");
   Id     = tagC("Id", V"Name") + V"SelfId";
+  AttributeSelfId = tagC("AttributeId", sym"@" / "self" * V"Attribute"^-1);
+  AttributeId     = tagC("AttributeId", V"Name" * V"Attribute"^-1) + V"AttributeSelfId";
   StrId  = tagC("String", V"Name");
 
+  Attribute = sym("<") * expect(kw"const" / "const" + kw"close" / "close", "UnknownAttribute") * expect(sym(">"), "CBracketAttribute");
+
   -- lexer
   Skip     = (V"Space" + V"Comment")^0;
   Space    = space^1;
diff --git a/compiler/lua53.can b/compiler/lua53.can
index 5dabc03..1bb0c53 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -1,827 +1,10 @@
-local targetName = "Lua 5.3"
+targetName = "Lua 5.3"
 
-return function(code, ast, options)
-	--- Line mapping
-	local lastInputPos = 1 -- last token position in the input code
-	local prevLinePos = 1 -- last token position in the previous line of code in the input code
-	local lastSource = options.chunkname or "nil" -- last found code source name (from the original file)
-	local lastLine = 1 -- last found line number (from the original file)
+-- Unsuported features
+tags.AttributeId = nil
 
-	--- Newline management
-	local indentLevel = 0
-	-- Returns a newline.
-	local function newline()
-		local r = options.newline..string.rep(options.indentation, indentLevel)
-		if options.mapLines then
-			local sub = code:sub(lastInputPos)
-			local source, line = sub:sub(1, sub:find("\n")):match(".*%-%- (.-)%:(%d+)\n")
+#local patch = output
+#output = ""
+#import("compiler.lua54", { patch = patch, loadPackage = false })
 
-			if source and line then
-				lastSource = source
-				lastLine = tonumber(line)
-			else
-				for _ in code:sub(prevLinePos, lastInputPos):gmatch("\n") do
-					lastLine += 1
-				end
-			end
-
-			prevLinePos = lastInputPos
-
-			r = " -- "..lastSource..":"..lastLine..r
-		end
-		return r
-	end
-	-- Returns a newline and add one level of indentation.
-	local function indent()
-		indentLevel += 1
-		return newline()
-	end
-	-- Returns a newline and remove one level of indentation.
-	local function unindent()
-		indentLevel -= 1
-		return newline()
-	end
-
-	--- State stacks
-	-- Used for context-sensitive syntax.
-	local states = {
-		push = {}, -- push stack variable names
-		destructuring = {}, -- list of variable that need to be assigned from a destructure {id = "parent variable", "field1", "field2"...}
-		scope = {} -- list of variables defined in the current scope
-	}
-	-- Push a new value on top of the stack "name". Returns an empty string for chaining.
-	local function push(name, state)
-		table.insert(states[name], state)
-		return ""
-	end
-	-- Remove the value on top of the stack "name". Returns an empty string for chaining.
-	local function pop(name)
-		table.remove(states[name])
-		return ""
-	end
-	-- Set the value on top of the stack "name". Returns an empty string for chaining.
-	local function set(name, state)
-		states[name][#states[name]] = state
-		return ""
-	end
-	-- Returns the value on top of the stack "name".
-	local function peek(name)
-		return states[name][#states[name]]
-	end
-
-	--- Variable management
-	-- Returns the prefixed variable name.
-	local function var(name)
-		return options.variablePrefix..name
-	end
-
-	-- Returns the prefixed temporary variable name.
-	local function tmp()
-		local scope = peek("scope")
-		local var = "%s_%s":format(options.variablePrefix, #scope)
-		table.insert(scope, var)
-		return var
-	end
-
-	--- Module management
-	local required = {} -- { ["full require expression"] = true, ... }
-	local requireStr = ""
-	-- Add the module "mod" to the list of modules to require, and load its field "field" (or the whole module if nil) into the variable "name".
-	local function addRequire(mod, name, field)
-		local req = "require(%q)%s":format(mod, field and "."..field or "")
-		if not required[req] then
-			requireStr ..= "local %s = %s%s":format(var(name), req, options.newline)
-			required[req] = true
-		end
-	end
-
-	--- AST traversal helpers
-	local loop = { "While", "Repeat", "Fornum", "Forin", "WhileExpr", "RepeatExpr", "FornumExpr", "ForinExpr" } -- loops tags (can contain continue)
-	local func = { "Function", "TableCompr", "DoExpr", "WhileExpr", "RepeatExpr", "IfExpr", "FornumExpr", "ForinExpr" } -- function scope tags (can contain push)
-
-	-- Returns the first node or subnode from the list "list" which tag is in the list "tags", or nil if there were none.
-	-- Won't recursively follow nodes which have a tag in "nofollow".
-	local function any(list, tags, nofollow={})
-		local tagsCheck = {}
-		for _, tag in ipairs(tags) do
-			tagsCheck[tag] = true
-		end
-		local nofollowCheck = {}
-		for _, tag in ipairs(nofollow) do
-			nofollowCheck[tag] = true
-		end
-		for _, node in ipairs(list) do
-			if type(node) == "table" then
-				if tagsCheck[node.tag] then
-					return node
-				end
-				if not nofollowCheck[node.tag] then
-					local r = any(node, tags, nofollow)
-					if r then return r end
-				end
-			end
-		end
-		return nil
-	end
-
-	-- Like any, but returns a list of every node found.
-	-- Order: in the order of the list, from the deepest to the nearest
-	local function search(list, tags, nofollow={})
-		local tagsCheck = {}
-		for _, tag in ipairs(tags) do
-			tagsCheck[tag] = true
-		end
-		local nofollowCheck = {}
-		for _, tag in ipairs(nofollow) do
-			nofollowCheck[tag] = true
-		end
-		local found = {}
-		for _, node in ipairs(list) do
-			if type(node) == "table" then
-				if not nofollowCheck[node.tag] then
-					for _, n in ipairs(search(node, tags, nofollow)) do
-						table.insert(found, n)
-					end
-				end
-				if tagsCheck[node.tag] then
-					table.insert(found, node)
-				end
-			end
-		end
-		return found
-	end
-
-	-- Returns true if the all the nodes in list have their type in tags.
-	local function all(list, tags)
-		for _, node in ipairs(list) do
-			local ok = false
-			for _, tag in ipairs(tags) do
-				if node.tag == tag then
-					ok = true
-					break
-				end
-			end
-			if not ok then
-				return false
-			end
-		end
-		return true
-	end
-
-	--- Lua compiler
-	local tags
-	-- Recursively returns the compiled AST Lua code, set "forceTag" to override the tag type and pass additional arguments to the tag constructor if needed.
-	local function lua(ast, forceTag, ...)
-		if options.mapLines and ast.pos then
-			lastInputPos = ast.pos
-		end
-		return tags[forceTag or ast.tag](ast, ...)
-	end
-
-	--- Lua function calls writer
-	local UNPACK = (list, i, j) -- table.unpack
-		return "table.unpack("..list..(i and (", "..i..(j and (", "..j) or "")) or "")..")"
-	end
-	local APPEND = (t, toAppend) -- append values "toAppend" (multiple values possible) to t
-		return "do"..indent().."local "..var("a").." = table.pack("..toAppend..")"..newline().."table.move("..var("a")..", 1, "..var("a")..".n, #"..t.."+1, "..t..")"..unindent().."end"
-	end
-	local CONTINUE_START = () -- at the start of loops using continue
-		return "do"..indent()
-	end
-	local CONTINUE_STOP = () -- at the start of loops using continue
-		return unindent().."end"..newline().."::"..var"continue".."::"
-	end
-	local DESTRUCTURING_ASSIGN = (destructured, newlineAfter=false, noLocal=false) -- to define values from a destructuring assignement
-		local vars = {}
-		local values = {}
-		for _, list in ipairs(destructured) do
-			for _, v in ipairs(list) do
-				local var, val
-				if v.tag == "Id" then
-					var = v
-					val = { tag = "Index", { tag = "Id", list.id }, { tag = "String", v[1] } }
-				elseif v.tag == "Pair" then
-					var = v[2]
-					val = { tag = "Index", { tag = "Id", list.id }, v[1] }
-				else
-					error("unknown destructuring element type: "..tostring(v.tag))
-				end
-				if destructured.rightOp and destructured.leftOp then
-					val = { tag = "Op", destructured.rightOp, var, { tag = "Op", destructured.leftOp, val, var } }
-				elseif destructured.rightOp then
-					val = { tag = "Op", destructured.rightOp, var, val }
-				elseif destructured.leftOp then
-					val = { tag = "Op", destructured.leftOp, val, var }
-				end
-				table.insert(vars, lua(var))
-				table.insert(values, lua(val))
-			end
-		end
-		if #vars > 0 then
-			local decl = noLocal and "" or "local "
-			if newlineAfter then
-				return decl..table.concat(vars, ", ").." = "..table.concat(values, ", ")..newline()
-			else
-				return newline()..decl..table.concat(vars, ", ").." = "..table.concat(values, ", ")
-			end
-		else
-			return ""
-		end
-	end
-
-	--- Tag constructors
-	tags = setmetatable({
-		-- block: { stat* } --
-		Block = (t)
-			local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- push in block and push context not yet defined
-			if hasPush and hasPush == t[#t] then -- if the first push is the last statement, it's just a return
-				hasPush.tag = "Return"
-				hasPush = false
-			end
-			local r = push("scope", {})
-			if hasPush then
-				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
-			end
-			for i=1, #t-1, 1 do
-				r ..= lua(t[i])..newline()
-			end
-			if t[#t] then
-				r ..= lua(t[#t])
-			end
-			if hasPush and (t[#t] and t[#t].tag ~= "Return") then -- add return only if needed
-				r ..= newline().."return "..UNPACK(var"push")..pop("push")
-			end
-			return r..pop("scope")
-		end,
-
-		-- stat --
-
-		-- Do{ stat* }
-		Do = (t)
-			return "do"..indent()..lua(t, "Block")..unindent().."end"
-		end,
-		-- Set{ {lhs+} (opid? = opid?)? {expr+} }
-		Set = (t)
-			-- extract vars and values
-			local expr = t[#t]
-			local vars, values = {}, {}
-			local destructuringVars, destructuringValues = {}, {}
-			for i, n in ipairs(t[1]) do
-				if n.tag == "DestructuringId" then
-					table.insert(destructuringVars, n)
-					table.insert(destructuringValues, expr[i])
-				else
-					table.insert(vars, n)
-					table.insert(values, expr[i])
-				end
-			end
-			--
-			if #t == 2 or #t == 3 then
-				local r = ""
-				if #vars > 0 then
-					r = lua(vars, "_lhs").." = "..lua(values, "_lhs")
-				end
-				if #destructuringVars > 0 then
-					local destructured = {}
-					r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
-					return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
-				end
-				return r
-			elseif #t == 4 then
-				if t[3] == "=" then
-					local r = ""
-					if #vars > 0 then
-						r ..= lua(vars, "_lhs").." = "..lua({ t[2], vars[1], { tag = "Paren", values[1] } }, "Op")
-						for i=2, math.min(#t[4], #vars), 1 do
-							r ..= ", "..lua({ t[2], vars[i], { tag = "Paren", values[i] } }, "Op")
-						end
-					end
-					if #destructuringVars > 0 then
-						local destructured = { rightOp = t[2] }
-						r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
-						return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
-					end
-					return r
-				else
-					local r  = ""
-					if #vars > 0 then
-						r ..= lua(vars, "_lhs").." = "..lua({ t[3], { tag = "Paren", values[1] }, vars[1] }, "Op")
-						for i=2, math.min(#t[4], #t[1]), 1 do
-							r ..= ", "..lua({ t[3], { tag = "Paren", values[i] }, vars[i] }, "Op")
-						end
-					end
-					if #destructuringVars > 0 then
-						local destructured = { leftOp = t[3] }
-						r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
-						return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
-					end
-					return r
-				end
-			else -- You are mad.
-				local r = ""
-				if #vars > 0 then
-					r ..= lua(vars, "_lhs").." = "..lua({ t[2], vars[1], { tag = "Op", t[4], { tag = "Paren", values[1] }, vars[1] } }, "Op")
-					for i=2, math.min(#t[5], #t[1]), 1 do
-						r ..= ", "..lua({ t[2], vars[i], { tag = "Op", t[4], { tag = "Paren", values[i] }, vars[i] } }, "Op")
-					end
-				end
-				if #destructuringVars > 0 then
-					local destructured = { rightOp = t[2], leftOp = t[4] }
-					r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
-					return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
-				end
-				return r
-			end
-		end,
-		-- While{ expr block }
-		While = (t)
-			local r = ""
-			local hasContinue = any(t[2], { "Continue" }, loop)
-			local lets = search({ t[1] }, { "LetExpr" })
-			if #lets > 0 then
-				r ..= "do"..indent()
-				for _, l in ipairs(lets) do
-					r ..= lua(l, "Let")..newline()
-				end
-			end
-			r ..= "while "..lua(t[1]).." do"..indent()
-			if #lets > 0 then
-				r ..= "do"..indent()
-			end
-			if hasContinue then
-				r ..= CONTINUE_START()
-			end
-			r ..= lua(t[2])
-			if hasContinue then
-				r ..= CONTINUE_STOP()
-			end
-			r ..= unindent().."end"
-			if #lets > 0 then
-				for _, l in ipairs(lets) do
-					r ..= newline()..lua(l, "Set")
-				end
-				r ..= unindent().."end"..unindent().."end"
-			end
-			return r
-		end,
-		-- Repeat{ block expr }
-		Repeat = (t)
-			local hasContinue = any(t[1], { "Continue" }, loop)
-			local r = "repeat"..indent()
-			if hasContinue then
-				r ..= CONTINUE_START()
-			end
-			r ..= lua(t[1])
-			if hasContinue then
-				r ..= CONTINUE_STOP()
-			end
-			r ..= unindent().."until "..lua(t[2])
-			return r
-		end,
-		-- If{ (lexpr block)+ block? }
-		If = (t)
-			local r = ""
-			local toClose = 0 -- blocks that need to be closed at the end of the if
-			local lets = search({ t[1] }, { "LetExpr" })
-			if #lets > 0 then
-				r ..= "do"..indent()
-				toClose += 1
-				for _, l in ipairs(lets) do
-					r ..= lua(l, "Let")..newline()
-				end
-			end
-			r ..= "if "..lua(t[1]).." then"..indent()..lua(t[2])..unindent()
-			for i=3, #t-1, 2 do
-				lets = search({ t[i] }, { "LetExpr" })
-				if #lets > 0 then
-					r ..= "else"..indent()
-					toClose += 1
-					for _, l in ipairs(lets) do
-						r ..= lua(l, "Let")..newline()
-					end
-				else
-					r ..= "else"
-				end
-				r ..= "if "..lua(t[i]).." then"..indent()..lua(t[i+1])..unindent()
-			end
-			if #t % 2 == 1 then
-				r ..= "else"..indent()..lua(t[#t])..unindent()
-			end
-			r ..= "end"
-			for i=1, toClose do
-				r ..= unindent().."end"
-			end
-			return r
-		end,
-		-- Fornum{ ident expr expr expr? block }
-		Fornum = (t)
-			local r = "for "..lua(t[1]).." = "..lua(t[2])..", "..lua(t[3])
-			if #t == 5 then
-				local hasContinue = any(t[5], { "Continue" }, loop)
-				r ..= ", "..lua(t[4]).." do"..indent()
-				if hasContinue then
-					r ..= CONTINUE_START()
-				end
-				r ..= lua(t[5])
-				if hasContinue then
-					r ..= CONTINUE_STOP()
-				end
-				return r..unindent().."end"
-			else
-				local hasContinue = any(t[4], { "Continue" }, loop)
-				r ..= " do"..indent()
-				if hasContinue then
-					r ..= CONTINUE_START()
-				end
-				r ..= lua(t[4])
-				if hasContinue then
-					r ..= CONTINUE_STOP()
-				end
-				return r..unindent().."end"
-			end
-		end,
-		-- Forin{ {ident+} {expr+} block }
-		Forin = (t)
-			local destructured = {}
-			local hasContinue = any(t[3], { "Continue" }, loop)
-			local r = "for "..push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring").." in "..lua(t[2], "_lhs").." do"..indent()
-			if hasContinue then
-				r ..= CONTINUE_START()
-			end
-			r ..= DESTRUCTURING_ASSIGN(destructured, true)..lua(t[3])
-			if hasContinue then
-				r ..= CONTINUE_STOP()
-			end
-			return r..unindent().."end"
-		end,
-		-- Local{ {ident+} {expr+}? }
-		Local = (t)
-			local destructured = {}
-			local r = "local "..push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring")
-			if t[2][1] then
-				r ..= " = "..lua(t[2], "_lhs")
-			end
-			return r..DESTRUCTURING_ASSIGN(destructured)
-		end,
-		-- Let{ {ident+} {expr+}? }
-		Let = (t)
-			local destructured = {}
-			local nameList = push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring")
-			local r = "local "..nameList
-			if t[2][1] then
-				if all(t[2], { "Nil", "Dots", "Boolean", "Number", "String" }) then -- predeclaration doesn't matter here
-					r ..= " = "..lua(t[2], "_lhs")
-				else
-					r ..= newline()..nameList.." = "..lua(t[2], "_lhs")
-				end
-			end
-			return r..DESTRUCTURING_ASSIGN(destructured)
-		end,
-		-- Localrec{ {ident} {expr} }
-		Localrec = (t)
-			return "local function "..lua(t[1][1])..lua(t[2][1], "_functionWithoutKeyword")
-		end,
-		-- Goto{ <string> }
-		Goto = (t)
-			return "goto "..lua(t, "Id")
-		end,
-		-- Label{ <string> }
-		Label = (t)
-			return "::"..lua(t, "Id").."::"
-		end,
-		-- Return{ <expr*> }
-		Return = (t)
-			local push = peek("push")
-			if push then
-				local r = ""
-				for _, val in ipairs(t) do
-					r ..= push.."[#"..push.."+1] = "..lua(val)..newline()
-				end
-				return r.."return "..UNPACK(push)
-			else
-				return "return "..lua(t, "_lhs")
-			end
-		end,
-		-- Push{ <expr*> }
-		Push = (t)
-			local var = assert(peek("push"), "no context given for push")
-			r = ""
-			for i=1, #t-1, 1 do
-				r ..= var.."[#"..var.."+1] = "..lua(t[i])..newline()
-			end
-			if t[#t] then
-				if t[#t].tag == "Call" then
-					r ..= APPEND(var, lua(t[#t]))
-				else
-					r ..= var.."[#"..var.."+1] = "..lua(t[#t])
-				end
-			end
-			return r
-		end,
-		-- Break
-		Break = ()
-			return "break"
-		end,
-		-- Continue
-		Continue = ()
-			return "goto "..var"continue"
-		end,
-		-- apply (below)
-
-		-- expr --
-
-		-- Nil
-		Nil = ()
-			return "nil"
-		end,
-		-- Dots
-		Dots = ()
-			return "..."
-		end,
-		-- Boolean{ <boolean> }
-		Boolean = (t)
-			return tostring(t[1])
-		end,
-		-- Number{ <string> }
-		Number = (t)
-			return tostring(t[1])
-		end,
-		-- String{ <string> }
-		String = (t)
-			return "%q":format(t[1])
-		end,
-		-- Function{ { ( `ParPair{ Id expr } | `Id{ <string> } )* `Dots? } block }
-		_functionWithoutKeyword = (t)
-			local r = "("
-			local decl = {}
-			if t[1][1] then
-				if t[1][1].tag == "ParPair" then
-					local id = lua(t[1][1][1])
-					indentLevel += 1
-					table.insert(decl, "if "..id.." == nil then "..id.." = "..lua(t[1][1][2]).." end")
-					indentLevel -= 1
-					r ..= id
-				else
-					r ..= lua(t[1][1])
-				end
-				for i=2, #t[1], 1 do
-					if t[1][i].tag == "ParPair" then
-						local id = lua(t[1][i][1])
-						indentLevel += 1
-						table.insert(decl, "if "..id.." == nil then "..id.." = "..lua(t[1][i][2]).." end")
-						indentLevel -= 1
-						r ..= ", " ..id
-					else
-						r ..= ", "..lua(t[1][i])
-					end
-				end
-			end
-			r ..= ")"..indent()
-			for _, d in ipairs(decl) do
-				r ..= d..newline()
-			end
-			if t[2][#t[2]] and t[2][#t[2]].tag == "Push" then -- convert final push to return
-				t[2][#t[2]].tag = "Return"
-			end
-			local hasPush = any(t[2], { "Push" }, func)
-			if hasPush then
-				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
-			else
-				push("push", false) -- no push here (make sure higher push doesn't affect us)
-			end
-			r ..= lua(t[2])
-			if hasPush and (t[2][#t[2]] and t[2][#t[2]].tag ~= "Return") then -- add return only if needed
-				r ..= newline().."return "..UNPACK(var"push")
-			end
-			pop("push")
-			return r..unindent().."end"
-		end,
-		Function = (t)
-			return "function"..lua(t, "_functionWithoutKeyword")
-		end,
-		-- Table{ ( `Pair{ expr expr } | expr )* }
-		Pair = (t)
-			return "["..lua(t[1]).."] = "..lua(t[2])
-		end,
-		Table = (t)
-			if #t == 0 then
-				return "{}"
-			elseif #t == 1 then
-				return "{ "..lua(t, "_lhs").." }"
-			else
-				return "{"..indent()..lua(t, "_lhs", nil, true)..unindent().."}"
-			end
-		end,
-		-- TableCompr{ block }
-		TableCompr = (t)
-			return push("push", "self").."(function()"..indent().."local self = {}"..newline()..lua(t[1])..newline().."return self"..unindent().."end)()"..pop("push")
-		end,
-		-- Op{ opid expr expr? }
-		Op = (t)
-			local r
-			if #t == 2 then
-				if type(tags._opid[t[1]]) == "string" then
-					r = tags._opid[t[1]].." "..lua(t[2])
-				else
-					r = tags._opid[t[1]](t[2])
-				end
-			else
-				if type(tags._opid[t[1]]) == "string" then
-					r = lua(t[2]).." "..tags._opid[t[1]].." "..lua(t[3])
-				else
-					r = tags._opid[t[1]](t[2], t[3])
-				end
-			end
-			return r
-		end,
-		-- Paren{ expr }
-		Paren = (t)
-			return "("..lua(t[1])..")"
-		end,
-		-- MethodStub{ expr expr }
-		MethodStub = (t)
-			return "(function()"..indent() ..
-					"local "..var"object".." = "..lua(t[1])..newline()..
-					"local "..var"method".." = "..var"object".."."..lua(t[2], "Id")..newline() ..
-					"if "..var"method".." == nil then return nil end"..newline()..
-					"return function(...) return "..var"method".."("..var"object"..", ...) end"..unindent()..
-				"end)()"
-		end,
-		-- SafeMethodStub{ expr expr }
-		SafeMethodStub = (t)
-			return "(function()"..indent() ..
-					"local "..var"object".." = "..lua(t[1])..newline()..
-					"if "..var"object".." == nil then return nil end"..newline()..
-					"local "..var"method".." = "..var"object".."."..lua(t[2], "Id")..newline() ..
-					"if "..var"method".." == nil then return nil end"..newline()..
-					"return function(...) return "..var"method".."("..var"object"..", ...) end"..unindent()..
-				"end)()"
-		end,
-		-- statexpr (below)
-		-- apply (below)
-		-- lhs (below)
-
-		-- lexpr --
-		LetExpr = (t)
-			return lua(t[1][1])
-		end,
-
-		-- statexpr --
-		_statexpr = (t, stat)
-			local hasPush = any(t, { "Push" }, func)
-			local r = "(function()"..indent()
-			if hasPush then
-				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
-			else
-				push("push", false) -- no push here (make sure higher push don't affect us)
-			end
-			r ..= lua(t, stat)
-			if hasPush then
-				r ..= newline().."return "..UNPACK(var"push")
-			end
-			pop("push")
-			r ..= unindent().."end)()"
-			return r
-		end,
-		-- DoExpr{ stat* }
-		DoExpr = (t)
-			if t[#t].tag == "Push" then -- convert final push to return
-				t[#t].tag = "Return"
-			end
-			return lua(t, "_statexpr", "Do")
-		end,
-		-- WhileExpr{ expr block }
-		WhileExpr = (t)
-			return lua(t, "_statexpr", "While")
-		end,
-		-- RepeatExpr{ block expr }
-		RepeatExpr = (t)
-			return lua(t, "_statexpr", "Repeat")
-		end,
-		-- IfExpr{ (expr block)+ block? }
-		IfExpr = (t)
-			for i=2, #t do -- convert final pushes to returns
-				local block = t[i]
-				if block[#block] and block[#block].tag == "Push" then
-					block[#block].tag = "Return"
-				end
-			end
-			return lua(t, "_statexpr", "If")
-		end,
-		-- FornumExpr{ ident expr expr expr? block }
-		FornumExpr = (t)
-			return lua(t, "_statexpr", "Fornum")
-		end,
-		-- ForinExpr{ {ident+} {expr+} block }
-		ForinExpr = (t)
-			return lua(t, "_statexpr", "Forin")
-		end,
-
-		-- apply --
-
-		-- Call{ expr expr* }
-		Call = (t)
-			if t[1].tag == "String" or t[1].tag == "Table" then
-				return "("..lua(t[1])..")("..lua(t, "_lhs", 2)..")"
-			elseif t[1].tag == "MethodStub" then -- method call
-				if t[1][1].tag == "String" or t[1][1].tag == "Table" then
-					return "("..lua(t[1][1]).."):"..lua(t[1][2], "Id").."("..lua(t, "_lhs", 2)..")"
-				else
-					return lua(t[1][1])..":"..lua(t[1][2], "Id").."("..lua(t, "_lhs", 2)..")"
-				end
-			else
-				return lua(t[1]).."("..lua(t, "_lhs", 2)..")"
-			end
-		end,
-		-- SafeCall{ expr expr* }
-		SafeCall = (t)
-			if t[1].tag ~= "Id" then -- side effect possible, only evaluate each expr once (or already in a safe context)
-				return lua(t, "SafeIndex")
-			else -- no side effects possible
-				return "("..lua(t[1]).." ~= nil and "..lua(t[1]).."("..lua(t, "_lhs", 2)..") or nil)"
-			end
-		end,
-
-		-- lhs --
-		_lhs = (t, start=1, newlines)
-			local r
-			if t[start] then
-				r = lua(t[start])
-				for i=start+1, #t, 1 do
-					r ..= ","..(newlines and newline() or " ")..lua(t[i])
-				end
-			else
-				r = ""
-			end
-			return r
-		end,
-		-- Id{ <string> }
-		Id = (t)
-			return t[1]
-		end,
-		-- DestructuringId{ Id | Pair+ }
-		DestructuringId = (t)
-			if t.id then -- destructing already done before, use parent variable as id
-				return t.id
-			else
-				local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement")
-				local vars = { id = tmp() }
-				for j=1, #t, 1 do
-					table.insert(vars, t[j])
-				end
-				table.insert(d, vars)
-				t.id = vars.id
-				return vars.id
-			end
-		end,
-		-- Index{ expr expr }
-		Index = (t)
-			if t[1].tag == "String" or t[1].tag == "Table" then
-				return "("..lua(t[1])..")["..lua(t[2]).."]"
-			else
-				return lua(t[1]).."["..lua(t[2]).."]"
-			end
-		end,
-		-- SafeIndex{ expr expr }
-		SafeIndex = (t)
-			if t[1].tag ~= "Id" then -- side effect possible, only evaluate each expr once (or already in a safe context)
-				local l = {} -- list of immediately chained safeindex, from deepest to nearest (to simply generated code)
-				while t.tag == "SafeIndex" or t.tag == "SafeCall" do
-					table.insert(l, 1, t)
-					t = t[1]
-				end
-				local r = "(function()"..indent().."local "..var"safe".." = "..lua(l[1][1])..newline() -- base expr
-				for _, e in ipairs(l) do
-					r ..= "if "..var"safe".." == nil then return nil end"..newline()
-					if e.tag == "SafeIndex" then
-						r ..= var"safe".." = "..var"safe".."["..lua(e[2]).."]"..newline()
-					else
-						r ..= var"safe".." = "..var"safe".."("..lua(e, "_lhs", 2)..")"..newline()
-					end
-				end
-				r ..= "return "..var"safe"..unindent().."end)()"
-				return r
-			else -- no side effects possible
-				return "("..lua(t[1]).." ~= nil and "..lua(t[1]).."["..lua(t[2]).."] or nil)"
-			end
-		end,
-
-		-- opid --
-		_opid = {
-			add = "+", sub = "-", mul = "*", div = "/",
-			idiv = "//", mod = "%", pow = "^", concat = "..",
-			band = "&", bor = "|", bxor = "~", shl = "<<", shr = ">>",
-			eq = "==", ne = "~=", lt = "<", gt = ">", le = "<=", ge = ">=",
-			["and"] = "and", ["or"] = "or", unm = "-", len = "#", bnot = "~", ["not"] = "not"
-		}
-	}, {
-		__index = (self, key)
-			error("don't know how to compile a "..tostring(key).." to "..targetName)
-		end
-	})
-
-	#placeholder("patch")
-
-	local code = lua(ast)..newline()
-	return requireStr..code
-end
+return lua54
diff --git a/compiler/lua54.can b/compiler/lua54.can
new file mode 100644
index 0000000..6ce91a8
--- /dev/null
+++ b/compiler/lua54.can
@@ -0,0 +1,835 @@
+local targetName = "Lua 5.4"
+
+return function(code, ast, options)
+	--- Line mapping
+	local lastInputPos = 1 -- last token position in the input code
+	local prevLinePos = 1 -- last token position in the previous line of code in the input code
+	local lastSource = options.chunkname or "nil" -- last found code source name (from the original file)
+	local lastLine = 1 -- last found line number (from the original file)
+
+	--- Newline management
+	local indentLevel = 0
+	-- Returns a newline.
+	local function newline()
+		local r = options.newline..string.rep(options.indentation, indentLevel)
+		if options.mapLines then
+			local sub = code:sub(lastInputPos)
+			local source, line = sub:sub(1, sub:find("\n")):match(".*%-%- (.-)%:(%d+)\n")
+
+			if source and line then
+				lastSource = source
+				lastLine = tonumber(line)
+			else
+				for _ in code:sub(prevLinePos, lastInputPos):gmatch("\n") do
+					lastLine += 1
+				end
+			end
+
+			prevLinePos = lastInputPos
+
+			r = " -- "..lastSource..":"..lastLine..r
+		end
+		return r
+	end
+	-- Returns a newline and add one level of indentation.
+	local function indent()
+		indentLevel += 1
+		return newline()
+	end
+	-- Returns a newline and remove one level of indentation.
+	local function unindent()
+		indentLevel -= 1
+		return newline()
+	end
+
+	--- State stacks
+	-- Used for context-sensitive syntax.
+	local states = {
+		push = {}, -- push stack variable names
+		destructuring = {}, -- list of variable that need to be assigned from a destructure {id = "parent variable", "field1", "field2"...}
+		scope = {} -- list of variables defined in the current scope
+	}
+	-- Push a new value on top of the stack "name". Returns an empty string for chaining.
+	local function push(name, state)
+		table.insert(states[name], state)
+		return ""
+	end
+	-- Remove the value on top of the stack "name". Returns an empty string for chaining.
+	local function pop(name)
+		table.remove(states[name])
+		return ""
+	end
+	-- Set the value on top of the stack "name". Returns an empty string for chaining.
+	local function set(name, state)
+		states[name][#states[name]] = state
+		return ""
+	end
+	-- Returns the value on top of the stack "name".
+	local function peek(name)
+		return states[name][#states[name]]
+	end
+
+	--- Variable management
+	-- Returns the prefixed variable name.
+	local function var(name)
+		return options.variablePrefix..name
+	end
+
+	-- Returns the prefixed temporary variable name.
+	local function tmp()
+		local scope = peek("scope")
+		local var = "%s_%s":format(options.variablePrefix, #scope)
+		table.insert(scope, var)
+		return var
+	end
+
+	--- Module management
+	local required = {} -- { ["full require expression"] = true, ... }
+	local requireStr = ""
+	-- Add the module "mod" to the list of modules to require, and load its field "field" (or the whole module if nil) into the variable "name".
+	local function addRequire(mod, name, field)
+		local req = "require(%q)%s":format(mod, field and "."..field or "")
+		if not required[req] then
+			requireStr ..= "local %s = %s%s":format(var(name), req, options.newline)
+			required[req] = true
+		end
+	end
+
+	--- AST traversal helpers
+	local loop = { "While", "Repeat", "Fornum", "Forin", "WhileExpr", "RepeatExpr", "FornumExpr", "ForinExpr" } -- loops tags (can contain continue)
+	local func = { "Function", "TableCompr", "DoExpr", "WhileExpr", "RepeatExpr", "IfExpr", "FornumExpr", "ForinExpr" } -- function scope tags (can contain push)
+
+	-- Returns the first node or subnode from the list "list" which tag is in the list "tags", or nil if there were none.
+	-- Won't recursively follow nodes which have a tag in "nofollow".
+	local function any(list, tags, nofollow={})
+		local tagsCheck = {}
+		for _, tag in ipairs(tags) do
+			tagsCheck[tag] = true
+		end
+		local nofollowCheck = {}
+		for _, tag in ipairs(nofollow) do
+			nofollowCheck[tag] = true
+		end
+		for _, node in ipairs(list) do
+			if type(node) == "table" then
+				if tagsCheck[node.tag] then
+					return node
+				end
+				if not nofollowCheck[node.tag] then
+					local r = any(node, tags, nofollow)
+					if r then return r end
+				end
+			end
+		end
+		return nil
+	end
+
+	-- Like any, but returns a list of every node found.
+	-- Order: in the order of the list, from the deepest to the nearest
+	local function search(list, tags, nofollow={})
+		local tagsCheck = {}
+		for _, tag in ipairs(tags) do
+			tagsCheck[tag] = true
+		end
+		local nofollowCheck = {}
+		for _, tag in ipairs(nofollow) do
+			nofollowCheck[tag] = true
+		end
+		local found = {}
+		for _, node in ipairs(list) do
+			if type(node) == "table" then
+				if not nofollowCheck[node.tag] then
+					for _, n in ipairs(search(node, tags, nofollow)) do
+						table.insert(found, n)
+					end
+				end
+				if tagsCheck[node.tag] then
+					table.insert(found, node)
+				end
+			end
+		end
+		return found
+	end
+
+	-- Returns true if the all the nodes in list have their type in tags.
+	local function all(list, tags)
+		for _, node in ipairs(list) do
+			local ok = false
+			for _, tag in ipairs(tags) do
+				if node.tag == tag then
+					ok = true
+					break
+				end
+			end
+			if not ok then
+				return false
+			end
+		end
+		return true
+	end
+
+	--- Lua compiler
+	local tags
+	-- Recursively returns the compiled AST Lua code, set "forceTag" to override the tag type and pass additional arguments to the tag constructor if needed.
+	local function lua(ast, forceTag, ...)
+		if options.mapLines and ast.pos then
+			lastInputPos = ast.pos
+		end
+		return tags[forceTag or ast.tag](ast, ...)
+	end
+
+	--- Lua function calls writer
+	local UNPACK = (list, i, j) -- table.unpack
+		return "table.unpack("..list..(i and (", "..i..(j and (", "..j) or "")) or "")..")"
+	end
+	local APPEND = (t, toAppend) -- append values "toAppend" (multiple values possible) to t
+		return "do"..indent().."local "..var("a").." = table.pack("..toAppend..")"..newline().."table.move("..var("a")..", 1, "..var("a")..".n, #"..t.."+1, "..t..")"..unindent().."end"
+	end
+	local CONTINUE_START = () -- at the start of loops using continue
+		return "do"..indent()
+	end
+	local CONTINUE_STOP = () -- at the start of loops using continue
+		return unindent().."end"..newline().."::"..var"continue".."::"
+	end
+	local DESTRUCTURING_ASSIGN = (destructured, newlineAfter=false, noLocal=false) -- to define values from a destructuring assignement
+		local vars = {}
+		local values = {}
+		for _, list in ipairs(destructured) do
+			for _, v in ipairs(list) do
+				local var, val
+				if v.tag == "Id" or v.tag == "AttributeId" then
+					var = v
+					val = { tag = "Index", { tag = "Id", list.id }, { tag = "String", v[1] } }
+				elseif v.tag == "Pair" then
+					var = v[2]
+					val = { tag = "Index", { tag = "Id", list.id }, v[1] }
+				else
+					error("unknown destructuring element type: "..tostring(v.tag))
+				end
+				if destructured.rightOp and destructured.leftOp then
+					val = { tag = "Op", destructured.rightOp, var, { tag = "Op", destructured.leftOp, val, var } }
+				elseif destructured.rightOp then
+					val = { tag = "Op", destructured.rightOp, var, val }
+				elseif destructured.leftOp then
+					val = { tag = "Op", destructured.leftOp, val, var }
+				end
+				table.insert(vars, lua(var))
+				table.insert(values, lua(val))
+			end
+		end
+		if #vars > 0 then
+			local decl = noLocal and "" or "local "
+			if newlineAfter then
+				return decl..table.concat(vars, ", ").." = "..table.concat(values, ", ")..newline()
+			else
+				return newline()..decl..table.concat(vars, ", ").." = "..table.concat(values, ", ")
+			end
+		else
+			return ""
+		end
+	end
+
+	--- Tag constructors
+	tags = setmetatable({
+		-- block: { stat* } --
+		Block = (t)
+			local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- push in block and push context not yet defined
+			if hasPush and hasPush == t[#t] then -- if the first push is the last statement, it's just a return
+				hasPush.tag = "Return"
+				hasPush = false
+			end
+			local r = push("scope", {})
+			if hasPush then
+				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
+			end
+			for i=1, #t-1, 1 do
+				r ..= lua(t[i])..newline()
+			end
+			if t[#t] then
+				r ..= lua(t[#t])
+			end
+			if hasPush and (t[#t] and t[#t].tag ~= "Return") then -- add return only if needed
+				r ..= newline().."return "..UNPACK(var"push")..pop("push")
+			end
+			return r..pop("scope")
+		end,
+
+		-- stat --
+
+		-- Do{ stat* }
+		Do = (t)
+			return "do"..indent()..lua(t, "Block")..unindent().."end"
+		end,
+		-- Set{ {lhs+} (opid? = opid?)? {expr+} }
+		Set = (t)
+			-- extract vars and values
+			local expr = t[#t]
+			local vars, values = {}, {}
+			local destructuringVars, destructuringValues = {}, {}
+			for i, n in ipairs(t[1]) do
+				if n.tag == "DestructuringId" then
+					table.insert(destructuringVars, n)
+					table.insert(destructuringValues, expr[i])
+				else
+					table.insert(vars, n)
+					table.insert(values, expr[i])
+				end
+			end
+			--
+			if #t == 2 or #t == 3 then
+				local r = ""
+				if #vars > 0 then
+					r = lua(vars, "_lhs").." = "..lua(values, "_lhs")
+				end
+				if #destructuringVars > 0 then
+					local destructured = {}
+					r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
+					return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
+				end
+				return r
+			elseif #t == 4 then
+				if t[3] == "=" then
+					local r = ""
+					if #vars > 0 then
+						r ..= lua(vars, "_lhs").." = "..lua({ t[2], vars[1], { tag = "Paren", values[1] } }, "Op")
+						for i=2, math.min(#t[4], #vars), 1 do
+							r ..= ", "..lua({ t[2], vars[i], { tag = "Paren", values[i] } }, "Op")
+						end
+					end
+					if #destructuringVars > 0 then
+						local destructured = { rightOp = t[2] }
+						r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
+						return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
+					end
+					return r
+				else
+					local r  = ""
+					if #vars > 0 then
+						r ..= lua(vars, "_lhs").." = "..lua({ t[3], { tag = "Paren", values[1] }, vars[1] }, "Op")
+						for i=2, math.min(#t[4], #t[1]), 1 do
+							r ..= ", "..lua({ t[3], { tag = "Paren", values[i] }, vars[i] }, "Op")
+						end
+					end
+					if #destructuringVars > 0 then
+						local destructured = { leftOp = t[3] }
+						r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
+						return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
+					end
+					return r
+				end
+			else -- You are mad.
+				local r = ""
+				if #vars > 0 then
+					r ..= lua(vars, "_lhs").." = "..lua({ t[2], vars[1], { tag = "Op", t[4], { tag = "Paren", values[1] }, vars[1] } }, "Op")
+					for i=2, math.min(#t[5], #t[1]), 1 do
+						r ..= ", "..lua({ t[2], vars[i], { tag = "Op", t[4], { tag = "Paren", values[i] }, vars[i] } }, "Op")
+					end
+				end
+				if #destructuringVars > 0 then
+					local destructured = { rightOp = t[2], leftOp = t[4] }
+					r ..= "local "..push("destructuring", destructured)..lua(destructuringVars, "_lhs")..pop("destructuring").." = "..lua(destructuringValues, "_lhs")
+					return r..DESTRUCTURING_ASSIGN(destructured, nil, true)
+				end
+				return r
+			end
+		end,
+		-- While{ expr block }
+		While = (t)
+			local r = ""
+			local hasContinue = any(t[2], { "Continue" }, loop)
+			local lets = search({ t[1] }, { "LetExpr" })
+			if #lets > 0 then
+				r ..= "do"..indent()
+				for _, l in ipairs(lets) do
+					r ..= lua(l, "Let")..newline()
+				end
+			end
+			r ..= "while "..lua(t[1]).." do"..indent()
+			if #lets > 0 then
+				r ..= "do"..indent()
+			end
+			if hasContinue then
+				r ..= CONTINUE_START()
+			end
+			r ..= lua(t[2])
+			if hasContinue then
+				r ..= CONTINUE_STOP()
+			end
+			r ..= unindent().."end"
+			if #lets > 0 then
+				for _, l in ipairs(lets) do
+					r ..= newline()..lua(l, "Set")
+				end
+				r ..= unindent().."end"..unindent().."end"
+			end
+			return r
+		end,
+		-- Repeat{ block expr }
+		Repeat = (t)
+			local hasContinue = any(t[1], { "Continue" }, loop)
+			local r = "repeat"..indent()
+			if hasContinue then
+				r ..= CONTINUE_START()
+			end
+			r ..= lua(t[1])
+			if hasContinue then
+				r ..= CONTINUE_STOP()
+			end
+			r ..= unindent().."until "..lua(t[2])
+			return r
+		end,
+		-- If{ (lexpr block)+ block? }
+		If = (t)
+			local r = ""
+			local toClose = 0 -- blocks that need to be closed at the end of the if
+			local lets = search({ t[1] }, { "LetExpr" })
+			if #lets > 0 then
+				r ..= "do"..indent()
+				toClose += 1
+				for _, l in ipairs(lets) do
+					r ..= lua(l, "Let")..newline()
+				end
+			end
+			r ..= "if "..lua(t[1]).." then"..indent()..lua(t[2])..unindent()
+			for i=3, #t-1, 2 do
+				lets = search({ t[i] }, { "LetExpr" })
+				if #lets > 0 then
+					r ..= "else"..indent()
+					toClose += 1
+					for _, l in ipairs(lets) do
+						r ..= lua(l, "Let")..newline()
+					end
+				else
+					r ..= "else"
+				end
+				r ..= "if "..lua(t[i]).." then"..indent()..lua(t[i+1])..unindent()
+			end
+			if #t % 2 == 1 then
+				r ..= "else"..indent()..lua(t[#t])..unindent()
+			end
+			r ..= "end"
+			for i=1, toClose do
+				r ..= unindent().."end"
+			end
+			return r
+		end,
+		-- Fornum{ ident expr expr expr? block }
+		Fornum = (t)
+			local r = "for "..lua(t[1]).." = "..lua(t[2])..", "..lua(t[3])
+			if #t == 5 then
+				local hasContinue = any(t[5], { "Continue" }, loop)
+				r ..= ", "..lua(t[4]).." do"..indent()
+				if hasContinue then
+					r ..= CONTINUE_START()
+				end
+				r ..= lua(t[5])
+				if hasContinue then
+					r ..= CONTINUE_STOP()
+				end
+				return r..unindent().."end"
+			else
+				local hasContinue = any(t[4], { "Continue" }, loop)
+				r ..= " do"..indent()
+				if hasContinue then
+					r ..= CONTINUE_START()
+				end
+				r ..= lua(t[4])
+				if hasContinue then
+					r ..= CONTINUE_STOP()
+				end
+				return r..unindent().."end"
+			end
+		end,
+		-- Forin{ {ident+} {expr+} block }
+		Forin = (t)
+			local destructured = {}
+			local hasContinue = any(t[3], { "Continue" }, loop)
+			local r = "for "..push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring").." in "..lua(t[2], "_lhs").." do"..indent()
+			if hasContinue then
+				r ..= CONTINUE_START()
+			end
+			r ..= DESTRUCTURING_ASSIGN(destructured, true)..lua(t[3])
+			if hasContinue then
+				r ..= CONTINUE_STOP()
+			end
+			return r..unindent().."end"
+		end,
+		-- Local{ {attributeident+} {expr+}? }
+		Local = (t)
+			local destructured = {}
+			local r = "local "..push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring")
+			if t[2][1] then
+				r ..= " = "..lua(t[2], "_lhs")
+			end
+			return r..DESTRUCTURING_ASSIGN(destructured)
+		end,
+		-- Let{ {ident+} {expr+}? }
+		Let = (t)
+			local destructured = {}
+			local nameList = push("destructuring", destructured)..lua(t[1], "_lhs")..pop("destructuring")
+			local r = "local "..nameList
+			if t[2][1] then
+				if all(t[2], { "Nil", "Dots", "Boolean", "Number", "String" }) then -- predeclaration doesn't matter here
+					r ..= " = "..lua(t[2], "_lhs")
+				else
+					r ..= newline()..nameList.." = "..lua(t[2], "_lhs")
+				end
+			end
+			return r..DESTRUCTURING_ASSIGN(destructured)
+		end,
+		-- Localrec{ {ident} {expr} }
+		Localrec = (t)
+			return "local function "..lua(t[1][1])..lua(t[2][1], "_functionWithoutKeyword")
+		end,
+		-- Goto{ <string> }
+		Goto = (t)
+			return "goto "..lua(t, "Id")
+		end,
+		-- Label{ <string> }
+		Label = (t)
+			return "::"..lua(t, "Id").."::"
+		end,
+		-- Return{ <expr*> }
+		Return = (t)
+			local push = peek("push")
+			if push then
+				local r = ""
+				for _, val in ipairs(t) do
+					r ..= push.."[#"..push.."+1] = "..lua(val)..newline()
+				end
+				return r.."return "..UNPACK(push)
+			else
+				return "return "..lua(t, "_lhs")
+			end
+		end,
+		-- Push{ <expr*> }
+		Push = (t)
+			local var = assert(peek("push"), "no context given for push")
+			r = ""
+			for i=1, #t-1, 1 do
+				r ..= var.."[#"..var.."+1] = "..lua(t[i])..newline()
+			end
+			if t[#t] then
+				if t[#t].tag == "Call" then
+					r ..= APPEND(var, lua(t[#t]))
+				else
+					r ..= var.."[#"..var.."+1] = "..lua(t[#t])
+				end
+			end
+			return r
+		end,
+		-- Break
+		Break = ()
+			return "break"
+		end,
+		-- Continue
+		Continue = ()
+			return "goto "..var"continue"
+		end,
+		-- apply (below)
+
+		-- expr --
+
+		-- Nil
+		Nil = ()
+			return "nil"
+		end,
+		-- Dots
+		Dots = ()
+			return "..."
+		end,
+		-- Boolean{ <boolean> }
+		Boolean = (t)
+			return tostring(t[1])
+		end,
+		-- Number{ <string> }
+		Number = (t)
+			return tostring(t[1])
+		end,
+		-- String{ <string> }
+		String = (t)
+			return "%q":format(t[1])
+		end,
+		-- Function{ { ( `ParPair{ Id expr } | `Id{ <string> } )* `Dots? } block }
+		_functionWithoutKeyword = (t)
+			local r = "("
+			local decl = {}
+			if t[1][1] then
+				if t[1][1].tag == "ParPair" then
+					local id = lua(t[1][1][1])
+					indentLevel += 1
+					table.insert(decl, "if "..id.." == nil then "..id.." = "..lua(t[1][1][2]).." end")
+					indentLevel -= 1
+					r ..= id
+				else
+					r ..= lua(t[1][1])
+				end
+				for i=2, #t[1], 1 do
+					if t[1][i].tag == "ParPair" then
+						local id = lua(t[1][i][1])
+						indentLevel += 1
+						table.insert(decl, "if "..id.." == nil then "..id.." = "..lua(t[1][i][2]).." end")
+						indentLevel -= 1
+						r ..= ", " ..id
+					else
+						r ..= ", "..lua(t[1][i])
+					end
+				end
+			end
+			r ..= ")"..indent()
+			for _, d in ipairs(decl) do
+				r ..= d..newline()
+			end
+			if t[2][#t[2]] and t[2][#t[2]].tag == "Push" then -- convert final push to return
+				t[2][#t[2]].tag = "Return"
+			end
+			local hasPush = any(t[2], { "Push" }, func)
+			if hasPush then
+				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
+			else
+				push("push", false) -- no push here (make sure higher push doesn't affect us)
+			end
+			r ..= lua(t[2])
+			if hasPush and (t[2][#t[2]] and t[2][#t[2]].tag ~= "Return") then -- add return only if needed
+				r ..= newline().."return "..UNPACK(var"push")
+			end
+			pop("push")
+			return r..unindent().."end"
+		end,
+		Function = (t)
+			return "function"..lua(t, "_functionWithoutKeyword")
+		end,
+		-- Table{ ( `Pair{ expr expr } | expr )* }
+		Pair = (t)
+			return "["..lua(t[1]).."] = "..lua(t[2])
+		end,
+		Table = (t)
+			if #t == 0 then
+				return "{}"
+			elseif #t == 1 then
+				return "{ "..lua(t, "_lhs").." }"
+			else
+				return "{"..indent()..lua(t, "_lhs", nil, true)..unindent().."}"
+			end
+		end,
+		-- TableCompr{ block }
+		TableCompr = (t)
+			return push("push", "self").."(function()"..indent().."local self = {}"..newline()..lua(t[1])..newline().."return self"..unindent().."end)()"..pop("push")
+		end,
+		-- Op{ opid expr expr? }
+		Op = (t)
+			local r
+			if #t == 2 then
+				if type(tags._opid[t[1]]) == "string" then
+					r = tags._opid[t[1]].." "..lua(t[2])
+				else
+					r = tags._opid[t[1]](t[2])
+				end
+			else
+				if type(tags._opid[t[1]]) == "string" then
+					r = lua(t[2]).." "..tags._opid[t[1]].." "..lua(t[3])
+				else
+					r = tags._opid[t[1]](t[2], t[3])
+				end
+			end
+			return r
+		end,
+		-- Paren{ expr }
+		Paren = (t)
+			return "("..lua(t[1])..")"
+		end,
+		-- MethodStub{ expr expr }
+		MethodStub = (t)
+			return "(function()"..indent() ..
+					"local "..var"object".." = "..lua(t[1])..newline()..
+					"local "..var"method".." = "..var"object".."."..lua(t[2], "Id")..newline() ..
+					"if "..var"method".." == nil then return nil end"..newline()..
+					"return function(...) return "..var"method".."("..var"object"..", ...) end"..unindent()..
+				"end)()"
+		end,
+		-- SafeMethodStub{ expr expr }
+		SafeMethodStub = (t)
+			return "(function()"..indent() ..
+					"local "..var"object".." = "..lua(t[1])..newline()..
+					"if "..var"object".." == nil then return nil end"..newline()..
+					"local "..var"method".." = "..var"object".."."..lua(t[2], "Id")..newline() ..
+					"if "..var"method".." == nil then return nil end"..newline()..
+					"return function(...) return "..var"method".."("..var"object"..", ...) end"..unindent()..
+				"end)()"
+		end,
+		-- statexpr (below)
+		-- apply (below)
+		-- lhs (below)
+
+		-- lexpr --
+		LetExpr = (t)
+			return lua(t[1][1])
+		end,
+
+		-- statexpr --
+		_statexpr = (t, stat)
+			local hasPush = any(t, { "Push" }, func)
+			local r = "(function()"..indent()
+			if hasPush then
+				r ..= push("push", var"push").."local "..var"push".." = {}"..newline()
+			else
+				push("push", false) -- no push here (make sure higher push don't affect us)
+			end
+			r ..= lua(t, stat)
+			if hasPush then
+				r ..= newline().."return "..UNPACK(var"push")
+			end
+			pop("push")
+			r ..= unindent().."end)()"
+			return r
+		end,
+		-- DoExpr{ stat* }
+		DoExpr = (t)
+			if t[#t].tag == "Push" then -- convert final push to return
+				t[#t].tag = "Return"
+			end
+			return lua(t, "_statexpr", "Do")
+		end,
+		-- WhileExpr{ expr block }
+		WhileExpr = (t)
+			return lua(t, "_statexpr", "While")
+		end,
+		-- RepeatExpr{ block expr }
+		RepeatExpr = (t)
+			return lua(t, "_statexpr", "Repeat")
+		end,
+		-- IfExpr{ (expr block)+ block? }
+		IfExpr = (t)
+			for i=2, #t do -- convert final pushes to returns
+				local block = t[i]
+				if block[#block] and block[#block].tag == "Push" then
+					block[#block].tag = "Return"
+				end
+			end
+			return lua(t, "_statexpr", "If")
+		end,
+		-- FornumExpr{ ident expr expr expr? block }
+		FornumExpr = (t)
+			return lua(t, "_statexpr", "Fornum")
+		end,
+		-- ForinExpr{ {ident+} {expr+} block }
+		ForinExpr = (t)
+			return lua(t, "_statexpr", "Forin")
+		end,
+
+		-- apply --
+
+		-- Call{ expr expr* }
+		Call = (t)
+			if t[1].tag == "String" or t[1].tag == "Table" then
+				return "("..lua(t[1])..")("..lua(t, "_lhs", 2)..")"
+			elseif t[1].tag == "MethodStub" then -- method call
+				if t[1][1].tag == "String" or t[1][1].tag == "Table" then
+					return "("..lua(t[1][1]).."):"..lua(t[1][2], "Id").."("..lua(t, "_lhs", 2)..")"
+				else
+					return lua(t[1][1])..":"..lua(t[1][2], "Id").."("..lua(t, "_lhs", 2)..")"
+				end
+			else
+				return lua(t[1]).."("..lua(t, "_lhs", 2)..")"
+			end
+		end,
+		-- SafeCall{ expr expr* }
+		SafeCall = (t)
+			if t[1].tag ~= "Id" then -- side effect possible, only evaluate each expr once (or already in a safe context)
+				return lua(t, "SafeIndex")
+			else -- no side effects possible
+				return "("..lua(t[1]).." ~= nil and "..lua(t[1]).."("..lua(t, "_lhs", 2)..") or nil)"
+			end
+		end,
+
+		-- lhs --
+		_lhs = (t, start=1, newlines)
+			local r
+			if t[start] then
+				r = lua(t[start])
+				for i=start+1, #t, 1 do
+					r ..= ","..(newlines and newline() or " ")..lua(t[i])
+				end
+			else
+				r = ""
+			end
+			return r
+		end,
+		-- Id{ <string> }
+		Id = (t)
+			return t[1]
+		end,
+		-- AttributeId{ <string> <string>? }
+		AttributeId = (t)
+			if t[2] then
+				return t[1] .. " <" .. t[2] .. ">"
+			else
+				return t[1]
+			end
+		end,
+		-- DestructuringId{ Id | Pair+ }
+		DestructuringId = (t)
+			if t.id then -- destructing already done before, use parent variable as id
+				return t.id
+			else
+				local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement")
+				local vars = { id = tmp() }
+				for j=1, #t, 1 do
+					table.insert(vars, t[j])
+				end
+				table.insert(d, vars)
+				t.id = vars.id
+				return vars.id
+			end
+		end,
+		-- Index{ expr expr }
+		Index = (t)
+			if t[1].tag == "String" or t[1].tag == "Table" then
+				return "("..lua(t[1])..")["..lua(t[2]).."]"
+			else
+				return lua(t[1]).."["..lua(t[2]).."]"
+			end
+		end,
+		-- SafeIndex{ expr expr }
+		SafeIndex = (t)
+			if t[1].tag ~= "Id" then -- side effect possible, only evaluate each expr once (or already in a safe context)
+				local l = {} -- list of immediately chained safeindex, from deepest to nearest (to simply generated code)
+				while t.tag == "SafeIndex" or t.tag == "SafeCall" do
+					table.insert(l, 1, t)
+					t = t[1]
+				end
+				local r = "(function()"..indent().."local "..var"safe".." = "..lua(l[1][1])..newline() -- base expr
+				for _, e in ipairs(l) do
+					r ..= "if "..var"safe".." == nil then return nil end"..newline()
+					if e.tag == "SafeIndex" then
+						r ..= var"safe".." = "..var"safe".."["..lua(e[2]).."]"..newline()
+					else
+						r ..= var"safe".." = "..var"safe".."("..lua(e, "_lhs", 2)..")"..newline()
+					end
+				end
+				r ..= "return "..var"safe"..unindent().."end)()"
+				return r
+			else -- no side effects possible
+				return "("..lua(t[1]).." ~= nil and "..lua(t[1]).."["..lua(t[2]).."] or nil)"
+			end
+		end,
+
+		-- opid --
+		_opid = {
+			add = "+", sub = "-", mul = "*", div = "/",
+			idiv = "//", mod = "%", pow = "^", concat = "..",
+			band = "&", bor = "|", bxor = "~", shl = "<<", shr = ">>",
+			eq = "==", ne = "~=", lt = "<", gt = ">", le = "<=", ge = ">=",
+			["and"] = "and", ["or"] = "or", unm = "-", len = "#", bnot = "~", ["not"] = "not"
+		}
+	}, {
+		__index = (self, key)
+			error("don't know how to compile a "..tostring(key).." to "..targetName)
+		end
+	})
+
+	#placeholder("patch")
+
+	local code = lua(ast)..newline()
+	return requireStr..code
+end

From cecb2aea031e5f03d63dbea20de3819c3ded63aa Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Sat, 4 Jul 2020 23:42:51 +0200
Subject: [PATCH 07/43] Lua <5.4: Only error when the variable is declared with
 an attribute

---
 candran.lua        | 50 +++++++++++++++++++++++++++++++---------------
 compiler/lua53.can |  8 +++++++-
 2 files changed, 41 insertions(+), 17 deletions(-)

diff --git a/candran.lua b/candran.lua
index 5ff75d4..c9cb27a 100644
--- a/candran.lua
+++ b/candran.lua
@@ -1848,19 +1848,25 @@ end, -- ./compiler/lua54.can:813
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
 end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
 return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:10
-end -- ./compiler/lua53.can:10
-local lua53 = _() or lua53 -- ./compiler/lua53.can:14
-package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:15
-local function _() -- ./compiler/lua53.can:18
-local function _() -- ./compiler/lua53.can:20
-local function _() -- ./compiler/lua53.can:22
+return lua54 -- ./compiler/lua53.can:16
+end -- ./compiler/lua53.can:16
+local lua53 = _() or lua53 -- ./compiler/lua53.can:20
+package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:21
+local function _() -- ./compiler/lua53.can:24
+local function _() -- ./compiler/lua53.can:26
+local function _() -- ./compiler/lua53.can:28
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
 return function(code, ast, options) -- ./compiler/lua54.can:3
 local lastInputPos = 1 -- ./compiler/lua54.can:5
@@ -2717,15 +2723,21 @@ end, -- ./compiler/lua54.can:813
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
 end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
 return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:10
-end -- ./compiler/lua53.can:10
-local lua53 = _() or lua53 -- ./compiler/lua53.can:14
+return lua54 -- ./compiler/lua53.can:16
+end -- ./compiler/lua53.can:16
+local lua53 = _() or lua53 -- ./compiler/lua53.can:20
 return lua53 -- ./compiler/luajit.can:44
 end -- ./compiler/luajit.can:44
 local luajit = _() or luajit -- ./compiler/luajit.can:48
@@ -3590,15 +3602,21 @@ end, -- ./compiler/lua54.can:813
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
 end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = nil -- ./compiler/lua53.can:4
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
 return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:10
-end -- ./compiler/lua53.can:10
-local lua53 = _() or lua53 -- ./compiler/lua53.can:14
+return lua54 -- ./compiler/lua53.can:16
+end -- ./compiler/lua53.can:16
+local lua53 = _() or lua53 -- ./compiler/lua53.can:20
 return lua53 -- ./compiler/luajit.can:44
 end -- ./compiler/luajit.can:44
 local luajit = _() or luajit -- ./compiler/luajit.can:48
diff --git a/compiler/lua53.can b/compiler/lua53.can
index 1bb0c53..ebee8dd 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -1,7 +1,13 @@
 targetName = "Lua 5.3"
 
 -- Unsuported features
-tags.AttributeId = nil
+tags.AttributeId = (t)
+	if t[2] then
+		error("target does not support variable attributes")
+	else
+		return t[1]
+	end
+end
 
 #local patch = output
 #output = ""

From c8c35e93a8fc0e0ad6c3c16afb905bc5a793d41c Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 28 Aug 2020 23:41:33 +0200
Subject: [PATCH 08/43] Fix unpack/table.unpack rename in 5.3/5.4

---
 candran.can |   2 +
 candran.lua | 451 ++++++++++++++++++++++++++--------------------------
 2 files changed, 228 insertions(+), 225 deletions(-)

diff --git a/candran.can b/candran.can
index 326ac0c..6546de9 100644
--- a/candran.can
+++ b/candran.can
@@ -11,6 +11,8 @@
 #import("candran.can-parser.pp")
 #import("candran.can-parser.parser")
 
+local unpack = unpack or table.unpack
+
 local candran = {
 	VERSION = "0.13.0"
 }
diff --git a/candran.lua b/candran.lua
index c9cb27a..2b51418 100644
--- a/candran.lua
+++ b/candran.lua
@@ -5355,250 +5355,251 @@ return parser -- ./candran/can-parser/parser.lua:777
 end -- ./candran/can-parser/parser.lua:777
 local parser = _() or parser -- ./candran/can-parser/parser.lua:781
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
-local candran = { ["VERSION"] = "0.13.0" } -- candran.can:15
-candran["default"] = { -- candran.can:19
-["target"] = "lua54", -- candran.can:20
-["indentation"] = "", -- candran.can:21
+local unpack = unpack or table["unpack"] -- candran.can:14
+local candran = { ["VERSION"] = "0.13.0" } -- candran.can:17
+candran["default"] = { -- candran.can:21
+["target"] = "lua54", -- candran.can:22
+["indentation"] = "", -- candran.can:23
 ["newline"] = "\
-", -- candran.can:22
-["variablePrefix"] = "__CAN_", -- candran.can:23
-["mapLines"] = true, -- candran.can:24
-["chunkname"] = "nil", -- candran.can:25
-["rewriteErrors"] = true -- candran.can:26
-} -- candran.can:26
-if _VERSION == "Lua 5.1" then -- candran.can:30
-if package["loaded"]["jit"] then -- candran.can:31
-candran["default"]["target"] = "luajit" -- candran.can:32
-else -- candran.can:32
-candran["default"]["target"] = "lua51" -- candran.can:34
-end -- candran.can:34
-elseif _VERSION == "Lua 5.2" then -- candran.can:36
-candran["default"]["target"] = "lua51" -- candran.can:37
-elseif _VERSION == "Lua 5.3" then -- candran.can:38
- -- candran.can:40
-end -- candran.can:40
-candran["preprocess"] = function(input, options) -- candran.can:48
-if options == nil then options = {} end -- candran.can:48
-options = util["merge"](candran["default"], options) -- candran.can:49
-local preprocessor = "" -- candran.can:52
-local i = 0 -- candran.can:53
-local inLongString = false -- candran.can:54
-local inComment = false -- candran.can:55
+", -- candran.can:24
+["variablePrefix"] = "__CAN_", -- candran.can:25
+["mapLines"] = true, -- candran.can:26
+["chunkname"] = "nil", -- candran.can:27
+["rewriteErrors"] = true -- candran.can:28
+} -- candran.can:28
+if _VERSION == "Lua 5.1" then -- candran.can:32
+if package["loaded"]["jit"] then -- candran.can:33
+candran["default"]["target"] = "luajit" -- candran.can:34
+else -- candran.can:34
+candran["default"]["target"] = "lua51" -- candran.can:36
+end -- candran.can:36
+elseif _VERSION == "Lua 5.2" then -- candran.can:38
+candran["default"]["target"] = "lua51" -- candran.can:39
+elseif _VERSION == "Lua 5.3" then -- candran.can:40
+ -- candran.can:42
+end -- candran.can:42
+candran["preprocess"] = function(input, options) -- candran.can:50
+if options == nil then options = {} end -- candran.can:50
+options = util["merge"](candran["default"], options) -- candran.can:51
+local preprocessor = "" -- candran.can:54
+local i = 0 -- candran.can:55
+local inLongString = false -- candran.can:56
+local inComment = false -- candran.can:57
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:56
-i = i + (1) -- candran.can:57
-if inComment then -- candran.can:59
-inComment = not line:match("%]%]") -- candran.can:60
-elseif inLongString then -- candran.can:61
-inLongString = not line:match("%]%]") -- candran.can:62
-else -- candran.can:62
-if line:match("[^%-]%[%[") then -- candran.can:64
-inLongString = true -- candran.can:65
-elseif line:match("%-%-%[%[") then -- candran.can:66
-inComment = true -- candran.can:67
-end -- candran.can:67
-end -- candran.can:67
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:70
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:71
-else -- candran.can:71
-local l = line:sub(1, - 2) -- candran.can:73
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:74
+)") do -- candran.can:58
+i = i + (1) -- candran.can:59
+if inComment then -- candran.can:61
+inComment = not line:match("%]%]") -- candran.can:62
+elseif inLongString then -- candran.can:63
+inLongString = not line:match("%]%]") -- candran.can:64
+else -- candran.can:64
+if line:match("[^%-]%[%[") then -- candran.can:66
+inLongString = true -- candran.can:67
+elseif line:match("%-%-%[%[") then -- candran.can:68
+inComment = true -- candran.can:69
+end -- candran.can:69
+end -- candran.can:69
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:72
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:73
+else -- candran.can:73
+local l = line:sub(1, - 2) -- candran.can:75
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:76
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:75
-else -- candran.can:75
-preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
 ") -- candran.can:77
-end -- candran.can:77
-end -- candran.can:77
-end -- candran.can:77
-preprocessor = preprocessor .. ("return output") -- candran.can:81
-local env = util["merge"](_G, options) -- candran.can:84
-env["candran"] = candran -- candran.can:86
-env["output"] = "" -- candran.can:88
-env["import"] = function(modpath, margs) -- candran.can:95
-if margs == nil then margs = {} end -- candran.can:95
-local filepath = assert(util["search"](modpath, { -- candran.can:96
-"can", -- candran.can:96
-"lua" -- candran.can:96
-}), "No module named \"" .. modpath .. "\"") -- candran.can:96
-local f = io["open"](filepath) -- candran.can:99
-if not f then -- candran.can:100
-error("can't open the module file to import") -- candran.can:100
-end -- candran.can:100
-margs = util["merge"](options, { -- candran.can:102
-["chunkname"] = filepath, -- candran.can:102
-["loadLocal"] = true, -- candran.can:102
-["loadPackage"] = true -- candran.can:102
-}, margs) -- candran.can:102
-local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:103
-f:close() -- candran.can:104
-local modname = modpath:match("[^%.]+$") -- candran.can:107
+else -- candran.can:77
+preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
+") -- candran.can:79
+end -- candran.can:79
+end -- candran.can:79
+end -- candran.can:79
+preprocessor = preprocessor .. ("return output") -- candran.can:83
+local env = util["merge"](_G, options) -- candran.can:86
+env["candran"] = candran -- candran.can:88
+env["output"] = "" -- candran.can:90
+env["import"] = function(modpath, margs) -- candran.can:97
+if margs == nil then margs = {} end -- candran.can:97
+local filepath = assert(util["search"](modpath, { -- candran.can:98
+"can", -- candran.can:98
+"lua" -- candran.can:98
+}), "No module named \"" .. modpath .. "\"") -- candran.can:98
+local f = io["open"](filepath) -- candran.can:101
+if not f then -- candran.can:102
+error("can't open the module file to import") -- candran.can:102
+end -- candran.can:102
+margs = util["merge"](options, { -- candran.can:104
+["chunkname"] = filepath, -- candran.can:104
+["loadLocal"] = true, -- candran.can:104
+["loadPackage"] = true -- candran.can:104
+}, margs) -- candran.can:104
+local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:105
+f:close() -- candran.can:106
+local modname = modpath:match("[^%.]+$") -- candran.can:109
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:116
-end -- candran.can:116
-env["include"] = function(file) -- candran.can:121
-local f = io["open"](file) -- candran.can:122
-if not f then -- candran.can:123
-error("can't open the file " .. file .. " to include") -- candran.can:123
-end -- candran.can:123
-env["write"](f:read("*a")) -- candran.can:124
-f:close() -- candran.can:125
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:118
+end -- candran.can:118
+env["include"] = function(file) -- candran.can:123
+local f = io["open"](file) -- candran.can:124
+if not f then -- candran.can:125
+error("can't open the file " .. file .. " to include") -- candran.can:125
 end -- candran.can:125
-env["write"] = function(...) -- candran.can:129
+env["write"](f:read("*a")) -- candran.can:126
+f:close() -- candran.can:127
+end -- candran.can:127
+env["write"] = function(...) -- candran.can:131
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:130
-end -- candran.can:130
-env["placeholder"] = function(name) -- candran.can:134
-if env[name] then -- candran.can:135
-env["write"](env[name]) -- candran.can:136
-end -- candran.can:136
-end -- candran.can:136
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:141
-if not preprocess then -- candran.can:142
-return nil, "in preprocessor: " .. err -- candran.can:143
-end -- candran.can:143
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:146
-if not preprocess then -- candran.can:147
-return nil, "in preprocessor: " .. err -- candran.can:148
-end -- candran.can:148
-local success, output = pcall(preprocess) -- candran.can:152
-if not success then -- candran.can:153
-return nil, "in preprocessor: " .. output -- candran.can:154
-end -- candran.can:154
-return output -- candran.can:157
-end -- candran.can:157
-candran["compile"] = function(input, options) -- candran.can:166
-if options == nil then options = {} end -- candran.can:166
-options = util["merge"](candran["default"], options) -- candran.can:167
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:169
-if not ast then -- candran.can:171
-return nil, errmsg -- candran.can:172
-end -- candran.can:172
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:175
-end -- candran.can:175
-candran["make"] = function(code, options) -- candran.can:184
-local r, err = candran["preprocess"](code, options) -- candran.can:185
-if r then -- candran.can:186
-r, err = candran["compile"](r, options) -- candran.can:187
+") -- candran.can:132
+end -- candran.can:132
+env["placeholder"] = function(name) -- candran.can:136
+if env[name] then -- candran.can:137
+env["write"](env[name]) -- candran.can:138
+end -- candran.can:138
+end -- candran.can:138
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:143
+if not preprocess then -- candran.can:144
+return nil, "in preprocessor: " .. err -- candran.can:145
+end -- candran.can:145
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:148
+if not preprocess then -- candran.can:149
+return nil, "in preprocessor: " .. err -- candran.can:150
+end -- candran.can:150
+local success, output = pcall(preprocess) -- candran.can:154
+if not success then -- candran.can:155
+return nil, "in preprocessor: " .. output -- candran.can:156
+end -- candran.can:156
+return output -- candran.can:159
+end -- candran.can:159
+candran["compile"] = function(input, options) -- candran.can:168
+if options == nil then options = {} end -- candran.can:168
+options = util["merge"](candran["default"], options) -- candran.can:169
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:171
+if not ast then -- candran.can:173
+return nil, errmsg -- candran.can:174
+end -- candran.can:174
+return require("compiler." .. options["target"])(input, ast, options) -- candran.can:177
+end -- candran.can:177
+candran["make"] = function(code, options) -- candran.can:186
+local r, err = candran["preprocess"](code, options) -- candran.can:187
 if r then -- candran.can:188
-return r -- candran.can:189
-end -- candran.can:189
-end -- candran.can:189
-return r, err -- candran.can:192
-end -- candran.can:192
-local errorRewritingActive = false -- candran.can:195
-local codeCache = {} -- candran.can:196
-candran["loadfile"] = function(filepath, env, options) -- candran.can:199
-local f, err = io["open"](filepath) -- candran.can:200
-if not f then -- candran.can:201
-return nil, ("cannot open %s"):format(err) -- candran.can:202
-end -- candran.can:202
-local content = f:read("*a") -- candran.can:204
-f:close() -- candran.can:205
-return candran["load"](content, filepath, env, options) -- candran.can:207
-end -- candran.can:207
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:212
-if options == nil then options = {} end -- candran.can:212
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:213
-local code, err = candran["make"](chunk, options) -- candran.can:215
-if not code then -- candran.can:216
-return code, err -- candran.can:217
-end -- candran.can:217
-codeCache[options["chunkname"]] = code -- candran.can:220
-local f, err = util["load"](code, options["chunkname"], env) -- candran.can:221
-if f == nil then -- candran.can:226
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:227
-end -- candran.can:227
-if options["rewriteErrors"] == false then -- candran.can:230
-return f -- candran.can:231
-else -- candran.can:231
-return function(...) -- candran.can:233
-local params = { ... } -- candran.can:234
-if not errorRewritingActive then -- candran.can:235
-errorRewritingActive = true -- candran.can:236
-local t = { xpcall(function() -- candran.can:237
-return f(unpack(params)) -- candran.can:237
-end, candran["messageHandler"]) } -- candran.can:237
-errorRewritingActive = false -- candran.can:238
-if t[1] == false then -- candran.can:239
-error(t[2], 0) -- candran.can:240
-end -- candran.can:240
-return unpack(t, 2) -- candran.can:242
-else -- candran.can:242
-return f(...) -- candran.can:244
-end -- candran.can:244
-end -- candran.can:244
-end -- candran.can:244
-end -- candran.can:244
-candran["dofile"] = function(filename, options) -- candran.can:252
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:253
-if f == nil then -- candran.can:255
-error(err) -- candran.can:256
-else -- candran.can:256
-return f() -- candran.can:258
-end -- candran.can:258
-end -- candran.can:258
-candran["messageHandler"] = function(message) -- candran.can:264
+r, err = candran["compile"](r, options) -- candran.can:189
+if r then -- candran.can:190
+return r -- candran.can:191
+end -- candran.can:191
+end -- candran.can:191
+return r, err -- candran.can:194
+end -- candran.can:194
+local errorRewritingActive = false -- candran.can:197
+local codeCache = {} -- candran.can:198
+candran["loadfile"] = function(filepath, env, options) -- candran.can:201
+local f, err = io["open"](filepath) -- candran.can:202
+if not f then -- candran.can:203
+return nil, ("cannot open %s"):format(err) -- candran.can:204
+end -- candran.can:204
+local content = f:read("*a") -- candran.can:206
+f:close() -- candran.can:207
+return candran["load"](content, filepath, env, options) -- candran.can:209
+end -- candran.can:209
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:214
+if options == nil then options = {} end -- candran.can:214
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:215
+local code, err = candran["make"](chunk, options) -- candran.can:217
+if not code then -- candran.can:218
+return code, err -- candran.can:219
+end -- candran.can:219
+codeCache[options["chunkname"]] = code -- candran.can:222
+local f, err = util["load"](code, options["chunkname"], env) -- candran.can:223
+if f == nil then -- candran.can:228
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:229
+end -- candran.can:229
+if options["rewriteErrors"] == false then -- candran.can:232
+return f -- candran.can:233
+else -- candran.can:233
+return function(...) -- candran.can:235
+local params = { ... } -- candran.can:236
+if not errorRewritingActive then -- candran.can:237
+errorRewritingActive = true -- candran.can:238
+local t = { xpcall(function() -- candran.can:239
+return f(unpack(params)) -- candran.can:239
+end, candran["messageHandler"]) } -- candran.can:239
+errorRewritingActive = false -- candran.can:240
+if t[1] == false then -- candran.can:241
+error(t[2], 0) -- candran.can:242
+end -- candran.can:242
+return unpack(t, 2) -- candran.can:244
+else -- candran.can:244
+return f(...) -- candran.can:246
+end -- candran.can:246
+end -- candran.can:246
+end -- candran.can:246
+end -- candran.can:246
+candran["dofile"] = function(filename, options) -- candran.can:254
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:255
+if f == nil then -- candran.can:257
+error(err) -- candran.can:258
+else -- candran.can:258
+return f() -- candran.can:260
+end -- candran.can:260
+end -- candran.can:260
+candran["messageHandler"] = function(message) -- candran.can:266
 return debug["traceback"](message, 2):gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:265
-line = tonumber(line) -- candran.can:266
-local originalFile -- candran.can:268
-local strName = source:match("%[string \"(.-)\"%]") -- candran.can:269
-if strName then -- candran.can:270
-if codeCache[strName] then -- candran.can:271
-originalFile = codeCache[strName] -- candran.can:272
-source = strName -- candran.can:273
-end -- candran.can:273
-else -- candran.can:273
-local fi = io["open"](source, "r") -- candran.can:276
-if fi then -- candran.can:277
-originalFile = fi:read("*a") -- candran.can:278
-fi:close() -- candran.can:279
-end -- candran.can:279
-end -- candran.can:279
-if originalFile then -- candran.can:283
-local i = 0 -- candran.can:284
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:267
+line = tonumber(line) -- candran.can:268
+local originalFile -- candran.can:270
+local strName = source:match("%[string \"(.-)\"%]") -- candran.can:271
+if strName then -- candran.can:272
+if codeCache[strName] then -- candran.can:273
+originalFile = codeCache[strName] -- candran.can:274
+source = strName -- candran.can:275
+end -- candran.can:275
+else -- candran.can:275
+local fi = io["open"](source, "r") -- candran.can:278
+if fi then -- candran.can:279
+originalFile = fi:read("*a") -- candran.can:280
+fi:close() -- candran.can:281
+end -- candran.can:281
+end -- candran.can:281
+if originalFile then -- candran.can:285
+local i = 0 -- candran.can:286
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:285
-i = i + 1 -- candran.can:286
-if i == line then -- candran.can:287
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:288
-if lineMap then -- candran.can:289
-if extSource ~= source then -- candran.can:290
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:291
-else -- candran.can:291
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:293
-end -- candran.can:293
-end -- candran.can:293
-break -- candran.can:296
-end -- candran.can:296
-end -- candran.can:296
-end -- candran.can:296
-end) -- candran.can:296
-end -- candran.can:296
-candran["searcher"] = function(modpath) -- candran.can:304
-local filepath = util["search"](modpath, { "can" }) -- candran.can:305
-if not filepath then -- candran.can:306
+") do -- candran.can:287
+i = i + 1 -- candran.can:288
+if i == line then -- candran.can:289
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:290
+if lineMap then -- candran.can:291
+if extSource ~= source then -- candran.can:292
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:293
+else -- candran.can:293
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:295
+end -- candran.can:295
+end -- candran.can:295
+break -- candran.can:298
+end -- candran.can:298
+end -- candran.can:298
+end -- candran.can:298
+end) -- candran.can:298
+end -- candran.can:298
+candran["searcher"] = function(modpath) -- candran.can:306
+local filepath = util["search"](modpath, { "can" }) -- candran.can:307
+if not filepath then -- candran.can:308
 return "\
-\9no candran file in package.path" -- candran.can:307
-end -- candran.can:307
-return candran["loadfile"](filepath) -- candran.can:309
+\9no candran file in package.path" -- candran.can:309
 end -- candran.can:309
-candran["setup"] = function() -- candran.can:313
-if _VERSION == "Lua 5.1" then -- candran.can:314
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:315
-else -- candran.can:315
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:317
-end -- candran.can:317
-return candran -- candran.can:319
+return candran["loadfile"](filepath) -- candran.can:311
+end -- candran.can:311
+candran["setup"] = function() -- candran.can:315
+if _VERSION == "Lua 5.1" then -- candran.can:316
+table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:317
+else -- candran.can:317
+table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:319
 end -- candran.can:319
-return candran -- candran.can:322
+return candran -- candran.can:321
+end -- candran.can:321
+return candran -- candran.can:324

From c8aa4f2a0874c7f97ce5e4db8c8bfe2d8be814f2 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 16:24:26 +0100
Subject: [PATCH 09/43] Improve error reporting in candran.searcher

---
 candran.can | 17 +++++++++++++----
 candran.lua | 37 +++++++++++++++++++++++--------------
 2 files changed, 36 insertions(+), 18 deletions(-)

diff --git a/candran.can b/candran.can
index 6546de9..8a05216 100644
--- a/candran.can
+++ b/candran.can
@@ -14,7 +14,7 @@
 local unpack = unpack or table.unpack
 
 local candran = {
-	VERSION = "0.13.0"
+	VERSION = "0.13.1"
 }
 
 --- Default options.
@@ -38,7 +38,7 @@ if _VERSION == "Lua 5.1" then
 elseif _VERSION == "Lua 5.2" then
 	candran.default.target = "lua51"
 elseif _VERSION == "Lua 5.3" then
-	--candran.default.target = "lua53"
+	candran.default.target = "lua53"
 end
 
 --- Run the preprocessor
@@ -306,9 +306,18 @@ end
 function candran.searcher(modpath)
 	local filepath = util.search(modpath, {"can"})
 	if not filepath then
-		return "\n\tno candran file in package.path"
+		if _VERSION == "Lua 5.4" then
+			return "no candran file in package.path"
+		else
+			return "\n\tno candran file in package.path"
+		end
+	end
+	local r, s = candran.loadfile(filepath)
+	if r then
+		return r
+	else
+		return s
 	end
-	return candran.loadfile(filepath)
 end
 
 --- Register the Candran package searcher.
diff --git a/candran.lua b/candran.lua
index 2b51418..14a39ab 100644
--- a/candran.lua
+++ b/candran.lua
@@ -5356,7 +5356,7 @@ end -- ./candran/can-parser/parser.lua:777
 local parser = _() or parser -- ./candran/can-parser/parser.lua:781
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
 local unpack = unpack or table["unpack"] -- candran.can:14
-local candran = { ["VERSION"] = "0.13.0" } -- candran.can:17
+local candran = { ["VERSION"] = "0.13.1" } -- candran.can:17
 candran["default"] = { -- candran.can:21
 ["target"] = "lua54", -- candran.can:22
 ["indentation"] = "", -- candran.can:23
@@ -5376,8 +5376,8 @@ end -- candran.can:36
 elseif _VERSION == "Lua 5.2" then -- candran.can:38
 candran["default"]["target"] = "lua51" -- candran.can:39
 elseif _VERSION == "Lua 5.3" then -- candran.can:40
- -- candran.can:42
-end -- candran.can:42
+candran["default"]["target"] = "lua53" -- candran.can:41
+end -- candran.can:41
 candran["preprocess"] = function(input, options) -- candran.can:50
 if options == nil then options = {} end -- candran.can:50
 options = util["merge"](candran["default"], options) -- candran.can:51
@@ -5589,17 +5589,26 @@ end -- candran.can:298
 candran["searcher"] = function(modpath) -- candran.can:306
 local filepath = util["search"](modpath, { "can" }) -- candran.can:307
 if not filepath then -- candran.can:308
+if _VERSION == "Lua 5.4" then -- candran.can:309
+return "no candran file in package.path" -- candran.can:310
+else -- candran.can:310
 return "\
-\9no candran file in package.path" -- candran.can:309
-end -- candran.can:309
-return candran["loadfile"](filepath) -- candran.can:311
-end -- candran.can:311
-candran["setup"] = function() -- candran.can:315
-if _VERSION == "Lua 5.1" then -- candran.can:316
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:317
+\9no candran file in package.path" -- candran.can:312
+end -- candran.can:312
+end -- candran.can:312
+local r, s = candran["loadfile"](filepath) -- candran.can:315
+if r then -- candran.can:316
+return r -- candran.can:317
 else -- candran.can:317
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:319
+return s -- candran.can:319
 end -- candran.can:319
-return candran -- candran.can:321
-end -- candran.can:321
-return candran -- candran.can:324
+end -- candran.can:319
+candran["setup"] = function() -- candran.can:324
+if _VERSION == "Lua 5.1" then -- candran.can:325
+table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:326
+else -- candran.can:326
+table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:328
+end -- candran.can:328
+return candran -- candran.can:330
+end -- candran.can:330
+return candran -- candran.can:333

From bf4cadc34911b298d1e3d449c267f42541bf3835 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 17:24:36 +0100
Subject: [PATCH 10/43] Colorize tests output and fix Lua5.1 compatibility

---
 test/test.lua | 60 ++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 45 insertions(+), 15 deletions(-)

diff --git a/test/test.lua b/test/test.lua
index 62ef409..76bbcb9 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -4,6 +4,37 @@ candran.default.mapLines = false
 
 local load = require("candran.util").load
 
+-- Text formatting
+local colors = {
+	black  = 30,
+	red    = 31,
+	green  = 32,
+	yellow = 33,
+	blue   = 34,
+	purple = 35,
+	cyan   = 36,
+	white  = 37,
+
+	bgBlack  = 40,
+	bgRed    = 41,
+	bgGreen  = 42,
+	bgYellow = 43,
+	bgBlue   = 44,
+	bgPurple = 45,
+	bgCyan   = 46,
+	bgWhite  = 47,
+
+	bold      = 1,
+	underline = 4
+}
+local function c(text, ...)
+	local codes = {}
+	for _, color in ipairs{...} do
+		table.insert(codes, colors[color])
+	end
+	return ("\027[%sm%s\027[0m"):format(table.concat(codes, ";"), text)
+end
+
 -- test helper
 local results = {} -- tests result
 local function test(name, candranCode, expectedResult, options)
@@ -18,7 +49,7 @@ local function test(name, candranCode, expectedResult, options)
 	local success, code = pcall(function() return assert(candran.make(candranCode, options)) end)
 	if not success then
 		self.result = "error"
-		self.message = "/!\\ error while making code:\n"..code
+		self.message = c("/!\\ error while making code:\n", "bold", "red")..c(code, "red")
 		return
 	end
 
@@ -28,7 +59,7 @@ local function test(name, candranCode, expectedResult, options)
 	local success, func = pcall(load, code, nil, env)
 	if not success then
 		self.result = "error"
-		self.message = "/!\\ error while loading code:\n"..func.."\ngenerated code:\n"..code
+		self.message = c("/!\\ error while loading code:\n"..func.."\ngenerated code:\n", "bold", "red")..c(code, "red")
 		return
 	end
 
@@ -36,14 +67,14 @@ local function test(name, candranCode, expectedResult, options)
 	local success, output = pcall(func)
 	if not success then
 		self.result = "error"
-		self.message = "/!\\ error while running code:\n"..output.."\ngenerated code:\n"..code
+		self.message = c("/!\\ error while running code:\n"..output.."\ngenerated code:\n", "bold", "red")..c(code, "red")
 		return
 	end
 
 	-- check result
 	if output ~= expectedResult then
 		self.result = "fail"
-		self.message = "/!\\ invalid result from the code; it returned "..tostring(output).." instead of "..tostring(expectedResult).."; generated code:\n"..code
+		self.message = c("/!\\ invalid result from the code; it returned "..tostring(output).." instead of "..tostring(expectedResult).."; generated code:\n", "bold", "purple")..c(code, "purple")
 		return
 	else
 		self.result = "success"
@@ -105,21 +136,18 @@ test("preprocessor options", [[
 return true
 ]], true, { foo = "sky" })
 
-test("preprocessor long comment", [[
---[[
+test("preprocessor long comment", "--[[\n"..[[
 #error("preprocessor should ignore long comments")
 ]].."]]"..[[
 return true
 ]], true)
 
 test("preprocessor long comment in long string", [[
-a=]].."[["..[[
---[[
+a=]].."[[--[[\n"..[[
 #error("preprocessor should ignore long strings")
 ]].."]]"..[[
 return a
-]], [[
---[[
+]], "--[[\n"..[[
 #error("preprocessor should ignore long strings")
 ]])
 
@@ -375,9 +403,9 @@ test("short anonymous method parsing edge cases", [[
 	if a() then h() end
 	local function f (...)
 	  if select('#', ...) == 1 then
-	    return (...)
+		return (...)
 	  else
-	    return "***"
+		return "***"
 	  end
 	end
 	return f(x)
@@ -585,6 +613,7 @@ test("table comprehension associative/self", [[
 	return a[1] and a[10]
 ]], true)
 test("table comprehension variable length", [[
+	local unpack = table.unpack or unpack
 	t1 = {"hey", "hop"}
 	t2 = {"foo", "bar"}
 	return table.concat([push unpack(t1); push unpack(t2)])
@@ -1024,7 +1053,8 @@ for name, t in pairs(results) do
 end
 
 -- print final results
-for name, count in pairs(resultCounter) do
-	print(count.." "..name.." (" .. math.floor((count / testCounter * 100)*100)/100 .. "%)")
+for _, name in ipairs{{"error", "red"}, {"fail", "purple"}, {"success", "green"}} do
+	local count = resultCounter[name[1]] or 0
+	print(c(count, "bold", name[2])..c(" "..name[1].." (" .. math.floor((count / testCounter * 100)*100)/100 .. "%)", name[2]))
 end
-print(testCounter.." total")
+print(c(testCounter.." total", "bold"))

From 7e4b46ba7df35c2e5b20634d62dab052e62a55f9 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 17:25:28 +0100
Subject: [PATCH 11/43] Add Lua 5.2 target

---
 candran.can         |    3 +-
 candran.lua         | 1576 +++++++++++++++++++++++++++++++++++--------
 compiler/lua51.can  |   10 +-
 compiler/lua52.can  |   35 +
 compiler/lua53.can  |    4 +-
 compiler/luajit.can |   10 +-
 6 files changed, 1359 insertions(+), 279 deletions(-)
 create mode 100644 compiler/lua52.can

diff --git a/candran.can b/candran.can
index 8a05216..a80cf91 100644
--- a/candran.can
+++ b/candran.can
@@ -3,6 +3,7 @@
 
 #import("compiler.lua54")
 #import("compiler.lua53")
+#import("compiler.lua52")
 #import("compiler.luajit")
 #import("compiler.lua51")
 
@@ -36,7 +37,7 @@ if _VERSION == "Lua 5.1" then
 		candran.default.target = "lua51"
 	end
 elseif _VERSION == "Lua 5.2" then
-	candran.default.target = "lua51"
+	candran.default.target = "lua52"
 elseif _VERSION == "Lua 5.3" then
 	candran.default.target = "lua53"
 end
diff --git a/candran.lua b/candran.lua
index 14a39ab..28e491e 100644
--- a/candran.lua
+++ b/candran.lua
@@ -1850,7 +1850,7 @@ end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
-error("target does not support variable attributes") -- ./compiler/lua53.can:6
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
 else -- ./compiler/lua53.can:6
 return t[1] -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
@@ -1860,13 +1860,13 @@ return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:16
-end -- ./compiler/lua53.can:16
-local lua53 = _() or lua53 -- ./compiler/lua53.can:20
-package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:21
-local function _() -- ./compiler/lua53.can:24
+return lua54 -- ./compiler/lua53.can:18
+end -- ./compiler/lua53.can:18
+local lua53 = _() or lua53 -- ./compiler/lua53.can:22
+package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:23
 local function _() -- ./compiler/lua53.can:26
 local function _() -- ./compiler/lua53.can:28
+local function _() -- ./compiler/lua53.can:30
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
 return function(code, ast, options) -- ./compiler/lua54.can:3
 local lastInputPos = 1 -- ./compiler/lua54.can:5
@@ -2725,27 +2725,988 @@ end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
-error("target does not support variable attributes") -- ./compiler/lua53.can:6
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
 else -- ./compiler/lua53.can:6
 return t[1] -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
 return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:16
-end -- ./compiler/lua53.can:16
-local lua53 = _() or lua53 -- ./compiler/lua53.can:20
-return lua53 -- ./compiler/luajit.can:44
-end -- ./compiler/luajit.can:44
-local luajit = _() or luajit -- ./compiler/luajit.can:48
-package["loaded"]["compiler.luajit"] = luajit or true -- ./compiler/luajit.can:49
+return lua54 -- ./compiler/lua53.can:18
+end -- ./compiler/lua53.can:18
+local lua53 = _() or lua53 -- ./compiler/lua53.can:22
+return lua53 -- ./compiler/lua52.can:35
+end -- ./compiler/lua52.can:35
+local lua52 = _() or lua52 -- ./compiler/lua52.can:39
+package["loaded"]["compiler.lua52"] = lua52 or true -- ./compiler/lua52.can:40
+local function _() -- ./compiler/lua52.can:43
+local function _() -- ./compiler/lua52.can:45
+local function _() -- ./compiler/lua52.can:47
+local function _() -- ./compiler/lua52.can:49
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
+return function(code, ast, options) -- ./compiler/lua54.can:3
+local lastInputPos = 1 -- ./compiler/lua54.can:5
+local prevLinePos = 1 -- ./compiler/lua54.can:6
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
+local lastLine = 1 -- ./compiler/lua54.can:8
+local indentLevel = 0 -- ./compiler/lua54.can:11
+local function newline() -- ./compiler/lua54.can:13
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
+if options["mapLines"] then -- ./compiler/lua54.can:15
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local source, line = sub:sub(1, sub:find("\
+")):match(".*%-%- (.-)%:(%d+)\
+") -- ./compiler/lua54.can:17
+if source and line then -- ./compiler/lua54.can:19
+lastSource = source -- ./compiler/lua54.can:20
+lastLine = tonumber(line) -- ./compiler/lua54.can:21
+else -- ./compiler/lua54.can:21
+for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
+") do -- ./compiler/lua54.can:23
+lastLine = lastLine + (1) -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+end -- ./compiler/lua54.can:24
+prevLinePos = lastInputPos -- ./compiler/lua54.can:28
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
+end -- ./compiler/lua54.can:30
+return r -- ./compiler/lua54.can:32
+end -- ./compiler/lua54.can:32
+local function indent() -- ./compiler/lua54.can:35
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
+return newline() -- ./compiler/lua54.can:37
+end -- ./compiler/lua54.can:37
+local function unindent() -- ./compiler/lua54.can:40
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
+return newline() -- ./compiler/lua54.can:42
+end -- ./compiler/lua54.can:42
+local states = { -- ./compiler/lua54.can:47
+["push"] = {}, -- ./compiler/lua54.can:48
+["destructuring"] = {}, -- ./compiler/lua54.can:49
+["scope"] = {} -- ./compiler/lua54.can:50
+} -- ./compiler/lua54.can:50
+local function push(name, state) -- ./compiler/lua54.can:53
+table["insert"](states[name], state) -- ./compiler/lua54.can:54
+return "" -- ./compiler/lua54.can:55
+end -- ./compiler/lua54.can:55
+local function pop(name) -- ./compiler/lua54.can:58
+table["remove"](states[name]) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function set(name, state) -- ./compiler/lua54.can:63
+states[name][# states[name]] = state -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function peek(name) -- ./compiler/lua54.can:68
+return states[name][# states[name]] -- ./compiler/lua54.can:69
+end -- ./compiler/lua54.can:69
+local function var(name) -- ./compiler/lua54.can:74
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
+end -- ./compiler/lua54.can:75
+local function tmp() -- ./compiler/lua54.can:79
+local scope = peek("scope") -- ./compiler/lua54.can:80
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
+table["insert"](scope, var) -- ./compiler/lua54.can:82
+return var -- ./compiler/lua54.can:83
+end -- ./compiler/lua54.can:83
+local required = {} -- ./compiler/lua54.can:87
+local requireStr = "" -- ./compiler/lua54.can:88
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
+if not required[req] then -- ./compiler/lua54.can:92
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
+required[req] = true -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+end -- ./compiler/lua54.can:94
+local loop = { -- ./compiler/lua54.can:99
+"While", -- ./compiler/lua54.can:99
+"Repeat", -- ./compiler/lua54.can:99
+"Fornum", -- ./compiler/lua54.can:99
+"Forin", -- ./compiler/lua54.can:99
+"WhileExpr", -- ./compiler/lua54.can:99
+"RepeatExpr", -- ./compiler/lua54.can:99
+"FornumExpr", -- ./compiler/lua54.can:99
+"ForinExpr" -- ./compiler/lua54.can:99
+} -- ./compiler/lua54.can:99
+local func = { -- ./compiler/lua54.can:100
+"Function", -- ./compiler/lua54.can:100
+"TableCompr", -- ./compiler/lua54.can:100
+"DoExpr", -- ./compiler/lua54.can:100
+"WhileExpr", -- ./compiler/lua54.can:100
+"RepeatExpr", -- ./compiler/lua54.can:100
+"IfExpr", -- ./compiler/lua54.can:100
+"FornumExpr", -- ./compiler/lua54.can:100
+"ForinExpr" -- ./compiler/lua54.can:100
+} -- ./compiler/lua54.can:100
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
+local tagsCheck = {} -- ./compiler/lua54.can:105
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
+tagsCheck[tag] = true -- ./compiler/lua54.can:107
+end -- ./compiler/lua54.can:107
+local nofollowCheck = {} -- ./compiler/lua54.can:109
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
+nofollowCheck[tag] = true -- ./compiler/lua54.can:111
+end -- ./compiler/lua54.can:111
+for _, node in ipairs(list) do -- ./compiler/lua54.can:113
+if type(node) == "table" then -- ./compiler/lua54.can:114
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
+return node -- ./compiler/lua54.can:116
+end -- ./compiler/lua54.can:116
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
+if r then -- ./compiler/lua54.can:120
+return r -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+end -- ./compiler/lua54.can:120
+return nil -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
+local tagsCheck = {} -- ./compiler/lua54.can:130
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
+tagsCheck[tag] = true -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local nofollowCheck = {} -- ./compiler/lua54.can:134
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
+nofollowCheck[tag] = true -- ./compiler/lua54.can:136
+end -- ./compiler/lua54.can:136
+local found = {} -- ./compiler/lua54.can:138
+for _, node in ipairs(list) do -- ./compiler/lua54.can:139
+if type(node) == "table" then -- ./compiler/lua54.can:140
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
+table["insert"](found, n) -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+end -- ./compiler/lua54.can:143
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
+table["insert"](found, node) -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+end -- ./compiler/lua54.can:147
+return found -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+local function all(list, tags) -- ./compiler/lua54.can:155
+for _, node in ipairs(list) do -- ./compiler/lua54.can:156
+local ok = false -- ./compiler/lua54.can:157
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
+if node["tag"] == tag then -- ./compiler/lua54.can:159
+ok = true -- ./compiler/lua54.can:160
+break -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+end -- ./compiler/lua54.can:161
+if not ok then -- ./compiler/lua54.can:164
+return false -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+end -- ./compiler/lua54.can:165
+return true -- ./compiler/lua54.can:168
+end -- ./compiler/lua54.can:168
+local tags -- ./compiler/lua54.can:172
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
+end -- ./compiler/lua54.can:178
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
+end -- ./compiler/lua54.can:183
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local CONTINUE_START = function() -- ./compiler/lua54.can:188
+return "do" .. indent() -- ./compiler/lua54.can:189
+end -- ./compiler/lua54.can:189
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+end -- ./compiler/lua54.can:192
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
+local vars = {} -- ./compiler/lua54.can:195
+local values = {} -- ./compiler/lua54.can:196
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
+for _, v in ipairs(list) do -- ./compiler/lua54.can:198
+local var, val -- ./compiler/lua54.can:199
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
+var = v -- ./compiler/lua54.can:201
+val = { -- ./compiler/lua54.can:202
+["tag"] = "Index", -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "Id", -- ./compiler/lua54.can:202
+list["id"] -- ./compiler/lua54.can:202
+}, -- ./compiler/lua54.can:202
+{ -- ./compiler/lua54.can:202
+["tag"] = "String", -- ./compiler/lua54.can:202
+v[1] -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+} -- ./compiler/lua54.can:202
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
+var = v[2] -- ./compiler/lua54.can:204
+val = { -- ./compiler/lua54.can:205
+["tag"] = "Index", -- ./compiler/lua54.can:205
+{ -- ./compiler/lua54.can:205
+["tag"] = "Id", -- ./compiler/lua54.can:205
+list["id"] -- ./compiler/lua54.can:205
+}, -- ./compiler/lua54.can:205
+v[1] -- ./compiler/lua54.can:205
+} -- ./compiler/lua54.can:205
+else -- ./compiler/lua54.can:205
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
+end -- ./compiler/lua54.can:207
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["rightOp"], -- ./compiler/lua54.can:210
+var, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Op", -- ./compiler/lua54.can:210
+destructured["leftOp"], -- ./compiler/lua54.can:210
+val, -- ./compiler/lua54.can:210
+var -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
+val = { -- ./compiler/lua54.can:212
+["tag"] = "Op", -- ./compiler/lua54.can:212
+destructured["rightOp"], -- ./compiler/lua54.can:212
+var, -- ./compiler/lua54.can:212
+val -- ./compiler/lua54.can:212
+} -- ./compiler/lua54.can:212
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
+val = { -- ./compiler/lua54.can:214
+["tag"] = "Op", -- ./compiler/lua54.can:214
+destructured["leftOp"], -- ./compiler/lua54.can:214
+val, -- ./compiler/lua54.can:214
+var -- ./compiler/lua54.can:214
+} -- ./compiler/lua54.can:214
+end -- ./compiler/lua54.can:214
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+end -- ./compiler/lua54.can:217
+if # vars > 0 then -- ./compiler/lua54.can:220
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
+if newlineAfter then -- ./compiler/lua54.can:222
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
+else -- ./compiler/lua54.can:223
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+else -- ./compiler/lua54.can:225
+return "" -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+end -- ./compiler/lua54.can:228
+tags = setmetatable({ -- ./compiler/lua54.can:233
+["Block"] = function(t) -- ./compiler/lua54.can:235
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
+hasPush = false -- ./compiler/lua54.can:239
+end -- ./compiler/lua54.can:239
+local r = push("scope", {}) -- ./compiler/lua54.can:241
+if hasPush then -- ./compiler/lua54.can:242
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
+end -- ./compiler/lua54.can:243
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
+end -- ./compiler/lua54.can:246
+if t[# t] then -- ./compiler/lua54.can:248
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+end -- ./compiler/lua54.can:249
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+end -- ./compiler/lua54.can:252
+return r .. pop("scope") -- ./compiler/lua54.can:254
+end, -- ./compiler/lua54.can:254
+["Do"] = function(t) -- ./compiler/lua54.can:260
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
+end, -- ./compiler/lua54.can:261
+["Set"] = function(t) -- ./compiler/lua54.can:264
+local expr = t[# t] -- ./compiler/lua54.can:266
+local vars, values = {}, {} -- ./compiler/lua54.can:267
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
+else -- ./compiler/lua54.can:272
+table["insert"](vars, n) -- ./compiler/lua54.can:274
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+end -- ./compiler/lua54.can:275
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
+local r = "" -- ./compiler/lua54.can:280
+if # vars > 0 then -- ./compiler/lua54.can:281
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
+end -- ./compiler/lua54.can:282
+if # destructuringVars > 0 then -- ./compiler/lua54.can:284
+local destructured = {} -- ./compiler/lua54.can:285
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
+end -- ./compiler/lua54.can:287
+return r -- ./compiler/lua54.can:289
+elseif # t == 4 then -- ./compiler/lua54.can:290
+if t[3] == "=" then -- ./compiler/lua54.can:291
+local r = "" -- ./compiler/lua54.can:292
+if # vars > 0 then -- ./compiler/lua54.can:293
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
+t[2], -- ./compiler/lua54.can:294
+vars[1], -- ./compiler/lua54.can:294
+{ -- ./compiler/lua54.can:294
+["tag"] = "Paren", -- ./compiler/lua54.can:294
+values[1] -- ./compiler/lua54.can:294
+} -- ./compiler/lua54.can:294
+}, "Op")) -- ./compiler/lua54.can:294
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
+t[2], -- ./compiler/lua54.can:296
+vars[i], -- ./compiler/lua54.can:296
+{ -- ./compiler/lua54.can:296
+["tag"] = "Paren", -- ./compiler/lua54.can:296
+values[i] -- ./compiler/lua54.can:296
+} -- ./compiler/lua54.can:296
+}, "Op")) -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+end -- ./compiler/lua54.can:296
+if # destructuringVars > 0 then -- ./compiler/lua54.can:299
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+end -- ./compiler/lua54.can:302
+return r -- ./compiler/lua54.can:304
+else -- ./compiler/lua54.can:304
+local r = "" -- ./compiler/lua54.can:306
+if # vars > 0 then -- ./compiler/lua54.can:307
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
+t[3], -- ./compiler/lua54.can:308
+{ -- ./compiler/lua54.can:308
+["tag"] = "Paren", -- ./compiler/lua54.can:308
+values[1] -- ./compiler/lua54.can:308
+}, -- ./compiler/lua54.can:308
+vars[1] -- ./compiler/lua54.can:308
+}, "Op")) -- ./compiler/lua54.can:308
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
+t[3], -- ./compiler/lua54.can:310
+{ -- ./compiler/lua54.can:310
+["tag"] = "Paren", -- ./compiler/lua54.can:310
+values[i] -- ./compiler/lua54.can:310
+}, -- ./compiler/lua54.can:310
+vars[i] -- ./compiler/lua54.can:310
+}, "Op")) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+if # destructuringVars > 0 then -- ./compiler/lua54.can:313
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:316
+return r -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+else -- ./compiler/lua54.can:318
+local r = "" -- ./compiler/lua54.can:321
+if # vars > 0 then -- ./compiler/lua54.can:322
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
+t[2], -- ./compiler/lua54.can:323
+vars[1], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Op", -- ./compiler/lua54.can:323
+t[4], -- ./compiler/lua54.can:323
+{ -- ./compiler/lua54.can:323
+["tag"] = "Paren", -- ./compiler/lua54.can:323
+values[1] -- ./compiler/lua54.can:323
+}, -- ./compiler/lua54.can:323
+vars[1] -- ./compiler/lua54.can:323
+} -- ./compiler/lua54.can:323
+}, "Op")) -- ./compiler/lua54.can:323
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
+t[2], -- ./compiler/lua54.can:325
+vars[i], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Op", -- ./compiler/lua54.can:325
+t[4], -- ./compiler/lua54.can:325
+{ -- ./compiler/lua54.can:325
+["tag"] = "Paren", -- ./compiler/lua54.can:325
+values[i] -- ./compiler/lua54.can:325
+}, -- ./compiler/lua54.can:325
+vars[i] -- ./compiler/lua54.can:325
+} -- ./compiler/lua54.can:325
+}, "Op")) -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+end -- ./compiler/lua54.can:325
+if # destructuringVars > 0 then -- ./compiler/lua54.can:328
+local destructured = { -- ./compiler/lua54.can:329
+["rightOp"] = t[2], -- ./compiler/lua54.can:329
+["leftOp"] = t[4] -- ./compiler/lua54.can:329
+} -- ./compiler/lua54.can:329
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+end -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end, -- ./compiler/lua54.can:333
+["While"] = function(t) -- ./compiler/lua54.can:337
+local r = "" -- ./compiler/lua54.can:338
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
+if # lets > 0 then -- ./compiler/lua54.can:341
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+end -- ./compiler/lua54.can:344
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
+if # lets > 0 then -- ./compiler/lua54.can:348
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
+end -- ./compiler/lua54.can:349
+if hasContinue then -- ./compiler/lua54.can:351
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
+if hasContinue then -- ./compiler/lua54.can:355
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
+end -- ./compiler/lua54.can:356
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
+if # lets > 0 then -- ./compiler/lua54.can:359
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
+end -- ./compiler/lua54.can:361
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
+end -- ./compiler/lua54.can:363
+return r -- ./compiler/lua54.can:365
+end, -- ./compiler/lua54.can:365
+["Repeat"] = function(t) -- ./compiler/lua54.can:368
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
+local r = "repeat" .. indent() -- ./compiler/lua54.can:370
+if hasContinue then -- ./compiler/lua54.can:371
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
+end -- ./compiler/lua54.can:372
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
+if hasContinue then -- ./compiler/lua54.can:375
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
+end -- ./compiler/lua54.can:376
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
+return r -- ./compiler/lua54.can:379
+end, -- ./compiler/lua54.can:379
+["If"] = function(t) -- ./compiler/lua54.can:382
+local r = "" -- ./compiler/lua54.can:383
+local toClose = 0 -- ./compiler/lua54.can:384
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
+if # lets > 0 then -- ./compiler/lua54.can:386
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
+toClose = toClose + (1) -- ./compiler/lua54.can:388
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+end -- ./compiler/lua54.can:390
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
+if # lets > 0 then -- ./compiler/lua54.can:396
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
+toClose = toClose + (1) -- ./compiler/lua54.can:398
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
+end -- ./compiler/lua54.can:400
+else -- ./compiler/lua54.can:400
+r = r .. ("else") -- ./compiler/lua54.can:403
+end -- ./compiler/lua54.can:403
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
+end -- ./compiler/lua54.can:405
+if # t % 2 == 1 then -- ./compiler/lua54.can:407
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+r = r .. ("end") -- ./compiler/lua54.can:410
+for i = 1, toClose do -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
+end -- ./compiler/lua54.can:412
+return r -- ./compiler/lua54.can:414
+end, -- ./compiler/lua54.can:414
+["Fornum"] = function(t) -- ./compiler/lua54.can:417
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
+if # t == 5 then -- ./compiler/lua54.can:419
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
+if hasContinue then -- ./compiler/lua54.can:422
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
+end -- ./compiler/lua54.can:423
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
+if hasContinue then -- ./compiler/lua54.can:426
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
+end -- ./compiler/lua54.can:427
+return r .. unindent() .. "end" -- ./compiler/lua54.can:429
+else -- ./compiler/lua54.can:429
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
+if hasContinue then -- ./compiler/lua54.can:433
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
+end -- ./compiler/lua54.can:434
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
+if hasContinue then -- ./compiler/lua54.can:437
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
+end -- ./compiler/lua54.can:438
+return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:440
+end, -- ./compiler/lua54.can:440
+["Forin"] = function(t) -- ./compiler/lua54.can:444
+local destructured = {} -- ./compiler/lua54.can:445
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
+if hasContinue then -- ./compiler/lua54.can:448
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
+end -- ./compiler/lua54.can:449
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
+if hasContinue then -- ./compiler/lua54.can:452
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
+end -- ./compiler/lua54.can:453
+return r .. unindent() .. "end" -- ./compiler/lua54.can:455
+end, -- ./compiler/lua54.can:455
+["Local"] = function(t) -- ./compiler/lua54.can:458
+local destructured = {} -- ./compiler/lua54.can:459
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
+if t[2][1] then -- ./compiler/lua54.can:461
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
+end -- ./compiler/lua54.can:462
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
+end, -- ./compiler/lua54.can:464
+["Let"] = function(t) -- ./compiler/lua54.can:467
+local destructured = {} -- ./compiler/lua54.can:468
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
+local r = "local " .. nameList -- ./compiler/lua54.can:470
+if t[2][1] then -- ./compiler/lua54.can:471
+if all(t[2], { -- ./compiler/lua54.can:472
+"Nil", -- ./compiler/lua54.can:472
+"Dots", -- ./compiler/lua54.can:472
+"Boolean", -- ./compiler/lua54.can:472
+"Number", -- ./compiler/lua54.can:472
+"String" -- ./compiler/lua54.can:472
+}) then -- ./compiler/lua54.can:472
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
+else -- ./compiler/lua54.can:473
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+end -- ./compiler/lua54.can:475
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
+end, -- ./compiler/lua54.can:478
+["Localrec"] = function(t) -- ./compiler/lua54.can:481
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
+end, -- ./compiler/lua54.can:482
+["Goto"] = function(t) -- ./compiler/lua54.can:485
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Label"] = function(t) -- ./compiler/lua54.can:489
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Return"] = function(t) -- ./compiler/lua54.can:493
+local push = peek("push") -- ./compiler/lua54.can:494
+if push then -- ./compiler/lua54.can:495
+local r = "" -- ./compiler/lua54.can:496
+for _, val in ipairs(t) do -- ./compiler/lua54.can:497
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
+end -- ./compiler/lua54.can:498
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
+else -- ./compiler/lua54.can:500
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
+end -- ./compiler/lua54.can:502
+end, -- ./compiler/lua54.can:502
+["Push"] = function(t) -- ./compiler/lua54.can:506
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
+r = "" -- ./compiler/lua54.can:508
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+if t[# t] then -- ./compiler/lua54.can:512
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
+else -- ./compiler/lua54.can:514
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+end -- ./compiler/lua54.can:516
+return r -- ./compiler/lua54.can:519
+end, -- ./compiler/lua54.can:519
+["Break"] = function() -- ./compiler/lua54.can:522
+return "break" -- ./compiler/lua54.can:523
+end, -- ./compiler/lua54.can:523
+["Continue"] = function() -- ./compiler/lua54.can:526
+return "goto " .. var("continue") -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Nil"] = function() -- ./compiler/lua54.can:534
+return "nil" -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Dots"] = function() -- ./compiler/lua54.can:538
+return "..." -- ./compiler/lua54.can:539
+end, -- ./compiler/lua54.can:539
+["Boolean"] = function(t) -- ./compiler/lua54.can:542
+return tostring(t[1]) -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Number"] = function(t) -- ./compiler/lua54.can:546
+return tostring(t[1]) -- ./compiler/lua54.can:547
+end, -- ./compiler/lua54.can:547
+["String"] = function(t) -- ./compiler/lua54.can:550
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
+end, -- ./compiler/lua54.can:551
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
+local r = "(" -- ./compiler/lua54.can:555
+local decl = {} -- ./compiler/lua54.can:556
+if t[1][1] then -- ./compiler/lua54.can:557
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
+r = r .. (id) -- ./compiler/lua54.can:563
+else -- ./compiler/lua54.can:563
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
+end -- ./compiler/lua54.can:565
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
+r = r .. (", " .. id) -- ./compiler/lua54.can:573
+else -- ./compiler/lua54.can:573
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+end -- ./compiler/lua54.can:575
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
+r = r .. (d .. newline()) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
+end -- ./compiler/lua54.can:584
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
+if hasPush then -- ./compiler/lua54.can:587
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
+else -- ./compiler/lua54.can:588
+push("push", false) -- ./compiler/lua54.can:590
+end -- ./compiler/lua54.can:590
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
+end -- ./compiler/lua54.can:594
+pop("push") -- ./compiler/lua54.can:596
+return r .. unindent() .. "end" -- ./compiler/lua54.can:597
+end, -- ./compiler/lua54.can:597
+["Function"] = function(t) -- ./compiler/lua54.can:599
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
+end, -- ./compiler/lua54.can:600
+["Pair"] = function(t) -- ./compiler/lua54.can:603
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
+end, -- ./compiler/lua54.can:604
+["Table"] = function(t) -- ./compiler/lua54.can:606
+if # t == 0 then -- ./compiler/lua54.can:607
+return "{}" -- ./compiler/lua54.can:608
+elseif # t == 1 then -- ./compiler/lua54.can:609
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
+else -- ./compiler/lua54.can:610
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
+end -- ./compiler/lua54.can:612
+end, -- ./compiler/lua54.can:612
+["TableCompr"] = function(t) -- ./compiler/lua54.can:616
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
+end, -- ./compiler/lua54.can:617
+["Op"] = function(t) -- ./compiler/lua54.can:620
+local r -- ./compiler/lua54.can:621
+if # t == 2 then -- ./compiler/lua54.can:622
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+else -- ./compiler/lua54.can:624
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+end -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
+else -- ./compiler/lua54.can:630
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+end -- ./compiler/lua54.can:632
+return r -- ./compiler/lua54.can:635
+end, -- ./compiler/lua54.can:635
+["Paren"] = function(t) -- ./compiler/lua54.can:638
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
+end, -- ./compiler/lua54.can:639
+["MethodStub"] = function(t) -- ./compiler/lua54.can:642
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
+end, -- ./compiler/lua54.can:648
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
+end, -- ./compiler/lua54.can:658
+["LetExpr"] = function(t) -- ./compiler/lua54.can:665
+return lua(t[1][1]) -- ./compiler/lua54.can:666
+end, -- ./compiler/lua54.can:666
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
+local r = "(function()" .. indent() -- ./compiler/lua54.can:672
+if hasPush then -- ./compiler/lua54.can:673
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
+else -- ./compiler/lua54.can:674
+push("push", false) -- ./compiler/lua54.can:676
+end -- ./compiler/lua54.can:676
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
+if hasPush then -- ./compiler/lua54.can:679
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
+end -- ./compiler/lua54.can:680
+pop("push") -- ./compiler/lua54.can:682
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
+return r -- ./compiler/lua54.can:684
+end, -- ./compiler/lua54.can:684
+["DoExpr"] = function(t) -- ./compiler/lua54.can:687
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
+end -- ./compiler/lua54.can:689
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
+end, -- ./compiler/lua54.can:691
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
+end, -- ./compiler/lua54.can:695
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
+end, -- ./compiler/lua54.can:699
+["IfExpr"] = function(t) -- ./compiler/lua54.can:702
+for i = 2, # t do -- ./compiler/lua54.can:703
+local block = t[i] -- ./compiler/lua54.can:704
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+end -- ./compiler/lua54.can:706
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:709
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+end, -- ./compiler/lua54.can:713
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
+end, -- ./compiler/lua54.can:717
+["Call"] = function(t) -- ./compiler/lua54.can:723
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
+else -- ./compiler/lua54.can:728
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
+end -- ./compiler/lua54.can:730
+else -- ./compiler/lua54.can:730
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
+end -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["SafeCall"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
+else -- ./compiler/lua54.can:739
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
+end -- ./compiler/lua54.can:741
+end, -- ./compiler/lua54.can:741
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
+if start == nil then start = 1 end -- ./compiler/lua54.can:746
+local r -- ./compiler/lua54.can:747
+if t[start] then -- ./compiler/lua54.can:748
+r = lua(t[start]) -- ./compiler/lua54.can:749
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
+end -- ./compiler/lua54.can:751
+else -- ./compiler/lua54.can:751
+r = "" -- ./compiler/lua54.can:754
+end -- ./compiler/lua54.can:754
+return r -- ./compiler/lua54.can:756
+end, -- ./compiler/lua54.can:756
+["Id"] = function(t) -- ./compiler/lua54.can:759
+return t[1] -- ./compiler/lua54.can:760
+end, -- ./compiler/lua54.can:760
+["AttributeId"] = function(t) -- ./compiler/lua54.can:763
+if t[2] then -- ./compiler/lua54.can:764
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
+else -- ./compiler/lua54.can:765
+return t[1] -- ./compiler/lua54.can:767
+end -- ./compiler/lua54.can:767
+end, -- ./compiler/lua54.can:767
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
+if t["id"] then -- ./compiler/lua54.can:772
+return t["id"] -- ./compiler/lua54.can:773
+else -- ./compiler/lua54.can:773
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
+for j = 1, # t, 1 do -- ./compiler/lua54.can:777
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
+end -- ./compiler/lua54.can:778
+table["insert"](d, vars) -- ./compiler/lua54.can:780
+t["id"] = vars["id"] -- ./compiler/lua54.can:781
+return vars["id"] -- ./compiler/lua54.can:782
+end -- ./compiler/lua54.can:782
+end, -- ./compiler/lua54.can:782
+["Index"] = function(t) -- ./compiler/lua54.can:786
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
+else -- ./compiler/lua54.can:788
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+end -- ./compiler/lua54.can:790
+end, -- ./compiler/lua54.can:790
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
+local l = {} -- ./compiler/lua54.can:796
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
+table["insert"](l, 1, t) -- ./compiler/lua54.can:798
+t = t[1] -- ./compiler/lua54.can:799
+end -- ./compiler/lua54.can:799
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
+for _, e in ipairs(l) do -- ./compiler/lua54.can:802
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
+else -- ./compiler/lua54.can:805
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+end -- ./compiler/lua54.can:807
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
+return r -- ./compiler/lua54.can:811
+else -- ./compiler/lua54.can:811
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
+end -- ./compiler/lua54.can:813
+end, -- ./compiler/lua54.can:813
+["_opid"] = { -- ./compiler/lua54.can:818
+["add"] = "+", -- ./compiler/lua54.can:819
+["sub"] = "-", -- ./compiler/lua54.can:819
+["mul"] = "*", -- ./compiler/lua54.can:819
+["div"] = "/", -- ./compiler/lua54.can:819
+["idiv"] = "//", -- ./compiler/lua54.can:820
+["mod"] = "%", -- ./compiler/lua54.can:820
+["pow"] = "^", -- ./compiler/lua54.can:820
+["concat"] = "..", -- ./compiler/lua54.can:820
+["band"] = "&", -- ./compiler/lua54.can:821
+["bor"] = "|", -- ./compiler/lua54.can:821
+["bxor"] = "~", -- ./compiler/lua54.can:821
+["shl"] = "<<", -- ./compiler/lua54.can:821
+["shr"] = ">>", -- ./compiler/lua54.can:821
+["eq"] = "==", -- ./compiler/lua54.can:822
+["ne"] = "~=", -- ./compiler/lua54.can:822
+["lt"] = "<", -- ./compiler/lua54.can:822
+["gt"] = ">", -- ./compiler/lua54.can:822
+["le"] = "<=", -- ./compiler/lua54.can:822
+["ge"] = ">=", -- ./compiler/lua54.can:822
+["and"] = "and", -- ./compiler/lua54.can:823
+["or"] = "or", -- ./compiler/lua54.can:823
+["unm"] = "-", -- ./compiler/lua54.can:823
+["len"] = "#", -- ./compiler/lua54.can:823
+["bnot"] = "~", -- ./compiler/lua54.can:823
+["not"] = "not" -- ./compiler/lua54.can:823
+} -- ./compiler/lua54.can:823
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
+end }) -- ./compiler/lua54.can:827
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
+targetName = "LuaJIT" -- ./compiler/luajit.can:1
+UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
+return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
+end -- ./compiler/luajit.can:4
+tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
+addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
+return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
+end -- ./compiler/luajit.can:9
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
+addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
+return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
+end -- ./compiler/luajit.can:13
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
+addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
+return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
+end -- ./compiler/luajit.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
+addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
+return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
+end -- ./compiler/luajit.can:21
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
+addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
+return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
+end -- ./compiler/luajit.can:25
+tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
+addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
+return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
+end -- ./compiler/luajit.can:29
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
+return requireStr .. code -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+end -- ./compiler/lua54.can:834
+local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+return lua54 -- ./compiler/lua53.can:18
+end -- ./compiler/lua53.can:18
+local lua53 = _() or lua53 -- ./compiler/lua53.can:22
+return lua53 -- ./compiler/lua52.can:35
+end -- ./compiler/lua52.can:35
+local lua52 = _() or lua52 -- ./compiler/lua52.can:39
+return lua52 -- ./compiler/luajit.can:38
+end -- ./compiler/luajit.can:38
+local luajit = _() or luajit -- ./compiler/luajit.can:42
+package["loaded"]["compiler.luajit"] = luajit or true -- ./compiler/luajit.can:43
+local function _() -- ./compiler/luajit.can:46
+local function _() -- ./compiler/luajit.can:48
+local function _() -- ./compiler/luajit.can:50
 local function _() -- ./compiler/luajit.can:52
 local function _() -- ./compiler/luajit.can:54
-local function _() -- ./compiler/luajit.can:56
-local function _() -- ./compiler/luajit.can:58
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
 return function(code, ast, options) -- ./compiler/lua54.can:3
 local lastInputPos = 1 -- ./compiler/lua54.can:5
@@ -3604,27 +4565,108 @@ end }) -- ./compiler/lua54.can:827
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
-error("target does not support variable attributes") -- ./compiler/lua53.can:6
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
 else -- ./compiler/lua53.can:6
 return t[1] -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
+targetName = "LuaJIT" -- ./compiler/luajit.can:1
+UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
+return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
+end -- ./compiler/luajit.can:4
+tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
+addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
+return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
+end -- ./compiler/luajit.can:9
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
+addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
+return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
+end -- ./compiler/luajit.can:13
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
+addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
+return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
+end -- ./compiler/luajit.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
+addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
+return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
+end -- ./compiler/luajit.can:21
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
+addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
+return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
+end -- ./compiler/luajit.can:25
+tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
+addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
+return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
+end -- ./compiler/luajit.can:29
+targetName = "Lua 5.1" -- ./compiler/lua51.can:1
+states["continue"] = {} -- ./compiler/lua51.can:3
+CONTINUE_START = function() -- ./compiler/lua51.can:5
+return "local " .. var("break") .. newline() .. "repeat" .. indent() .. push("continue", var("break")) -- ./compiler/lua51.can:6
+end -- ./compiler/lua51.can:6
+CONTINUE_STOP = function() -- ./compiler/lua51.can:8
+return pop("continue") .. unindent() .. "until true" .. newline() .. "if " .. var("break") .. " then break end" -- ./compiler/lua51.can:9
+end -- ./compiler/lua51.can:9
+tags["Continue"] = function() -- ./compiler/lua51.can:12
+return "break" -- ./compiler/lua51.can:13
+end -- ./compiler/lua51.can:13
+tags["Break"] = function() -- ./compiler/lua51.can:15
+local inContinue = peek("continue") -- ./compiler/lua51.can:16
+if inContinue then -- ./compiler/lua51.can:17
+return inContinue .. " = true" .. newline() .. "break" -- ./compiler/lua51.can:18
+else -- ./compiler/lua51.can:18
+return "break" -- ./compiler/lua51.can:20
+end -- ./compiler/lua51.can:20
+end -- ./compiler/lua51.can:20
+tags["Goto"] = function() -- ./compiler/lua51.can:25
+error("target " .. targetName .. " does not support gotos") -- ./compiler/lua51.can:26
+end -- ./compiler/lua51.can:26
+tags["Label"] = function() -- ./compiler/lua51.can:28
+error("target " .. targetName .. " does not support goto labels") -- ./compiler/lua51.can:29
+end -- ./compiler/lua51.can:29
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
 return requireStr .. code -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 end -- ./compiler/lua54.can:834
 local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-return lua54 -- ./compiler/lua53.can:16
-end -- ./compiler/lua53.can:16
-local lua53 = _() or lua53 -- ./compiler/lua53.can:20
-return lua53 -- ./compiler/luajit.can:44
-end -- ./compiler/luajit.can:44
-local luajit = _() or luajit -- ./compiler/luajit.can:48
-return luajit -- ./compiler/lua51.can:32
-end -- ./compiler/lua51.can:32
-local lua51 = _() or lua51 -- ./compiler/lua51.can:36
-package["loaded"]["compiler.lua51"] = lua51 or true -- ./compiler/lua51.can:37
-local function _() -- ./compiler/lua51.can:41
+return lua54 -- ./compiler/lua53.can:18
+end -- ./compiler/lua53.can:18
+local lua53 = _() or lua53 -- ./compiler/lua53.can:22
+return lua53 -- ./compiler/lua52.can:35
+end -- ./compiler/lua52.can:35
+local lua52 = _() or lua52 -- ./compiler/lua52.can:39
+return lua52 -- ./compiler/luajit.can:38
+end -- ./compiler/luajit.can:38
+local luajit = _() or luajit -- ./compiler/luajit.can:42
+return luajit -- ./compiler/lua51.can:38
+end -- ./compiler/lua51.can:38
+local lua51 = _() or lua51 -- ./compiler/lua51.can:42
+package["loaded"]["compiler.lua51"] = lua51 or true -- ./compiler/lua51.can:43
+local function _() -- ./compiler/lua51.can:47
 local scope = {} -- ./candran/can-parser/scope.lua:4
 scope["lineno"] = function(s, i) -- ./candran/can-parser/scope.lua:6
 if i == 1 then -- ./candran/can-parser/scope.lua:7
@@ -5355,260 +6397,260 @@ return parser -- ./candran/can-parser/parser.lua:777
 end -- ./candran/can-parser/parser.lua:777
 local parser = _() or parser -- ./candran/can-parser/parser.lua:781
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
-local unpack = unpack or table["unpack"] -- candran.can:14
-local candran = { ["VERSION"] = "0.13.1" } -- candran.can:17
-candran["default"] = { -- candran.can:21
-["target"] = "lua54", -- candran.can:22
-["indentation"] = "", -- candran.can:23
+local unpack = unpack or table["unpack"] -- candran.can:15
+local candran = { ["VERSION"] = "0.13.1" } -- candran.can:18
+candran["default"] = { -- candran.can:22
+["target"] = "lua54", -- candran.can:23
+["indentation"] = "", -- candran.can:24
 ["newline"] = "\
-", -- candran.can:24
-["variablePrefix"] = "__CAN_", -- candran.can:25
-["mapLines"] = true, -- candran.can:26
-["chunkname"] = "nil", -- candran.can:27
-["rewriteErrors"] = true -- candran.can:28
-} -- candran.can:28
-if _VERSION == "Lua 5.1" then -- candran.can:32
-if package["loaded"]["jit"] then -- candran.can:33
-candran["default"]["target"] = "luajit" -- candran.can:34
-else -- candran.can:34
-candran["default"]["target"] = "lua51" -- candran.can:36
-end -- candran.can:36
-elseif _VERSION == "Lua 5.2" then -- candran.can:38
-candran["default"]["target"] = "lua51" -- candran.can:39
-elseif _VERSION == "Lua 5.3" then -- candran.can:40
-candran["default"]["target"] = "lua53" -- candran.can:41
-end -- candran.can:41
-candran["preprocess"] = function(input, options) -- candran.can:50
-if options == nil then options = {} end -- candran.can:50
-options = util["merge"](candran["default"], options) -- candran.can:51
-local preprocessor = "" -- candran.can:54
-local i = 0 -- candran.can:55
-local inLongString = false -- candran.can:56
-local inComment = false -- candran.can:57
+", -- candran.can:25
+["variablePrefix"] = "__CAN_", -- candran.can:26
+["mapLines"] = true, -- candran.can:27
+["chunkname"] = "nil", -- candran.can:28
+["rewriteErrors"] = true -- candran.can:29
+} -- candran.can:29
+if _VERSION == "Lua 5.1" then -- candran.can:33
+if package["loaded"]["jit"] then -- candran.can:34
+candran["default"]["target"] = "luajit" -- candran.can:35
+else -- candran.can:35
+candran["default"]["target"] = "lua51" -- candran.can:37
+end -- candran.can:37
+elseif _VERSION == "Lua 5.2" then -- candran.can:39
+candran["default"]["target"] = "lua52" -- candran.can:40
+elseif _VERSION == "Lua 5.3" then -- candran.can:41
+candran["default"]["target"] = "lua53" -- candran.can:42
+end -- candran.can:42
+candran["preprocess"] = function(input, options) -- candran.can:51
+if options == nil then options = {} end -- candran.can:51
+options = util["merge"](candran["default"], options) -- candran.can:52
+local preprocessor = "" -- candran.can:55
+local i = 0 -- candran.can:56
+local inLongString = false -- candran.can:57
+local inComment = false -- candran.can:58
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:58
-i = i + (1) -- candran.can:59
-if inComment then -- candran.can:61
-inComment = not line:match("%]%]") -- candran.can:62
-elseif inLongString then -- candran.can:63
-inLongString = not line:match("%]%]") -- candran.can:64
-else -- candran.can:64
-if line:match("[^%-]%[%[") then -- candran.can:66
-inLongString = true -- candran.can:67
-elseif line:match("%-%-%[%[") then -- candran.can:68
-inComment = true -- candran.can:69
-end -- candran.can:69
-end -- candran.can:69
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:72
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:73
-else -- candran.can:73
-local l = line:sub(1, - 2) -- candran.can:75
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:76
+)") do -- candran.can:59
+i = i + (1) -- candran.can:60
+if inComment then -- candran.can:62
+inComment = not line:match("%]%]") -- candran.can:63
+elseif inLongString then -- candran.can:64
+inLongString = not line:match("%]%]") -- candran.can:65
+else -- candran.can:65
+if line:match("[^%-]%[%[") then -- candran.can:67
+inLongString = true -- candran.can:68
+elseif line:match("%-%-%[%[") then -- candran.can:69
+inComment = true -- candran.can:70
+end -- candran.can:70
+end -- candran.can:70
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:73
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:74
+else -- candran.can:74
+local l = line:sub(1, - 2) -- candran.can:76
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:77
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:77
-else -- candran.can:77
+") -- candran.can:78
+else -- candran.can:78
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:79
-end -- candran.can:79
-end -- candran.can:79
-end -- candran.can:79
-preprocessor = preprocessor .. ("return output") -- candran.can:83
-local env = util["merge"](_G, options) -- candran.can:86
-env["candran"] = candran -- candran.can:88
-env["output"] = "" -- candran.can:90
-env["import"] = function(modpath, margs) -- candran.can:97
-if margs == nil then margs = {} end -- candran.can:97
-local filepath = assert(util["search"](modpath, { -- candran.can:98
-"can", -- candran.can:98
-"lua" -- candran.can:98
-}), "No module named \"" .. modpath .. "\"") -- candran.can:98
-local f = io["open"](filepath) -- candran.can:101
-if not f then -- candran.can:102
-error("can't open the module file to import") -- candran.can:102
-end -- candran.can:102
-margs = util["merge"](options, { -- candran.can:104
-["chunkname"] = filepath, -- candran.can:104
-["loadLocal"] = true, -- candran.can:104
-["loadPackage"] = true -- candran.can:104
-}, margs) -- candran.can:104
-local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:105
-f:close() -- candran.can:106
-local modname = modpath:match("[^%.]+$") -- candran.can:109
+") -- candran.can:80
+end -- candran.can:80
+end -- candran.can:80
+end -- candran.can:80
+preprocessor = preprocessor .. ("return output") -- candran.can:84
+local env = util["merge"](_G, options) -- candran.can:87
+env["candran"] = candran -- candran.can:89
+env["output"] = "" -- candran.can:91
+env["import"] = function(modpath, margs) -- candran.can:98
+if margs == nil then margs = {} end -- candran.can:98
+local filepath = assert(util["search"](modpath, { -- candran.can:99
+"can", -- candran.can:99
+"lua" -- candran.can:99
+}), "No module named \"" .. modpath .. "\"") -- candran.can:99
+local f = io["open"](filepath) -- candran.can:102
+if not f then -- candran.can:103
+error("can't open the module file to import") -- candran.can:103
+end -- candran.can:103
+margs = util["merge"](options, { -- candran.can:105
+["chunkname"] = filepath, -- candran.can:105
+["loadLocal"] = true, -- candran.can:105
+["loadPackage"] = true -- candran.can:105
+}, margs) -- candran.can:105
+local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:106
+f:close() -- candran.can:107
+local modname = modpath:match("[^%.]+$") -- candran.can:110
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:118
-end -- candran.can:118
-env["include"] = function(file) -- candran.can:123
-local f = io["open"](file) -- candran.can:124
-if not f then -- candran.can:125
-error("can't open the file " .. file .. " to include") -- candran.can:125
-end -- candran.can:125
-env["write"](f:read("*a")) -- candran.can:126
-f:close() -- candran.can:127
-end -- candran.can:127
-env["write"] = function(...) -- candran.can:131
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:119
+end -- candran.can:119
+env["include"] = function(file) -- candran.can:124
+local f = io["open"](file) -- candran.can:125
+if not f then -- candran.can:126
+error("can't open the file " .. file .. " to include") -- candran.can:126
+end -- candran.can:126
+env["write"](f:read("*a")) -- candran.can:127
+f:close() -- candran.can:128
+end -- candran.can:128
+env["write"] = function(...) -- candran.can:132
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:132
-end -- candran.can:132
-env["placeholder"] = function(name) -- candran.can:136
-if env[name] then -- candran.can:137
-env["write"](env[name]) -- candran.can:138
-end -- candran.can:138
-end -- candran.can:138
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:143
-if not preprocess then -- candran.can:144
-return nil, "in preprocessor: " .. err -- candran.can:145
-end -- candran.can:145
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:148
-if not preprocess then -- candran.can:149
-return nil, "in preprocessor: " .. err -- candran.can:150
-end -- candran.can:150
-local success, output = pcall(preprocess) -- candran.can:154
-if not success then -- candran.can:155
-return nil, "in preprocessor: " .. output -- candran.can:156
-end -- candran.can:156
-return output -- candran.can:159
-end -- candran.can:159
-candran["compile"] = function(input, options) -- candran.can:168
-if options == nil then options = {} end -- candran.can:168
-options = util["merge"](candran["default"], options) -- candran.can:169
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:171
-if not ast then -- candran.can:173
-return nil, errmsg -- candran.can:174
-end -- candran.can:174
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:177
-end -- candran.can:177
-candran["make"] = function(code, options) -- candran.can:186
-local r, err = candran["preprocess"](code, options) -- candran.can:187
-if r then -- candran.can:188
-r, err = candran["compile"](r, options) -- candran.can:189
-if r then -- candran.can:190
-return r -- candran.can:191
-end -- candran.can:191
-end -- candran.can:191
-return r, err -- candran.can:194
-end -- candran.can:194
-local errorRewritingActive = false -- candran.can:197
-local codeCache = {} -- candran.can:198
-candran["loadfile"] = function(filepath, env, options) -- candran.can:201
-local f, err = io["open"](filepath) -- candran.can:202
-if not f then -- candran.can:203
-return nil, ("cannot open %s"):format(err) -- candran.can:204
-end -- candran.can:204
-local content = f:read("*a") -- candran.can:206
-f:close() -- candran.can:207
-return candran["load"](content, filepath, env, options) -- candran.can:209
-end -- candran.can:209
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:214
-if options == nil then options = {} end -- candran.can:214
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:215
-local code, err = candran["make"](chunk, options) -- candran.can:217
-if not code then -- candran.can:218
-return code, err -- candran.can:219
-end -- candran.can:219
-codeCache[options["chunkname"]] = code -- candran.can:222
-local f, err = util["load"](code, options["chunkname"], env) -- candran.can:223
-if f == nil then -- candran.can:228
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:229
-end -- candran.can:229
-if options["rewriteErrors"] == false then -- candran.can:232
-return f -- candran.can:233
-else -- candran.can:233
-return function(...) -- candran.can:235
-local params = { ... } -- candran.can:236
-if not errorRewritingActive then -- candran.can:237
-errorRewritingActive = true -- candran.can:238
-local t = { xpcall(function() -- candran.can:239
-return f(unpack(params)) -- candran.can:239
-end, candran["messageHandler"]) } -- candran.can:239
-errorRewritingActive = false -- candran.can:240
-if t[1] == false then -- candran.can:241
-error(t[2], 0) -- candran.can:242
-end -- candran.can:242
-return unpack(t, 2) -- candran.can:244
-else -- candran.can:244
-return f(...) -- candran.can:246
-end -- candran.can:246
-end -- candran.can:246
-end -- candran.can:246
-end -- candran.can:246
-candran["dofile"] = function(filename, options) -- candran.can:254
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:255
-if f == nil then -- candran.can:257
-error(err) -- candran.can:258
-else -- candran.can:258
-return f() -- candran.can:260
-end -- candran.can:260
-end -- candran.can:260
-candran["messageHandler"] = function(message) -- candran.can:266
+") -- candran.can:133
+end -- candran.can:133
+env["placeholder"] = function(name) -- candran.can:137
+if env[name] then -- candran.can:138
+env["write"](env[name]) -- candran.can:139
+end -- candran.can:139
+end -- candran.can:139
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:144
+if not preprocess then -- candran.can:145
+return nil, "in preprocessor: " .. err -- candran.can:146
+end -- candran.can:146
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:149
+if not preprocess then -- candran.can:150
+return nil, "in preprocessor: " .. err -- candran.can:151
+end -- candran.can:151
+local success, output = pcall(preprocess) -- candran.can:155
+if not success then -- candran.can:156
+return nil, "in preprocessor: " .. output -- candran.can:157
+end -- candran.can:157
+return output -- candran.can:160
+end -- candran.can:160
+candran["compile"] = function(input, options) -- candran.can:169
+if options == nil then options = {} end -- candran.can:169
+options = util["merge"](candran["default"], options) -- candran.can:170
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:172
+if not ast then -- candran.can:174
+return nil, errmsg -- candran.can:175
+end -- candran.can:175
+return require("compiler." .. options["target"])(input, ast, options) -- candran.can:178
+end -- candran.can:178
+candran["make"] = function(code, options) -- candran.can:187
+local r, err = candran["preprocess"](code, options) -- candran.can:188
+if r then -- candran.can:189
+r, err = candran["compile"](r, options) -- candran.can:190
+if r then -- candran.can:191
+return r -- candran.can:192
+end -- candran.can:192
+end -- candran.can:192
+return r, err -- candran.can:195
+end -- candran.can:195
+local errorRewritingActive = false -- candran.can:198
+local codeCache = {} -- candran.can:199
+candran["loadfile"] = function(filepath, env, options) -- candran.can:202
+local f, err = io["open"](filepath) -- candran.can:203
+if not f then -- candran.can:204
+return nil, ("cannot open %s"):format(err) -- candran.can:205
+end -- candran.can:205
+local content = f:read("*a") -- candran.can:207
+f:close() -- candran.can:208
+return candran["load"](content, filepath, env, options) -- candran.can:210
+end -- candran.can:210
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:215
+if options == nil then options = {} end -- candran.can:215
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:216
+local code, err = candran["make"](chunk, options) -- candran.can:218
+if not code then -- candran.can:219
+return code, err -- candran.can:220
+end -- candran.can:220
+codeCache[options["chunkname"]] = code -- candran.can:223
+local f, err = util["load"](code, options["chunkname"], env) -- candran.can:224
+if f == nil then -- candran.can:229
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:230
+end -- candran.can:230
+if options["rewriteErrors"] == false then -- candran.can:233
+return f -- candran.can:234
+else -- candran.can:234
+return function(...) -- candran.can:236
+local params = { ... } -- candran.can:237
+if not errorRewritingActive then -- candran.can:238
+errorRewritingActive = true -- candran.can:239
+local t = { xpcall(function() -- candran.can:240
+return f(unpack(params)) -- candran.can:240
+end, candran["messageHandler"]) } -- candran.can:240
+errorRewritingActive = false -- candran.can:241
+if t[1] == false then -- candran.can:242
+error(t[2], 0) -- candran.can:243
+end -- candran.can:243
+return unpack(t, 2) -- candran.can:245
+else -- candran.can:245
+return f(...) -- candran.can:247
+end -- candran.can:247
+end -- candran.can:247
+end -- candran.can:247
+end -- candran.can:247
+candran["dofile"] = function(filename, options) -- candran.can:255
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:256
+if f == nil then -- candran.can:258
+error(err) -- candran.can:259
+else -- candran.can:259
+return f() -- candran.can:261
+end -- candran.can:261
+end -- candran.can:261
+candran["messageHandler"] = function(message) -- candran.can:267
 return debug["traceback"](message, 2):gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:267
-line = tonumber(line) -- candran.can:268
-local originalFile -- candran.can:270
-local strName = source:match("%[string \"(.-)\"%]") -- candran.can:271
-if strName then -- candran.can:272
-if codeCache[strName] then -- candran.can:273
-originalFile = codeCache[strName] -- candran.can:274
-source = strName -- candran.can:275
-end -- candran.can:275
-else -- candran.can:275
-local fi = io["open"](source, "r") -- candran.can:278
-if fi then -- candran.can:279
-originalFile = fi:read("*a") -- candran.can:280
-fi:close() -- candran.can:281
-end -- candran.can:281
-end -- candran.can:281
-if originalFile then -- candran.can:285
-local i = 0 -- candran.can:286
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:268
+line = tonumber(line) -- candran.can:269
+local originalFile -- candran.can:271
+local strName = source:match("%[string \"(.-)\"%]") -- candran.can:272
+if strName then -- candran.can:273
+if codeCache[strName] then -- candran.can:274
+originalFile = codeCache[strName] -- candran.can:275
+source = strName -- candran.can:276
+end -- candran.can:276
+else -- candran.can:276
+local fi = io["open"](source, "r") -- candran.can:279
+if fi then -- candran.can:280
+originalFile = fi:read("*a") -- candran.can:281
+fi:close() -- candran.can:282
+end -- candran.can:282
+end -- candran.can:282
+if originalFile then -- candran.can:286
+local i = 0 -- candran.can:287
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:287
-i = i + 1 -- candran.can:288
-if i == line then -- candran.can:289
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:290
-if lineMap then -- candran.can:291
-if extSource ~= source then -- candran.can:292
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:293
-else -- candran.can:293
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:295
-end -- candran.can:295
-end -- candran.can:295
-break -- candran.can:298
-end -- candran.can:298
-end -- candran.can:298
-end -- candran.can:298
-end) -- candran.can:298
-end -- candran.can:298
-candran["searcher"] = function(modpath) -- candran.can:306
-local filepath = util["search"](modpath, { "can" }) -- candran.can:307
-if not filepath then -- candran.can:308
-if _VERSION == "Lua 5.4" then -- candran.can:309
-return "no candran file in package.path" -- candran.can:310
-else -- candran.can:310
+") do -- candran.can:288
+i = i + 1 -- candran.can:289
+if i == line then -- candran.can:290
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:291
+if lineMap then -- candran.can:292
+if extSource ~= source then -- candran.can:293
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:294
+else -- candran.can:294
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:296
+end -- candran.can:296
+end -- candran.can:296
+break -- candran.can:299
+end -- candran.can:299
+end -- candran.can:299
+end -- candran.can:299
+end) -- candran.can:299
+end -- candran.can:299
+candran["searcher"] = function(modpath) -- candran.can:307
+local filepath = util["search"](modpath, { "can" }) -- candran.can:308
+if not filepath then -- candran.can:309
+if _VERSION == "Lua 5.4" then -- candran.can:310
+return "no candran file in package.path" -- candran.can:311
+else -- candran.can:311
 return "\
-\9no candran file in package.path" -- candran.can:312
-end -- candran.can:312
-end -- candran.can:312
-local r, s = candran["loadfile"](filepath) -- candran.can:315
-if r then -- candran.can:316
-return r -- candran.can:317
-else -- candran.can:317
-return s -- candran.can:319
-end -- candran.can:319
-end -- candran.can:319
-candran["setup"] = function() -- candran.can:324
-if _VERSION == "Lua 5.1" then -- candran.can:325
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:326
-else -- candran.can:326
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:328
-end -- candran.can:328
-return candran -- candran.can:330
-end -- candran.can:330
-return candran -- candran.can:333
+\9no candran file in package.path" -- candran.can:313
+end -- candran.can:313
+end -- candran.can:313
+local r, s = candran["loadfile"](filepath) -- candran.can:316
+if r then -- candran.can:317
+return r -- candran.can:318
+else -- candran.can:318
+return s -- candran.can:320
+end -- candran.can:320
+end -- candran.can:320
+candran["setup"] = function() -- candran.can:325
+if _VERSION == "Lua 5.1" then -- candran.can:326
+table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:327
+else -- candran.can:327
+table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:329
+end -- candran.can:329
+return candran -- candran.can:331
+end -- candran.can:331
+return candran -- candran.can:334
diff --git a/compiler/lua51.can b/compiler/lua51.can
index 2238d70..9443454 100644
--- a/compiler/lua51.can
+++ b/compiler/lua51.can
@@ -22,8 +22,14 @@ tags.Break = ()
 end
 
 -- Unsuported features
-tags.Goto = nil
-tags.Label = nil
+tags.Goto = ()
+	error("target "..targetName.." does not support gotos")
+end
+tags.Label = ()
+	error("target "..targetName.." does not support goto labels")
+end
+
+#placeholder("patch")
 
 #local patch = output
 #output = ""
diff --git a/compiler/lua52.can b/compiler/lua52.can
new file mode 100644
index 0000000..7f94efc
--- /dev/null
+++ b/compiler/lua52.can
@@ -0,0 +1,35 @@
+targetName = "Lua 5.2"
+
+APPEND = (t, toAppend)
+	return "do" .. indent() .. "local "..var("a")..", "..var("p").." = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #"..var("a").." do" .. indent() .. t .. "["..var("p").."] = "..var("a").."[i]" .. newline() .. ""..var("p").." = "..var("p").." + 1" .. unindent() .. "end" .. unindent() .. "end"
+end
+
+tags._opid.idiv = (left, right)
+	return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")"
+end
+tags._opid.band = (left, right)
+	return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")"
+end
+tags._opid.bor = (left, right)
+	return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")"
+end
+tags._opid.bxor = (left, right)
+	return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")"
+end
+tags._opid.shl = (left, right)
+	return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")"
+end
+tags._opid.shr = (left, right)
+	return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")"
+end
+tags._opid.bnot = (right)
+	return "bit32.bnot(" .. lua(right) .. ")"
+end
+
+#placeholder("patch")
+
+#local patch = output
+#output = ""
+#import("compiler.lua53", { patch = patch, loadPackage = false })
+
+return lua53
diff --git a/compiler/lua53.can b/compiler/lua53.can
index ebee8dd..582fa69 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -3,12 +3,14 @@ targetName = "Lua 5.3"
 -- Unsuported features
 tags.AttributeId = (t)
 	if t[2] then
-		error("target does not support variable attributes")
+		error("target "..targetName.." does not support variable attributes")
 	else
 		return t[1]
 	end
 end
 
+#placeholder("patch")
+
 #local patch = output
 #output = ""
 #import("compiler.lua54", { patch = patch, loadPackage = false })
diff --git a/compiler/luajit.can b/compiler/luajit.can
index 9428fc5..511f642 100644
--- a/compiler/luajit.can
+++ b/compiler/luajit.can
@@ -3,13 +3,7 @@ targetName = "LuaJIT"
 UNPACK = (list, i, j)
 	return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")"
 end
-APPEND = (t, toAppend)
-	return "do" .. indent() .. "local "..var("a")..", "..var("p").." = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #"..var("a").." do" .. indent() .. t .. "["..var("p").."] = "..var("a").."[i]" .. newline() .. ""..var("p").." = "..var("p").." + 1" .. unindent() .. "end" .. unindent() .. "end"
-end
 
-tags._opid.idiv = (left, right)
-	return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")"
-end
 tags._opid.band = (left, right)
 	addRequire("bit", "band", "band")
 	return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")"
@@ -39,6 +33,6 @@ end
 
 #local patch = output
 #output = ""
-#import("compiler.lua53", { patch = patch, loadPackage = false })
+#import("compiler.lua52", { patch = patch, loadPackage = false })
 
-return lua53
+return lua52

From 24a3e0ed6938f0d597d0be2c4c83d20015651fd0 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 17:26:57 +0100
Subject: [PATCH 12/43] Update README

---
 README.md | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/README.md b/README.md
index b74a2eb..47b6e95 100644
--- a/README.md
+++ b/README.md
@@ -1,6 +1,6 @@
 Candran
 =======
-Candran is a dialect of the [Lua 5.4](http://www.lua.org) programming language which compiles to Lua 5.4, Lua 5.3, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
+Candran is a dialect of the [Lua 5.4](http://www.lua.org) programming language which compiles to Lua 5.4, Lua 5.3, Lua 5.2, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
 
 Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing Lua code should be able to run on Candran unmodified.
 
@@ -188,8 +188,6 @@ const x, y, z = 1, 2, 3 -- every variable will be defined using <const>
 
 Shortcut to Lua 5.4 variable attribute. Do not behave like `let`, as attributes require the variable to be constant and therefore can't be predeclared.
 
-_Not in the latest release._
-
 ##### `continue` keyword
 ```lua
 for i=1, 10 do
@@ -451,9 +449,9 @@ The preprocessor has access to the following variables:
 
 Compile targets
 ---------------
-Candran is based on the Lua 5.4 syntax, but can be compiled to Lua 5.4, Lua 5.3, LuaJIT, and Lua 5.1 compatible code.
+Candran is based on the Lua 5.4 syntax, but can be compiled to Lua 5.4, Lua 5.3, Lua 5.2, LuaJIT, and Lua 5.1 compatible code.
 
-To chose a compile target, set the ```target``` option to  ```lua54```, ```lua53```, ```luajit```, or ```lua51``` in the option table when using the library or the command line tools. Candran will try to detect the currently used Lua version and use it as the default target.
+To chose a compile target, set the ```target``` option to  ```lua54```, ```lua53```, ```lua52```, ```luajit```, or ```lua51``` in the option table when using the library or the command line tools. Candran will try to detect the currently used Lua version and use it as the default target.
 
 Candran will try to translate Lua 5.4 syntax into something usable with the current target if possible. Here is what is currently supported:
 
@@ -461,8 +459,9 @@ Candran will try to translate Lua 5.4 syntax into something usable with the curr
 | ---             | ---            | ---                          | ---                                                   | ---                | ---                 |
 | Lua 5.4         | lua54          | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | :white_check_mark:  |
 | Lua 5.3         | lua53          | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | X                   |
-| LuaJIT          | luajit         | :white_check_mark:           | :white_check_mark:                                    | :white_check_mark: | X                   |
-| Lua 5.2/5.1     | lua51          | :white_check_mark:           | :white_check_mark: if LuaJIT bit library is available | X                  | X                   |
+| Lua 5.2         | lua52          | :white_check_mark:           | :white_check_mark: (32bit)                            | :white_check_mark: | X                   |
+| LuaJIT          | luajit         | :white_check_mark:           | :white_check_mark: (32bit)                            | :white_check_mark: | X                   |
+| Lua 5.1         | lua51          | :white_check_mark:           | :white_check_mark: if LuaJIT bit library is available (32bit) | X                  | X                   |
 
 **Please note** that Candran only translates syntax, and will not try to do anything about changes in the Lua standard library (for example, the new utf8 module). If you need this, you should be able to use [lua-compat-5.3](https://github.com/keplerproject/lua-compat-5.3) along with Candran.
 
@@ -612,7 +611,7 @@ at the top of your main Lua file. If a Candran file is found when you call ```re
 You can give arbitrary options to the compiler and preprocessor, but Candran already provide and uses these with their associated default values:
 
 ```lua
-target = "lua53" -- compiler target. "lua53", "luajit" or "lua51" (default is automatically selected based on the Lua version used).
+target = "lua53" -- compiler target. "lua53", "lua52", "luajit" or "lua51" (default is automatically selected based on the Lua version used).
 indentation = "" -- character(s) used for indentation in the compiled file.
 newline = "\n" -- character(s) used for newlines in the compiled file.
 variablePrefix = "__CAN_" -- Prefix used when Candran needs to set a local variable to provide some functionality (example: to load LuaJIT's bit lib when using bitwise operators).

From 98efdc95f480105b4298e2bd2f549536bc037e7a Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 18:17:27 +0100
Subject: [PATCH 13/43] Improve cancheck column detection for identifiers

---
 bin/cancheck | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/bin/cancheck b/bin/cancheck
index 61cc964..d9d3dcc 100644
--- a/bin/cancheck
+++ b/bin/cancheck
@@ -99,6 +99,13 @@ local function check(can)
 						end
 					end
 
+					-- Errors codes highlighting a identifier (alphanumeric+underscore not starting with a number):
+					-- 1xx: global variables
+					-- 2xx: unused variables
+					-- 3xx: unused values
+					-- 4xx: shadowing delarations
+					local isIdentifier = tonumber(warning.code) >= 100 and tonumber(warning.code) < 500
+
 					-- calculating candran column
 					local can_line = can_lines[warning.can_line]
 					local lua_token = lua_line:sub(warning.column, warning.end_column)
@@ -125,6 +132,14 @@ local function check(can)
 									start, stop = nstart, nstop
 								end
 							end
+						-- for non aliases token that are identifier, check if match is a full identifier
+						-- (avoid things like `let e` matching the e in let)
+						elseif start and isIdentifier then
+							local prev = can_line:sub(start-1, start-1)
+							local next = can_line:sub(stop, stop)
+							if prev:match("[%w_]") or next:match("[%w_]") then
+								can_n = can_n - 1 -- skip this match
+							end
 						end
 						-- found
 						if start then

From d68c6fab0d1b377b8d1fe08d8b4aa7827768a872 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 24 Dec 2020 18:18:11 +0100
Subject: [PATCH 14/43] Candran v0.13

---
 candran.can                                                 | 2 +-
 candran.lua                                                 | 2 +-
 ...{candran-0.12.0-1.rockspec => candran-0.13.0-1.rockspec} | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)
 rename rockspec/{candran-0.12.0-1.rockspec => candran-0.13.0-1.rockspec} (72%)

diff --git a/candran.can b/candran.can
index a80cf91..995a01d 100644
--- a/candran.can
+++ b/candran.can
@@ -15,7 +15,7 @@
 local unpack = unpack or table.unpack
 
 local candran = {
-	VERSION = "0.13.1"
+	VERSION = "0.13.0"
 }
 
 --- Default options.
diff --git a/candran.lua b/candran.lua
index 28e491e..fa5cca6 100644
--- a/candran.lua
+++ b/candran.lua
@@ -6398,7 +6398,7 @@ end -- ./candran/can-parser/parser.lua:777
 local parser = _() or parser -- ./candran/can-parser/parser.lua:781
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
 local unpack = unpack or table["unpack"] -- candran.can:15
-local candran = { ["VERSION"] = "0.13.1" } -- candran.can:18
+local candran = { ["VERSION"] = "0.13.0" } -- candran.can:18
 candran["default"] = { -- candran.can:22
 ["target"] = "lua54", -- candran.can:23
 ["indentation"] = "", -- candran.can:24
diff --git a/rockspec/candran-0.12.0-1.rockspec b/rockspec/candran-0.13.0-1.rockspec
similarity index 72%
rename from rockspec/candran-0.12.0-1.rockspec
rename to rockspec/candran-0.13.0-1.rockspec
index 6e2588d..1df15eb 100644
--- a/rockspec/candran-0.12.0-1.rockspec
+++ b/rockspec/candran-0.13.0-1.rockspec
@@ -2,12 +2,12 @@ rockspec_format = "3.0"
 
 package = "candran"
 
-version = "0.12.0-1"
+version = "0.13.0-1"
 
 description = {
 	summary = "A simple Lua dialect and preprocessor.",
 	detailed = [[
-		Candran is a dialect of the Lua 5.3 programming language which compiles to Lua 5.3, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
+		Candran is a dialect of the Lua 5.4 programming language which compiles to Lua 5.4, Lua 5.3, Lua 5.2, LuaJIT and Lua 5.1 compatible code. It adds several useful syntax additions which aims to make Lua faster and easier to write, and a simple preprocessor.
 		Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing Lua code should be able to run on Candran unmodified.
 	]],
 	license = "MIT",
@@ -19,7 +19,7 @@ description = {
 
 source = {
 	url = "git://github.com/Reuh/candran",
-	tag = "v0.12.0"
+	tag = "v0.13.0"
 }
 
 dependencies = {

From 81f5f8fbbb554a309f57edbb68767591226e7df2 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 13:59:37 +0200
Subject: [PATCH 15/43] Improve error handling

---
 bin/can     |  14 +-
 candran.can |  47 +++--
 candran.lua | 492 +++++++++++++++++++++++++++-------------------------
 3 files changed, 296 insertions(+), 257 deletions(-)

diff --git a/bin/can b/bin/can
index a960e00..cad0270 100644
--- a/bin/can
+++ b/bin/can
@@ -1,6 +1,6 @@
 #!/usr/bin/env lua
 
-local candran = require("candran")
+local candran = require("candran").setup()
 local cmdline = require("candran.cmdline")
 
 local args = cmdline(arg)
@@ -27,7 +27,11 @@ if arg[#arg] == "-" then
 		io.stderr:write("can: "..err.."\n")
 		os.exit(1)
 	end
-	f()
+	local r, e = xpcall(f, candran.messageHandler)
+	if not r then
+		io.stderr:write(e.."\n")
+		os.exit(1)
+	end
 -- file
 elseif #args >= 1 then
 	local f, err = candran.loadfile(args[1], nil, args)
@@ -35,7 +39,11 @@ elseif #args >= 1 then
 		io.stderr:write("can: "..err.."\n")
 		os.exit(1)
 	else
-		f()
+		local r, e = xpcall(f, candran.messageHandler)
+		if not r then
+			io.stderr:write(e.."\n")
+			os.exit(1)
+		end
 	end
 -- REPL
 else
diff --git a/candran.can b/candran.can
index 995a01d..95700a8 100644
--- a/candran.can
+++ b/candran.can
@@ -15,8 +15,9 @@
 local unpack = unpack or table.unpack
 
 local candran = {
-	VERSION = "0.13.0"
+	VERSION = "0.14.0"
 }
+package.loaded["candran"] = candran
 
 --- Default options.
 candran.default = {
@@ -221,7 +222,8 @@ function candran.load(chunk, chunkname, env, options={})
 	end
 
 	codeCache[options.chunkname] = code
-	local f, err = util.load(code, options.chunkname, env)
+	local f
+	f, err = util.load(code, "=%s(%s)":format(options.chunkname, "compiled candran"), env)
 
 	-- Um. Candran isn't supposed to generate invalid Lua code, so this is a major issue.
 	-- This is not going to raise an error because this is supposed to behave similarly to Lua's load function.
@@ -234,10 +236,9 @@ function candran.load(chunk, chunkname, env, options={})
 		return f
 	else
 		return function(...)
-			local params = {...}
 			if not errorRewritingActive then
 				errorRewritingActive = true
-				local t = { xpcall(() return f(unpack(params)) end, candran.messageHandler) }
+				local t = { xpcall(f, candran.messageHandler, ...) }
 				errorRewritingActive = false
 				if t[1] == false then
 					error(t[2], 0)
@@ -265,19 +266,21 @@ end
 --- Candran error message handler.
 -- Use it in xpcall to rewrite stacktraces to display Candran source file lines instead of compiled Lua lines.
 function candran.messageHandler(message)
-	return debug.traceback(message, 2):gsub("(\n?%s*)([^\n]-)%:(%d+)%:", function(indentation, source, line)
+	if not message:match("\nstack traceback:\n") then
+		message = debug.traceback(message, 2)
+	end
+	return message:gsub("(\n?%s*)([^\n]-)%:(%d+)%:", function(indentation, source, line)
 		line = tonumber(line)
 
 		local originalFile
-		local strName = source:match("%[string \"(.-)\"%]")
+		local strName = source:match("^(.-)%(compiled candran%)$")
 		if strName then
 			if codeCache[strName] then
 				originalFile = codeCache[strName]
 				source = strName
 			end
 		else
-			local fi = io.open(source, "r")
-			if fi then
+			if fi = io.open(source, "r") then
 				originalFile = fi:read("*a")
 				fi:close()
 			end
@@ -313,21 +316,31 @@ function candran.searcher(modpath)
 			return "\n\tno candran file in package.path"
 		end
 	end
-	local r, s = candran.loadfile(filepath)
-	if r then
-		return r
-	else
-		return s
-	end
+	return ()
+		local r, s = candran.loadfile(filepath)
+		if r then
+			return r()
+		else
+			error("error loading candran module '%s' from file '%s':\n\t%s":format(modpath, filepath, s), 0)
+		end
+	end, filepath
 end
 
 --- Register the Candran package searcher.
 function candran.setup()
-	if _VERSION == "Lua 5.1" then
-		table.insert(package.loaders, 2, candran.searcher)
+	local searchers = if _VERSION == "Lua 5.1" then
+		package.loaders
 	else
-		table.insert(package.searchers, 2, candran.searcher)
+		package.searchers
 	end
+	-- check if already setup
+	for _, s in ipairs(searchers) do
+		if s == candran.searcher then
+			return candran
+		end
+	end
+	-- setup
+	table.insert(searchers, 2, candran.searcher)
 	return candran
 end
 
diff --git a/candran.lua b/candran.lua
index fa5cca6..14357bd 100644
--- a/candran.lua
+++ b/candran.lua
@@ -6398,259 +6398,277 @@ end -- ./candran/can-parser/parser.lua:777
 local parser = _() or parser -- ./candran/can-parser/parser.lua:781
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
 local unpack = unpack or table["unpack"] -- candran.can:15
-local candran = { ["VERSION"] = "0.13.0" } -- candran.can:18
-candran["default"] = { -- candran.can:22
-["target"] = "lua54", -- candran.can:23
-["indentation"] = "", -- candran.can:24
+local candran = { ["VERSION"] = "0.14.0" } -- candran.can:18
+package["loaded"]["candran"] = candran -- candran.can:20
+candran["default"] = { -- candran.can:23
+["target"] = "lua54", -- candran.can:24
+["indentation"] = "", -- candran.can:25
 ["newline"] = "\
-", -- candran.can:25
-["variablePrefix"] = "__CAN_", -- candran.can:26
-["mapLines"] = true, -- candran.can:27
-["chunkname"] = "nil", -- candran.can:28
-["rewriteErrors"] = true -- candran.can:29
-} -- candran.can:29
-if _VERSION == "Lua 5.1" then -- candran.can:33
-if package["loaded"]["jit"] then -- candran.can:34
-candran["default"]["target"] = "luajit" -- candran.can:35
-else -- candran.can:35
-candran["default"]["target"] = "lua51" -- candran.can:37
-end -- candran.can:37
-elseif _VERSION == "Lua 5.2" then -- candran.can:39
-candran["default"]["target"] = "lua52" -- candran.can:40
-elseif _VERSION == "Lua 5.3" then -- candran.can:41
-candran["default"]["target"] = "lua53" -- candran.can:42
-end -- candran.can:42
-candran["preprocess"] = function(input, options) -- candran.can:51
-if options == nil then options = {} end -- candran.can:51
-options = util["merge"](candran["default"], options) -- candran.can:52
-local preprocessor = "" -- candran.can:55
-local i = 0 -- candran.can:56
-local inLongString = false -- candran.can:57
-local inComment = false -- candran.can:58
+", -- candran.can:26
+["variablePrefix"] = "__CAN_", -- candran.can:27
+["mapLines"] = true, -- candran.can:28
+["chunkname"] = "nil", -- candran.can:29
+["rewriteErrors"] = true -- candran.can:30
+} -- candran.can:30
+if _VERSION == "Lua 5.1" then -- candran.can:34
+if package["loaded"]["jit"] then -- candran.can:35
+candran["default"]["target"] = "luajit" -- candran.can:36
+else -- candran.can:36
+candran["default"]["target"] = "lua51" -- candran.can:38
+end -- candran.can:38
+elseif _VERSION == "Lua 5.2" then -- candran.can:40
+candran["default"]["target"] = "lua52" -- candran.can:41
+elseif _VERSION == "Lua 5.3" then -- candran.can:42
+candran["default"]["target"] = "lua53" -- candran.can:43
+end -- candran.can:43
+candran["preprocess"] = function(input, options) -- candran.can:52
+if options == nil then options = {} end -- candran.can:52
+options = util["merge"](candran["default"], options) -- candran.can:53
+local preprocessor = "" -- candran.can:56
+local i = 0 -- candran.can:57
+local inLongString = false -- candran.can:58
+local inComment = false -- candran.can:59
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:59
-i = i + (1) -- candran.can:60
-if inComment then -- candran.can:62
-inComment = not line:match("%]%]") -- candran.can:63
-elseif inLongString then -- candran.can:64
-inLongString = not line:match("%]%]") -- candran.can:65
-else -- candran.can:65
-if line:match("[^%-]%[%[") then -- candran.can:67
-inLongString = true -- candran.can:68
-elseif line:match("%-%-%[%[") then -- candran.can:69
-inComment = true -- candran.can:70
-end -- candran.can:70
-end -- candran.can:70
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:73
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:74
-else -- candran.can:74
-local l = line:sub(1, - 2) -- candran.can:76
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:77
+)") do -- candran.can:60
+i = i + (1) -- candran.can:61
+if inComment then -- candran.can:63
+inComment = not line:match("%]%]") -- candran.can:64
+elseif inLongString then -- candran.can:65
+inLongString = not line:match("%]%]") -- candran.can:66
+else -- candran.can:66
+if line:match("[^%-]%[%[") then -- candran.can:68
+inLongString = true -- candran.can:69
+elseif line:match("%-%-%[%[") then -- candran.can:70
+inComment = true -- candran.can:71
+end -- candran.can:71
+end -- candran.can:71
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:74
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:75
+else -- candran.can:75
+local l = line:sub(1, - 2) -- candran.can:77
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:78
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:78
-else -- candran.can:78
+") -- candran.can:79
+else -- candran.can:79
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:80
-end -- candran.can:80
-end -- candran.can:80
-end -- candran.can:80
-preprocessor = preprocessor .. ("return output") -- candran.can:84
-local env = util["merge"](_G, options) -- candran.can:87
-env["candran"] = candran -- candran.can:89
-env["output"] = "" -- candran.can:91
-env["import"] = function(modpath, margs) -- candran.can:98
-if margs == nil then margs = {} end -- candran.can:98
-local filepath = assert(util["search"](modpath, { -- candran.can:99
-"can", -- candran.can:99
-"lua" -- candran.can:99
-}), "No module named \"" .. modpath .. "\"") -- candran.can:99
-local f = io["open"](filepath) -- candran.can:102
-if not f then -- candran.can:103
-error("can't open the module file to import") -- candran.can:103
-end -- candran.can:103
-margs = util["merge"](options, { -- candran.can:105
-["chunkname"] = filepath, -- candran.can:105
-["loadLocal"] = true, -- candran.can:105
-["loadPackage"] = true -- candran.can:105
-}, margs) -- candran.can:105
-local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:106
-f:close() -- candran.can:107
-local modname = modpath:match("[^%.]+$") -- candran.can:110
+") -- candran.can:81
+end -- candran.can:81
+end -- candran.can:81
+end -- candran.can:81
+preprocessor = preprocessor .. ("return output") -- candran.can:85
+local env = util["merge"](_G, options) -- candran.can:88
+env["candran"] = candran -- candran.can:90
+env["output"] = "" -- candran.can:92
+env["import"] = function(modpath, margs) -- candran.can:99
+if margs == nil then margs = {} end -- candran.can:99
+local filepath = assert(util["search"](modpath, { -- candran.can:100
+"can", -- candran.can:100
+"lua" -- candran.can:100
+}), "No module named \"" .. modpath .. "\"") -- candran.can:100
+local f = io["open"](filepath) -- candran.can:103
+if not f then -- candran.can:104
+error("can't open the module file to import") -- candran.can:104
+end -- candran.can:104
+margs = util["merge"](options, { -- candran.can:106
+["chunkname"] = filepath, -- candran.can:106
+["loadLocal"] = true, -- candran.can:106
+["loadPackage"] = true -- candran.can:106
+}, margs) -- candran.can:106
+local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:107
+f:close() -- candran.can:108
+local modname = modpath:match("[^%.]+$") -- candran.can:111
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:119
-end -- candran.can:119
-env["include"] = function(file) -- candran.can:124
-local f = io["open"](file) -- candran.can:125
-if not f then -- candran.can:126
-error("can't open the file " .. file .. " to include") -- candran.can:126
-end -- candran.can:126
-env["write"](f:read("*a")) -- candran.can:127
-f:close() -- candran.can:128
-end -- candran.can:128
-env["write"] = function(...) -- candran.can:132
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:120
+end -- candran.can:120
+env["include"] = function(file) -- candran.can:125
+local f = io["open"](file) -- candran.can:126
+if not f then -- candran.can:127
+error("can't open the file " .. file .. " to include") -- candran.can:127
+end -- candran.can:127
+env["write"](f:read("*a")) -- candran.can:128
+f:close() -- candran.can:129
+end -- candran.can:129
+env["write"] = function(...) -- candran.can:133
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:133
-end -- candran.can:133
-env["placeholder"] = function(name) -- candran.can:137
-if env[name] then -- candran.can:138
-env["write"](env[name]) -- candran.can:139
-end -- candran.can:139
-end -- candran.can:139
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:144
-if not preprocess then -- candran.can:145
-return nil, "in preprocessor: " .. err -- candran.can:146
-end -- candran.can:146
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:149
-if not preprocess then -- candran.can:150
-return nil, "in preprocessor: " .. err -- candran.can:151
-end -- candran.can:151
-local success, output = pcall(preprocess) -- candran.can:155
-if not success then -- candran.can:156
-return nil, "in preprocessor: " .. output -- candran.can:157
-end -- candran.can:157
-return output -- candran.can:160
-end -- candran.can:160
-candran["compile"] = function(input, options) -- candran.can:169
-if options == nil then options = {} end -- candran.can:169
-options = util["merge"](candran["default"], options) -- candran.can:170
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:172
-if not ast then -- candran.can:174
-return nil, errmsg -- candran.can:175
-end -- candran.can:175
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:178
-end -- candran.can:178
-candran["make"] = function(code, options) -- candran.can:187
-local r, err = candran["preprocess"](code, options) -- candran.can:188
-if r then -- candran.can:189
-r, err = candran["compile"](r, options) -- candran.can:190
-if r then -- candran.can:191
-return r -- candran.can:192
-end -- candran.can:192
-end -- candran.can:192
-return r, err -- candran.can:195
-end -- candran.can:195
-local errorRewritingActive = false -- candran.can:198
-local codeCache = {} -- candran.can:199
-candran["loadfile"] = function(filepath, env, options) -- candran.can:202
-local f, err = io["open"](filepath) -- candran.can:203
-if not f then -- candran.can:204
-return nil, ("cannot open %s"):format(err) -- candran.can:205
-end -- candran.can:205
-local content = f:read("*a") -- candran.can:207
-f:close() -- candran.can:208
-return candran["load"](content, filepath, env, options) -- candran.can:210
-end -- candran.can:210
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:215
-if options == nil then options = {} end -- candran.can:215
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:216
-local code, err = candran["make"](chunk, options) -- candran.can:218
-if not code then -- candran.can:219
-return code, err -- candran.can:220
-end -- candran.can:220
-codeCache[options["chunkname"]] = code -- candran.can:223
-local f, err = util["load"](code, options["chunkname"], env) -- candran.can:224
-if f == nil then -- candran.can:229
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:230
-end -- candran.can:230
-if options["rewriteErrors"] == false then -- candran.can:233
-return f -- candran.can:234
-else -- candran.can:234
-return function(...) -- candran.can:236
-local params = { ... } -- candran.can:237
-if not errorRewritingActive then -- candran.can:238
-errorRewritingActive = true -- candran.can:239
-local t = { xpcall(function() -- candran.can:240
-return f(unpack(params)) -- candran.can:240
-end, candran["messageHandler"]) } -- candran.can:240
-errorRewritingActive = false -- candran.can:241
-if t[1] == false then -- candran.can:242
-error(t[2], 0) -- candran.can:243
-end -- candran.can:243
-return unpack(t, 2) -- candran.can:245
-else -- candran.can:245
-return f(...) -- candran.can:247
-end -- candran.can:247
-end -- candran.can:247
-end -- candran.can:247
-end -- candran.can:247
-candran["dofile"] = function(filename, options) -- candran.can:255
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:256
-if f == nil then -- candran.can:258
-error(err) -- candran.can:259
-else -- candran.can:259
-return f() -- candran.can:261
-end -- candran.can:261
-end -- candran.can:261
-candran["messageHandler"] = function(message) -- candran.can:267
-return debug["traceback"](message, 2):gsub("(\
+") -- candran.can:134
+end -- candran.can:134
+env["placeholder"] = function(name) -- candran.can:138
+if env[name] then -- candran.can:139
+env["write"](env[name]) -- candran.can:140
+end -- candran.can:140
+end -- candran.can:140
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:145
+if not preprocess then -- candran.can:146
+return nil, "in preprocessor: " .. err -- candran.can:147
+end -- candran.can:147
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:150
+if not preprocess then -- candran.can:151
+return nil, "in preprocessor: " .. err -- candran.can:152
+end -- candran.can:152
+local success, output = pcall(preprocess) -- candran.can:156
+if not success then -- candran.can:157
+return nil, "in preprocessor: " .. output -- candran.can:158
+end -- candran.can:158
+return output -- candran.can:161
+end -- candran.can:161
+candran["compile"] = function(input, options) -- candran.can:170
+if options == nil then options = {} end -- candran.can:170
+options = util["merge"](candran["default"], options) -- candran.can:171
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:173
+if not ast then -- candran.can:175
+return nil, errmsg -- candran.can:176
+end -- candran.can:176
+return require("compiler." .. options["target"])(input, ast, options) -- candran.can:179
+end -- candran.can:179
+candran["make"] = function(code, options) -- candran.can:188
+local r, err = candran["preprocess"](code, options) -- candran.can:189
+if r then -- candran.can:190
+r, err = candran["compile"](r, options) -- candran.can:191
+if r then -- candran.can:192
+return r -- candran.can:193
+end -- candran.can:193
+end -- candran.can:193
+return r, err -- candran.can:196
+end -- candran.can:196
+local errorRewritingActive = false -- candran.can:199
+local codeCache = {} -- candran.can:200
+candran["loadfile"] = function(filepath, env, options) -- candran.can:203
+local f, err = io["open"](filepath) -- candran.can:204
+if not f then -- candran.can:205
+return nil, ("cannot open %s"):format(err) -- candran.can:206
+end -- candran.can:206
+local content = f:read("*a") -- candran.can:208
+f:close() -- candran.can:209
+return candran["load"](content, filepath, env, options) -- candran.can:211
+end -- candran.can:211
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:216
+if options == nil then options = {} end -- candran.can:216
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:217
+local code, err = candran["make"](chunk, options) -- candran.can:219
+if not code then -- candran.can:220
+return code, err -- candran.can:221
+end -- candran.can:221
+codeCache[options["chunkname"]] = code -- candran.can:224
+local f -- candran.can:225
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:226
+if f == nil then -- candran.can:231
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:232
+end -- candran.can:232
+if options["rewriteErrors"] == false then -- candran.can:235
+return f -- candran.can:236
+else -- candran.can:236
+return function(...) -- candran.can:238
+if not errorRewritingActive then -- candran.can:239
+errorRewritingActive = true -- candran.can:240
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:241
+errorRewritingActive = false -- candran.can:242
+if t[1] == false then -- candran.can:243
+error(t[2], 0) -- candran.can:244
+end -- candran.can:244
+return unpack(t, 2) -- candran.can:246
+else -- candran.can:246
+return f(...) -- candran.can:248
+end -- candran.can:248
+end -- candran.can:248
+end -- candran.can:248
+end -- candran.can:248
+candran["dofile"] = function(filename, options) -- candran.can:256
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:257
+if f == nil then -- candran.can:259
+error(err) -- candran.can:260
+else -- candran.can:260
+return f() -- candran.can:262
+end -- candran.can:262
+end -- candran.can:262
+candran["messageHandler"] = function(message) -- candran.can:268
+if not message:match("\
+stack traceback:\
+") then -- candran.can:269
+message = debug["traceback"](message, 2) -- candran.can:270
+end -- candran.can:270
+return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:268
-line = tonumber(line) -- candran.can:269
-local originalFile -- candran.can:271
-local strName = source:match("%[string \"(.-)\"%]") -- candran.can:272
-if strName then -- candran.can:273
-if codeCache[strName] then -- candran.can:274
-originalFile = codeCache[strName] -- candran.can:275
-source = strName -- candran.can:276
-end -- candran.can:276
-else -- candran.can:276
-local fi = io["open"](source, "r") -- candran.can:279
-if fi then -- candran.can:280
-originalFile = fi:read("*a") -- candran.can:281
-fi:close() -- candran.can:282
-end -- candran.can:282
-end -- candran.can:282
-if originalFile then -- candran.can:286
-local i = 0 -- candran.can:287
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:272
+line = tonumber(line) -- candran.can:273
+local originalFile -- candran.can:275
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:276
+if strName then -- candran.can:277
+if codeCache[strName] then -- candran.can:278
+originalFile = codeCache[strName] -- candran.can:279
+source = strName -- candran.can:280
+end -- candran.can:280
+else -- candran.can:280
+do -- candran.can:283
+local fi -- candran.can:283
+fi = io["open"](source, "r") -- candran.can:283
+if fi then -- candran.can:283
+originalFile = fi:read("*a") -- candran.can:284
+fi:close() -- candran.can:285
+end -- candran.can:285
+end -- candran.can:285
+end -- candran.can:285
+if originalFile then -- candran.can:289
+local i = 0 -- candran.can:290
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:288
-i = i + 1 -- candran.can:289
-if i == line then -- candran.can:290
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:291
-if lineMap then -- candran.can:292
-if extSource ~= source then -- candran.can:293
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:294
-else -- candran.can:294
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:296
-end -- candran.can:296
-end -- candran.can:296
-break -- candran.can:299
+") do -- candran.can:291
+i = i + 1 -- candran.can:292
+if i == line then -- candran.can:293
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:294
+if lineMap then -- candran.can:295
+if extSource ~= source then -- candran.can:296
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:297
+else -- candran.can:297
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:299
 end -- candran.can:299
 end -- candran.can:299
-end -- candran.can:299
-end) -- candran.can:299
-end -- candran.can:299
-candran["searcher"] = function(modpath) -- candran.can:307
-local filepath = util["search"](modpath, { "can" }) -- candran.can:308
-if not filepath then -- candran.can:309
-if _VERSION == "Lua 5.4" then -- candran.can:310
-return "no candran file in package.path" -- candran.can:311
-else -- candran.can:311
+break -- candran.can:302
+end -- candran.can:302
+end -- candran.can:302
+end -- candran.can:302
+end) -- candran.can:302
+end -- candran.can:302
+candran["searcher"] = function(modpath) -- candran.can:310
+local filepath = util["search"](modpath, { "can" }) -- candran.can:311
+if not filepath then -- candran.can:312
+if _VERSION == "Lua 5.4" then -- candran.can:313
+return "no candran file in package.path" -- candran.can:314
+else -- candran.can:314
 return "\
-\9no candran file in package.path" -- candran.can:313
-end -- candran.can:313
-end -- candran.can:313
-local r, s = candran["loadfile"](filepath) -- candran.can:316
-if r then -- candran.can:317
-return r -- candran.can:318
-else -- candran.can:318
-return s -- candran.can:320
-end -- candran.can:320
-end -- candran.can:320
-candran["setup"] = function() -- candran.can:325
-if _VERSION == "Lua 5.1" then -- candran.can:326
-table["insert"](package["loaders"], 2, candran["searcher"]) -- candran.can:327
-else -- candran.can:327
-table["insert"](package["searchers"], 2, candran["searcher"]) -- candran.can:329
-end -- candran.can:329
-return candran -- candran.can:331
-end -- candran.can:331
-return candran -- candran.can:334
+\9no candran file in package.path" -- candran.can:316
+end -- candran.can:316
+end -- candran.can:316
+return function() -- candran.can:319
+local r, s = candran["loadfile"](filepath) -- candran.can:320
+if r then -- candran.can:321
+return r() -- candran.can:322
+else -- candran.can:322
+error(("error loading candran module '%s' from file '%s':\
+\9%s"):format(modpath, filepath, s), 0) -- candran.can:324
+end -- candran.can:324
+end, filepath -- candran.can:326
+end -- candran.can:326
+candran["setup"] = function() -- candran.can:330
+local searchers = (function() -- candran.can:331
+if _VERSION == "Lua 5.1" then -- candran.can:331
+return package["loaders"] -- candran.can:332
+else -- candran.can:332
+return package["searchers"] -- candran.can:334
+end -- candran.can:334
+end)() -- candran.can:334
+for _, s in ipairs(searchers) do -- candran.can:337
+if s == candran["searcher"] then -- candran.can:338
+return candran -- candran.can:339
+end -- candran.can:339
+end -- candran.can:339
+table["insert"](searchers, 2, candran["searcher"]) -- candran.can:343
+return candran -- candran.can:344
+end -- candran.can:344
+return candran -- candran.can:347

From b00068c766186517c89a3d5cad7c3bea5eaeb62b Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 14:21:14 +0200
Subject: [PATCH 16/43] Load candran before lua files

---
 candran.can | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/candran.can b/candran.can
index 95700a8..e5fbefa 100644
--- a/candran.can
+++ b/candran.can
@@ -340,7 +340,7 @@ function candran.setup()
 		end
 	end
 	-- setup
-	table.insert(searchers, 2, candran.searcher)
+	table.insert(searchers, 1, candran.searcher)
 	return candran
 end
 

From d65c11e8d9b7a400dd62635c30da3bac4b968d36 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 14:29:08 +0200
Subject: [PATCH 17/43] Fix Candran loader

---
 candran.can |  4 ++--
 candran.lua | 18 +++++++++---------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/candran.can b/candran.can
index e5fbefa..3b433ac 100644
--- a/candran.can
+++ b/candran.can
@@ -316,10 +316,10 @@ function candran.searcher(modpath)
 			return "\n\tno candran file in package.path"
 		end
 	end
-	return ()
+	return (modpath) -- 2nd argument is not passed in Lua 5.1, so a closure is required
 		local r, s = candran.loadfile(filepath)
 		if r then
-			return r()
+			return r(modpath, filepath)
 		else
 			error("error loading candran module '%s' from file '%s':\n\t%s":format(modpath, filepath, s), 0)
 		end
diff --git a/candran.lua b/candran.lua
index 14357bd..514e2d8 100644
--- a/candran.lua
+++ b/candran.lua
@@ -6347,10 +6347,10 @@ end + P("--") * (P(1) - P("\
 ["ShortStr"] = P("\"") * Cs((V("EscSeq") + (P(1) - S("\"\
 "))) ^ 0) * expect(P("\""), "Quote") + P("'") * Cs((V("EscSeq") + (P(1) - S("'\
 "))) ^ 0) * expect(P("'"), "Quote"), -- ./candran/can-parser/parser.lua:693
-["EscSeq"] = P("\\") / "" * (P("a") / "\7" + P("b") / "\8" + P("f") / "\12" + P("n") / "\
-" + P("r") / "\13" + P("t") / "\9" + P("v") / "\11" + P("\
+["EscSeq"] = P("\\") / "" * (P("a") / "" + P("b") / "" + P("f") / "" + P("n") / "\
+" + P("r") / "\r" + P("t") / "	" + P("v") / "" + P("\
 ") / "\
-" + P("\13") / "\
+" + P("\r") / "\
 " + P("\\") / "\\" + P("\"") / "\"" + P("'") / "'" + P("z") * space ^ 0 / "" + digit * digit ^ - 2 / tonumber / string["char"] + P("x") * expect(C(xdigit * xdigit), "HexEsc") * Cc(16) / tonumber / string["char"] + P("u") * expect("{", "OBraceUEsc") * expect(C(xdigit ^ 1), "DigitUEsc") * Cc(16) * expect("}", "CBraceUEsc") / tonumber / (utf8 and utf8["char"] or string["char"]) + throw("EscSeq")), -- ./candran/can-parser/parser.lua:723
 ["LongStr"] = V("Open") * C((P(1) - V("CloseEq")) ^ 0) * expect(V("Close"), "CloseLStr") / function(s, eqs) -- ./candran/can-parser/parser.lua:726
 return s -- ./candran/can-parser/parser.lua:726
@@ -6495,7 +6495,7 @@ env["write"](f:read("*a")) -- candran.can:128
 f:close() -- candran.can:129
 end -- candran.can:129
 env["write"] = function(...) -- candran.can:133
-env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
+env["output"] = env["output"] .. (table["concat"]({ ... }, "	") .. "\
 ") -- candran.can:134
 end -- candran.can:134
 env["placeholder"] = function(name) -- candran.can:138
@@ -6642,16 +6642,16 @@ if _VERSION == "Lua 5.4" then -- candran.can:313
 return "no candran file in package.path" -- candran.can:314
 else -- candran.can:314
 return "\
-\9no candran file in package.path" -- candran.can:316
+	no candran file in package.path" -- candran.can:316
 end -- candran.can:316
 end -- candran.can:316
-return function() -- candran.can:319
+return function(modpath) -- candran.can:319
 local r, s = candran["loadfile"](filepath) -- candran.can:320
 if r then -- candran.can:321
-return r() -- candran.can:322
+return r(modpath, filepath) -- candran.can:322
 else -- candran.can:322
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, s), 0) -- candran.can:324
+	%s"):format(modpath, filepath, s), 0) -- candran.can:324
 end -- candran.can:324
 end, filepath -- candran.can:326
 end -- candran.can:326
@@ -6668,7 +6668,7 @@ if s == candran["searcher"] then -- candran.can:338
 return candran -- candran.can:339
 end -- candran.can:339
 end -- candran.can:339
-table["insert"](searchers, 2, candran["searcher"]) -- candran.can:343
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:343
 return candran -- candran.can:344
 end -- candran.can:344
 return candran -- candran.can:347

From a9dc5ab254aa39d8fc57855c2d8c43c3c32bb817 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 14:57:24 +0200
Subject: [PATCH 18/43] Update README

---
 README.md | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/README.md b/README.md
index 47b6e95..a3ff232 100644
--- a/README.md
+++ b/README.md
@@ -18,7 +18,7 @@ local function calculate(toadd=25) -- default parameters
 end
 
 let a = {
-	hey = true,
+	hey = 5 // 2, -- Lua 5.3+ syntax, that will be translated to work with the current Lua version
 
 	child = nil,
 
@@ -82,6 +82,8 @@ You can optionally install lua-linenoise (```luarocks install linenoise```, vers
 
 You can register the Candran package searcher in your main Lua file (`require("candran").setup()`) and any subsequent `require` call in your project will automatically search for Candran modules.
 
+If you use LÖVE, some integration with Candran is detailled [here](#https://github.com/Reuh/candran/wiki/L%C3%96VE).
+
 #### Editor support
 Most editors should be able to use their existing Lua support for Candran code. If you want full support for the additional syntax in your editor:
 * **Sublime Text 3**:
@@ -95,7 +97,7 @@ For linting, if your editor support [luacheck](https://github.com/luarocks/luach
 The language
 ------------
 ### Syntax additions
-After the preprocessor is run the Candran code is compiled to Lua. Candran code adds the folowing syntax to Lua:
+After the [preprocessor](#preprocessor) is run the Candran code is compiled to Lua. Candran code adds the folowing syntax to Lua 5.4 syntax:
 
 ##### Assignment operators
 * ````var += nb````
@@ -186,7 +188,7 @@ close b = {}
 const x, y, z = 1, 2, 3 -- every variable will be defined using <const>
 ```
 
-Shortcut to Lua 5.4 variable attribute. Do not behave like `let`, as attributes require the variable to be constant and therefore can't be predeclared.
+Shortcut to Lua 5.4 variable attribute. Do not behave like `let`, as attributes require the variable to be constant and therefore can't be predeclared. Only compatibel with Lua 5.4 target.
 
 ##### `continue` keyword
 ```lua
@@ -439,12 +441,14 @@ Will output ````print("Bonjour")```` or ````print("Hello")```` depending of the
 
 The preprocessor has access to the following variables:
 * ````candran````: the Candran library table.
-* ````output````: the current preprocessor output string. Can be redefined at any time.
-* ````import(module[, [options])````: a function which import a module. This should be equivalent to using _require(module)_ in the Candran code, except the module will be embedded in the current file. _options_ is an optional preprocessor arguments table for the imported module (current preprocessor arguments will be inherited). Options specific to this function: ```loadLocal``` (default ```true```): ```true``` to automatically load the module into a local variable (i.e. ```local thing = require("module.thing")```); ```loadPackage``` (default ```true```): ```true``` to automatically load the module into the loaded packages table (so it will be available for following ```require("module")``` calls).
+* ````output````: the current preprocessor output string. Can be redefined at any time. If you want to write something in the preprocessor output, it is preferred to use `write(...)` instead of directly modifying `output`.
+* ````import(module[, [options])````: a function which import a module. This should be equivalent to using _require(module)_ in the Candran code, except the module will be embedded in the current file. _options_ is an optional preprocessor arguments table for the imported module (current preprocessor arguments will be inherited). Options specific to this function:
+	* ```loadLocal``` (default ```true```): ```true``` to automatically load the module into a local variable (i.e. ```local thing = require("module.thing")```)
+	* ```loadPackage``` (default ```true```): ```true``` to automatically load the module into the loaded packages table (so it will be available for following ```require("module")``` calls).
 * ````include(filename)````: a function which copy the contents of the file _filename_ to the output.
 * ````write(...)````: write to the preprocessor output. For example, ````#write("hello()")```` will output ````hello()```` in the final file.
 * ```placeholder(name)```: if the variable _name_ is defined in the preprocessor environement, its content will be inserted here.
-* ````...````: each arguments passed to the preprocessor is directly available in the environment.
+* each arguments passed to the preprocessor is directly available in the environment.
 * and every standard Lua library.
 
 Compile targets
@@ -468,7 +472,7 @@ Candran will try to translate Lua 5.4 syntax into something usable with the curr
 Usage
 -----
 ### Command-line usage
-The library can be used standalone through the ```canc``` and ```can``` utility:
+The library can be used standalone through the ```canc``` (for compiling Candran files) and ```can``` (for running Candran files directly) utilities:
 
 *	````canc````
 
@@ -516,7 +520,7 @@ The library can be used standalone through the ```canc``` and ```can``` utility:
 
 *   ```can```
 
-	Start a simplisitic Candran REPL.
+	Start a simplisitic Candran REPL. Will automatically call `candran.setup()`.
 
 	If you want a better REPL (autocompletion, history, ability to move the cursor), install lua-linenoise: ```luarocks install linenoise``` (automatically installed if Candran was installed using LuaRocks).
 
@@ -524,7 +528,7 @@ The library can be used standalone through the ```canc``` and ```can``` utility:
 
 	Preprocess, compile and run _filename_ using the options provided.
 
-	This will automatically register the Candran package searcher, so required Candran modules will be compiled as they are needed.
+	This will automatically register the Candran package searcher using `candran.setup()`, so required Candran modules will be compiled as they are needed.
 
 	This command will use error rewriting unless explicitely enabled (by setting the `rewriteErrors=false` option).
 
@@ -589,10 +593,14 @@ If you are using the preprocessor ```import()``` function, the source Candran fi
 example.can:12(final.lua:5): attempt to call a nil value (global 'iWantAnError')
 ```
 
-You can perform error rewriting manually using:
+Please note that Candran can only wrap code directly called from Candran; if an error is raised from Lua, there will be no rewriting of Candran lines the stacktrace. These lines are indicated using `(compiled candran)` before the line number.
+
+If you want Candran to always wrap errors, you will need to wrap your whole code in a `xpcall`: `xpcall(func, candran.messageHandler)`.
 
 * ```candran.messageHandler(message)```: the error message handler used by Candran. Given `message` the Lua error string, returns full Candran traceback where soure files and lines are rewritten to their Candran source. You can use it as is in xpcall as a message handler.
 
+Also note that the Candran message handler will add a new, rewritten, stacktrace to the error message; it can't replace the default Lua one. You will therefore see two stacktraces when raising an error, the last one being the Lua one and can be ignored.
+
 ##### Package searching helpers
 Candran comes with a custom package searcher which will automatically find, preprocesses and compile ```.can``` files.
 
@@ -605,7 +613,7 @@ require("candran").setup()
 at the top of your main Lua file. If a Candran file is found when you call ```require()```, it will be automatically compiled and loaded. If both a Lua and Candran file match a module name, the Candran file will be loaded.
 
 * ```candran.searcher(modpath)```: Candran package searcher function. Use the existing package.path.
-* ```candran.setup()```: register the Candran package searcher, and return the `candran` table.
+* ```candran.setup()```: register the Candran package searcher (if not already done), and return the `candran` table.
 
 ##### Available compiler & preprocessor options
 You can give arbitrary options to the compiler and preprocessor, but Candran already provide and uses these with their associated default values:

From a3f05f50463d6933ef7143c0996ed21ddc91e0fd Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 14:57:34 +0200
Subject: [PATCH 19/43] Update year

---
 LICENSE | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LICENSE b/LICENSE
index e117f05..4b0a3df 100644
--- a/LICENSE
+++ b/LICENSE
@@ -1,4 +1,4 @@
-Copyright (c) 2017-2019 Étienne "Reuh" Fildadut
+Copyright (c) 2017-2021 Étienne "Reuh" Fildadut
 
 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
 

From f5752cd2312f1c5344656e5044a997fbfdca473a Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 15:19:55 +0200
Subject: [PATCH 20/43] Allow rewriting without new traceback

---
 README.md   | 2 +-
 candran.can | 4 ++--
 candran.lua | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index a3ff232..397d002 100644
--- a/README.md
+++ b/README.md
@@ -597,7 +597,7 @@ Please note that Candran can only wrap code directly called from Candran; if an
 
 If you want Candran to always wrap errors, you will need to wrap your whole code in a `xpcall`: `xpcall(func, candran.messageHandler)`.
 
-* ```candran.messageHandler(message)```: the error message handler used by Candran. Given `message` the Lua error string, returns full Candran traceback where soure files and lines are rewritten to their Candran source. You can use it as is in xpcall as a message handler.
+* ```candran.messageHandler(message[, noTraceback])```: the error message handler used by Candran. Given `message` the Lua error string, returns full Candran traceback where soure files and lines are rewritten to their Candran source. You can use it as is in xpcall as a message handler. If `noTraceback` is `true`, Candran will only rewrite `message` and not add a new traceback.
 
 Also note that the Candran message handler will add a new, rewritten, stacktrace to the error message; it can't replace the default Lua one. You will therefore see two stacktraces when raising an error, the last one being the Lua one and can be ignored.
 
diff --git a/candran.can b/candran.can
index 3b433ac..57f115d 100644
--- a/candran.can
+++ b/candran.can
@@ -265,8 +265,8 @@ end
 
 --- Candran error message handler.
 -- Use it in xpcall to rewrite stacktraces to display Candran source file lines instead of compiled Lua lines.
-function candran.messageHandler(message)
-	if not message:match("\nstack traceback:\n") then
+function candran.messageHandler(message, noTraceback)
+	if not noTraceback and not message:match("\nstack traceback:\n") then
 		message = debug.traceback(message, 2)
 	end
 	return message:gsub("(\n?%s*)([^\n]-)%:(%d+)%:", function(indentation, source, line)
diff --git a/candran.lua b/candran.lua
index 514e2d8..51a26ad 100644
--- a/candran.lua
+++ b/candran.lua
@@ -6586,8 +6586,8 @@ else -- candran.can:260
 return f() -- candran.can:262
 end -- candran.can:262
 end -- candran.can:262
-candran["messageHandler"] = function(message) -- candran.can:268
-if not message:match("\
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:268
+if not noTraceback and not message:match("\
 stack traceback:\
 ") then -- candran.can:269
 message = debug["traceback"](message, 2) -- candran.can:270

From 012b5c1d5aae25ca0edbf201b812559794d9bb72 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 15:29:54 +0200
Subject: [PATCH 21/43] Typo

---
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 397d002..abd7430 100644
--- a/README.md
+++ b/README.md
@@ -82,7 +82,7 @@ You can optionally install lua-linenoise (```luarocks install linenoise```, vers
 
 You can register the Candran package searcher in your main Lua file (`require("candran").setup()`) and any subsequent `require` call in your project will automatically search for Candran modules.
 
-If you use LÖVE, some integration with Candran is detailled [here](#https://github.com/Reuh/candran/wiki/L%C3%96VE).
+If you use LÖVE, some integration with Candran is detailled [here](https://github.com/Reuh/candran/wiki/L%C3%96VE).
 
 #### Editor support
 Most editors should be able to use their existing Lua support for Candran code. If you want full support for the additional syntax in your editor:

From 66f1a5a3c261bde75308ca380545159bbaa534bf Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 17 May 2021 15:37:20 +0200
Subject: [PATCH 22/43] Candran v0.14

---
 README.md                                                     | 2 +-
 .../{candran-0.13.0-1.rockspec => candran-0.14.0-1.rockspec}  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)
 rename rockspec/{candran-0.13.0-1.rockspec => candran-0.14.0-1.rockspec} (96%)

diff --git a/README.md b/README.md
index abd7430..805972c 100644
--- a/README.md
+++ b/README.md
@@ -74,7 +74,7 @@ end
 Candran is released under the MIT License (see ```LICENSE``` for details).
 
 #### Quick setup
-Install Candran automatically using LuaRocks: ```sudo luarocks install rockspec/candran-0.12.0-1.rockspec```.
+Install Candran automatically using LuaRocks: ```sudo luarocks install candran```.
 
 Or manually install LPegLabel (```luarocks install lpeglabel```, version 1.5 or above), download this repository and use Candran through the scripts in ```bin/``` or use it as a library with the self-contained ```candran.lua```.
 
diff --git a/rockspec/candran-0.13.0-1.rockspec b/rockspec/candran-0.14.0-1.rockspec
similarity index 96%
rename from rockspec/candran-0.13.0-1.rockspec
rename to rockspec/candran-0.14.0-1.rockspec
index 1df15eb..dc82cd2 100644
--- a/rockspec/candran-0.13.0-1.rockspec
+++ b/rockspec/candran-0.14.0-1.rockspec
@@ -2,7 +2,7 @@ rockspec_format = "3.0"
 
 package = "candran"
 
-version = "0.13.0-1"
+version = "0.14.0-1"
 
 description = {
 	summary = "A simple Lua dialect and preprocessor.",
@@ -19,7 +19,7 @@ description = {
 
 source = {
 	url = "git://github.com/Reuh/candran",
-	tag = "v0.13.0"
+	tag = "v0.14.0"
 }
 
 dependencies = {

From ebd36d710326ef7fbaa33cf74e0a32f0dd53eaa5 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 7 Jun 2021 17:04:26 +0200
Subject: [PATCH 23/43] Add macro support in preprocessor

---
 candran.can                   |   41 +-
 candran.lua                   | 9876 +++++++++++++++++----------------
 candran/can-parser/parser.lua |   32 +-
 candran/util.can              |   14 +
 compiler/lua54.can            |   56 +-
 test/test.lua                 |   48 +
 6 files changed, 5304 insertions(+), 4763 deletions(-)

diff --git a/candran.can b/candran.can
index 57f115d..9e1d1fd 100644
--- a/candran.can
+++ b/candran.can
@@ -47,10 +47,15 @@ end
 -- @tparam input string input code
 -- @tparam options table arguments for the preprocessor. They will be inserted into the preprocessor environement.
 -- @treturn[1] output string output code
+-- @treturn[1] macros registered macros
 -- @treturn[2] nil nil if error
 -- @treturn[2] error string error message
 function candran.preprocess(input, options={})
 	options = util.merge(candran.default, options)
+	local macros = {
+		functions = {},
+		variables = {}
+	}
 
 	-- generate preprocessor code
 	local preprocessor = ""
@@ -104,7 +109,8 @@ function candran.preprocess(input, options={})
 		if not f then error("can't open the module file to import") end
 
 		margs = util.merge(options, { chunkname = filepath, loadLocal = true, loadPackage = true }, margs)
-		local modcontent = assert(candran.preprocess(f:read("*a"), margs))
+		local modcontent, modmacros = assert(candran.preprocess(f:read("*a"), margs))
+		macros = util.recmerge(macros, modmacros)
 		f:close()
 
 		-- get module name (ex: module name of path.to.module is module)
@@ -140,6 +146,30 @@ function candran.preprocess(input, options={})
 			env.write(env[name])
 		end
 	end
+	env.define = function(identifier, replacement)
+		-- parse identifier
+		local iast, ierr = parser.parsemacroidentifier(identifier, options.chunkname)
+		if not iast then
+			return error("in macro identifier: %s":format(ierr))
+		end
+		-- parse replacement value
+		local rast, rerr = parser.parse(replacement, options.chunkname)
+		if not rast then
+			return error("in macro replacement: %s":format(rerr))
+		end
+		-- when giving a single value as a replacement, bypass the implicit push
+		if #rast == 1 and rast[1].tag == "Push" and rast[1].implicit then
+			rast = rast[1][1]
+		end
+		-- add macros
+		if iast.tag == "MacroFunction" then
+			macros.functions[iast[1][1]] = { args = iast[2], replacement = rast }
+		elseif iast.tag == "Id" then
+			macros.variables[iast[1]] = rast
+		else
+			error("invalid macro type %s":format(iast.tag))
+		end
+	end
 
 	-- compile & load preprocessor
 	local preprocess, err = candran.compile(preprocessor, options)
@@ -158,16 +188,17 @@ function candran.preprocess(input, options={})
 		return nil, "in preprocessor: "..output
 	end
 
-	return output
+	return output, macros
 end
 
 --- Run the compiler
 -- @tparam input string input code
 -- @tparam options table options for the compiler
+-- @tparam macros table defined macros, as returned by the preprocessor
 -- @treturn[1] output string output code
 -- @treturn[2] nil nil if error
 -- @treturn[2] error string error message
-function candran.compile(input, options={})
+function candran.compile(input, options={}, macros)
 	options = util.merge(candran.default, options)
 
 	local ast, errmsg = parser.parse(input, options.chunkname)
@@ -176,7 +207,7 @@ function candran.compile(input, options={})
 		return nil, errmsg
 	end
 
-	return require("compiler."..options.target)(input, ast, options)
+	return require("compiler."..options.target)(input, ast, options, macros)
 end
 
 --- Preprocess & compile code
@@ -188,7 +219,7 @@ end
 function candran.make(code, options)
 	local r, err = candran.preprocess(code, options)
 	if r then
-		r, err = candran.compile(r, options)
+		r, err = candran.compile(r, options, err)
 		if r then
 			return r
 		end
diff --git a/candran.lua b/candran.lua
index 51a26ad..fdcd523 100644
--- a/candran.lua
+++ b/candran.lua
@@ -28,20 +28,33 @@ return load(str, name) -- ./candran/util.can:25
 end -- ./candran/util.can:25
 end -- ./candran/util.can:25
 end -- ./candran/util.can:25
-util["merge"] = function(...) -- ./candran/util.can:30
+util["recmerge"] = function(...) -- ./candran/util.can:30
 local r = {} -- ./candran/util.can:31
 for _, t in ipairs({ ... }) do -- ./candran/util.can:32
 for k, v in pairs(t) do -- ./candran/util.can:33
-r[k] = v -- ./candran/util.can:34
-end -- ./candran/util.can:34
-end -- ./candran/util.can:34
-return r -- ./candran/util.can:37
+if type(v) == "table" then -- ./candran/util.can:34
+r[k] = util["merge"](v, r[k]) -- ./candran/util.can:35
+else -- ./candran/util.can:35
+r[k] = v -- ./candran/util.can:37
 end -- ./candran/util.can:37
-return util -- ./candran/util.can:40
-end -- ./candran/util.can:40
-local util = _() or util -- ./candran/util.can:44
-package["loaded"]["candran.util"] = util or true -- ./candran/util.can:45
-local function _() -- ./candran/util.can:48
+end -- ./candran/util.can:37
+end -- ./candran/util.can:37
+return r -- ./candran/util.can:41
+end -- ./candran/util.can:41
+util["merge"] = function(...) -- ./candran/util.can:44
+local r = {} -- ./candran/util.can:45
+for _, t in ipairs({ ... }) do -- ./candran/util.can:46
+for k, v in pairs(t) do -- ./candran/util.can:47
+r[k] = v -- ./candran/util.can:48
+end -- ./candran/util.can:48
+end -- ./candran/util.can:48
+return r -- ./candran/util.can:51
+end -- ./candran/util.can:51
+return util -- ./candran/util.can:54
+end -- ./candran/util.can:54
+local util = _() or util -- ./candran/util.can:58
+package["loaded"]["candran.util"] = util or true -- ./candran/util.can:59
+local function _() -- ./candran/util.can:62
 local ipairs, pairs, setfenv, tonumber, loadstring, type = ipairs, pairs, setfenv, tonumber, loadstring, type -- ./candran/cmdline.lua:5
 local tinsert, tconcat = table["insert"], table["concat"] -- ./candran/cmdline.lua:6
 local function commonerror(msg) -- ./candran/cmdline.lua:8
@@ -129,1724 +142,1844 @@ end -- ./candran/cmdline.lua:125
 local cmdline = _() or cmdline -- ./candran/cmdline.lua:130
 package["loaded"]["candran.cmdline"] = cmdline or true -- ./candran/cmdline.lua:131
 local function _() -- ./candran/cmdline.lua:135
-local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
-return function(code, ast, options) -- ./compiler/lua54.can:3
-local lastInputPos = 1 -- ./compiler/lua54.can:5
-local prevLinePos = 1 -- ./compiler/lua54.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
-local lastLine = 1 -- ./compiler/lua54.can:8
-local indentLevel = 0 -- ./compiler/lua54.can:11
-local function newline() -- ./compiler/lua54.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
-if options["mapLines"] then -- ./compiler/lua54.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local util = require("candran.util") -- ./compiler/lua54.can:1
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
+return function(code, ast, options, macros) -- ./compiler/lua54.can:5
+if macros == nil then macros = { -- ./compiler/lua54.can:5
+["functions"] = {}, -- ./compiler/lua54.can:5
+["variables"] = {} -- ./compiler/lua54.can:5
+} end -- ./compiler/lua54.can:5
+local lastInputPos = 1 -- ./compiler/lua54.can:7
+local prevLinePos = 1 -- ./compiler/lua54.can:8
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
+local lastLine = 1 -- ./compiler/lua54.can:10
+local indentLevel = 0 -- ./compiler/lua54.can:13
+local function newline() -- ./compiler/lua54.can:15
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
+if options["mapLines"] then -- ./compiler/lua54.can:17
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:17
-if source and line then -- ./compiler/lua54.can:19
-lastSource = source -- ./compiler/lua54.can:20
-lastLine = tonumber(line) -- ./compiler/lua54.can:21
-else -- ./compiler/lua54.can:21
+") -- ./compiler/lua54.can:19
+if source and line then -- ./compiler/lua54.can:21
+lastSource = source -- ./compiler/lua54.can:22
+lastLine = tonumber(line) -- ./compiler/lua54.can:23
+else -- ./compiler/lua54.can:23
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:23
-lastLine = lastLine + (1) -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-prevLinePos = lastInputPos -- ./compiler/lua54.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
-end -- ./compiler/lua54.can:30
-return r -- ./compiler/lua54.can:32
+") do -- ./compiler/lua54.can:25
+lastLine = lastLine + (1) -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+prevLinePos = lastInputPos -- ./compiler/lua54.can:30
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
 end -- ./compiler/lua54.can:32
-local function indent() -- ./compiler/lua54.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
-return newline() -- ./compiler/lua54.can:37
-end -- ./compiler/lua54.can:37
-local function unindent() -- ./compiler/lua54.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
-return newline() -- ./compiler/lua54.can:42
-end -- ./compiler/lua54.can:42
-local states = { -- ./compiler/lua54.can:47
-["push"] = {}, -- ./compiler/lua54.can:48
-["destructuring"] = {}, -- ./compiler/lua54.can:49
-["scope"] = {} -- ./compiler/lua54.can:50
-} -- ./compiler/lua54.can:50
-local function push(name, state) -- ./compiler/lua54.can:53
-table["insert"](states[name], state) -- ./compiler/lua54.can:54
-return "" -- ./compiler/lua54.can:55
-end -- ./compiler/lua54.can:55
-local function pop(name) -- ./compiler/lua54.can:58
-table["remove"](states[name]) -- ./compiler/lua54.can:59
-return "" -- ./compiler/lua54.can:60
-end -- ./compiler/lua54.can:60
-local function set(name, state) -- ./compiler/lua54.can:63
-states[name][# states[name]] = state -- ./compiler/lua54.can:64
-return "" -- ./compiler/lua54.can:65
-end -- ./compiler/lua54.can:65
-local function peek(name) -- ./compiler/lua54.can:68
-return states[name][# states[name]] -- ./compiler/lua54.can:69
-end -- ./compiler/lua54.can:69
-local function var(name) -- ./compiler/lua54.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
-end -- ./compiler/lua54.can:75
-local function tmp() -- ./compiler/lua54.can:79
-local scope = peek("scope") -- ./compiler/lua54.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
-table["insert"](scope, var) -- ./compiler/lua54.can:82
-return var -- ./compiler/lua54.can:83
-end -- ./compiler/lua54.can:83
-local required = {} -- ./compiler/lua54.can:87
-local requireStr = "" -- ./compiler/lua54.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
-if not required[req] then -- ./compiler/lua54.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
-required[req] = true -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-local loop = { -- ./compiler/lua54.can:99
-"While", -- ./compiler/lua54.can:99
-"Repeat", -- ./compiler/lua54.can:99
-"Fornum", -- ./compiler/lua54.can:99
-"Forin", -- ./compiler/lua54.can:99
-"WhileExpr", -- ./compiler/lua54.can:99
-"RepeatExpr", -- ./compiler/lua54.can:99
-"FornumExpr", -- ./compiler/lua54.can:99
-"ForinExpr" -- ./compiler/lua54.can:99
-} -- ./compiler/lua54.can:99
-local func = { -- ./compiler/lua54.can:100
-"Function", -- ./compiler/lua54.can:100
-"TableCompr", -- ./compiler/lua54.can:100
-"DoExpr", -- ./compiler/lua54.can:100
-"WhileExpr", -- ./compiler/lua54.can:100
-"RepeatExpr", -- ./compiler/lua54.can:100
-"IfExpr", -- ./compiler/lua54.can:100
-"FornumExpr", -- ./compiler/lua54.can:100
-"ForinExpr" -- ./compiler/lua54.can:100
-} -- ./compiler/lua54.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
-local tagsCheck = {} -- ./compiler/lua54.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
-tagsCheck[tag] = true -- ./compiler/lua54.can:107
-end -- ./compiler/lua54.can:107
-local nofollowCheck = {} -- ./compiler/lua54.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
-nofollowCheck[tag] = true -- ./compiler/lua54.can:111
-end -- ./compiler/lua54.can:111
-for _, node in ipairs(list) do -- ./compiler/lua54.can:113
-if type(node) == "table" then -- ./compiler/lua54.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
-return node -- ./compiler/lua54.can:116
-end -- ./compiler/lua54.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
-if r then -- ./compiler/lua54.can:120
-return r -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-return nil -- ./compiler/lua54.can:124
-end -- ./compiler/lua54.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
-local tagsCheck = {} -- ./compiler/lua54.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
-tagsCheck[tag] = true -- ./compiler/lua54.can:132
-end -- ./compiler/lua54.can:132
-local nofollowCheck = {} -- ./compiler/lua54.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
-nofollowCheck[tag] = true -- ./compiler/lua54.can:136
-end -- ./compiler/lua54.can:136
-local found = {} -- ./compiler/lua54.can:138
-for _, node in ipairs(list) do -- ./compiler/lua54.can:139
-if type(node) == "table" then -- ./compiler/lua54.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
-table["insert"](found, n) -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
-table["insert"](found, node) -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-return found -- ./compiler/lua54.can:151
-end -- ./compiler/lua54.can:151
-local function all(list, tags) -- ./compiler/lua54.can:155
-for _, node in ipairs(list) do -- ./compiler/lua54.can:156
-local ok = false -- ./compiler/lua54.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
-if node["tag"] == tag then -- ./compiler/lua54.can:159
-ok = true -- ./compiler/lua54.can:160
-break -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-if not ok then -- ./compiler/lua54.can:164
-return false -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-return true -- ./compiler/lua54.can:168
-end -- ./compiler/lua54.can:168
-local tags -- ./compiler/lua54.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
-end -- ./compiler/lua54.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
-end -- ./compiler/lua54.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
-end -- ./compiler/lua54.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
-end -- ./compiler/lua54.can:186
-local CONTINUE_START = function() -- ./compiler/lua54.can:188
-return "do" .. indent() -- ./compiler/lua54.can:189
+return r -- ./compiler/lua54.can:34
+end -- ./compiler/lua54.can:34
+local function indent() -- ./compiler/lua54.can:37
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
+return newline() -- ./compiler/lua54.can:39
+end -- ./compiler/lua54.can:39
+local function unindent() -- ./compiler/lua54.can:42
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
+return newline() -- ./compiler/lua54.can:44
+end -- ./compiler/lua54.can:44
+local states = { -- ./compiler/lua54.can:49
+["push"] = {}, -- ./compiler/lua54.can:50
+["destructuring"] = {}, -- ./compiler/lua54.can:51
+["scope"] = {}, -- ./compiler/lua54.can:52
+["macroargs"] = {} -- ./compiler/lua54.can:53
+} -- ./compiler/lua54.can:53
+local function push(name, state) -- ./compiler/lua54.can:56
+table["insert"](states[name], state) -- ./compiler/lua54.can:57
+return "" -- ./compiler/lua54.can:58
+end -- ./compiler/lua54.can:58
+local function pop(name) -- ./compiler/lua54.can:61
+table["remove"](states[name]) -- ./compiler/lua54.can:62
+return "" -- ./compiler/lua54.can:63
+end -- ./compiler/lua54.can:63
+local function set(name, state) -- ./compiler/lua54.can:66
+states[name][# states[name]] = state -- ./compiler/lua54.can:67
+return "" -- ./compiler/lua54.can:68
+end -- ./compiler/lua54.can:68
+local function peek(name) -- ./compiler/lua54.can:71
+return states[name][# states[name]] -- ./compiler/lua54.can:72
+end -- ./compiler/lua54.can:72
+local function var(name) -- ./compiler/lua54.can:77
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
+end -- ./compiler/lua54.can:78
+local function tmp() -- ./compiler/lua54.can:82
+local scope = peek("scope") -- ./compiler/lua54.can:83
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
+table["insert"](scope, var) -- ./compiler/lua54.can:85
+return var -- ./compiler/lua54.can:86
+end -- ./compiler/lua54.can:86
+local nomacro = { -- ./compiler/lua54.can:90
+["variables"] = {}, -- ./compiler/lua54.can:90
+["functions"] = {} -- ./compiler/lua54.can:90
+} -- ./compiler/lua54.can:90
+local required = {} -- ./compiler/lua54.can:93
+local requireStr = "" -- ./compiler/lua54.can:94
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
+if not required[req] then -- ./compiler/lua54.can:98
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
+required[req] = true -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+local loop = { -- ./compiler/lua54.can:105
+"While", -- ./compiler/lua54.can:105
+"Repeat", -- ./compiler/lua54.can:105
+"Fornum", -- ./compiler/lua54.can:105
+"Forin", -- ./compiler/lua54.can:105
+"WhileExpr", -- ./compiler/lua54.can:105
+"RepeatExpr", -- ./compiler/lua54.can:105
+"FornumExpr", -- ./compiler/lua54.can:105
+"ForinExpr" -- ./compiler/lua54.can:105
+} -- ./compiler/lua54.can:105
+local func = { -- ./compiler/lua54.can:106
+"Function", -- ./compiler/lua54.can:106
+"TableCompr", -- ./compiler/lua54.can:106
+"DoExpr", -- ./compiler/lua54.can:106
+"WhileExpr", -- ./compiler/lua54.can:106
+"RepeatExpr", -- ./compiler/lua54.can:106
+"IfExpr", -- ./compiler/lua54.can:106
+"FornumExpr", -- ./compiler/lua54.can:106
+"ForinExpr" -- ./compiler/lua54.can:106
+} -- ./compiler/lua54.can:106
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
+local tagsCheck = {} -- ./compiler/lua54.can:111
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
+tagsCheck[tag] = true -- ./compiler/lua54.can:113
+end -- ./compiler/lua54.can:113
+local nofollowCheck = {} -- ./compiler/lua54.can:115
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
+nofollowCheck[tag] = true -- ./compiler/lua54.can:117
+end -- ./compiler/lua54.can:117
+for _, node in ipairs(list) do -- ./compiler/lua54.can:119
+if type(node) == "table" then -- ./compiler/lua54.can:120
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
+return node -- ./compiler/lua54.can:122
+end -- ./compiler/lua54.can:122
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
+if r then -- ./compiler/lua54.can:126
+return r -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+return nil -- ./compiler/lua54.can:130
+end -- ./compiler/lua54.can:130
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
+local tagsCheck = {} -- ./compiler/lua54.can:136
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
+tagsCheck[tag] = true -- ./compiler/lua54.can:138
+end -- ./compiler/lua54.can:138
+local nofollowCheck = {} -- ./compiler/lua54.can:140
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
+nofollowCheck[tag] = true -- ./compiler/lua54.can:142
+end -- ./compiler/lua54.can:142
+local found = {} -- ./compiler/lua54.can:144
+for _, node in ipairs(list) do -- ./compiler/lua54.can:145
+if type(node) == "table" then -- ./compiler/lua54.can:146
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
+table["insert"](found, n) -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
+table["insert"](found, node) -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+return found -- ./compiler/lua54.can:157
+end -- ./compiler/lua54.can:157
+local function all(list, tags) -- ./compiler/lua54.can:161
+for _, node in ipairs(list) do -- ./compiler/lua54.can:162
+local ok = false -- ./compiler/lua54.can:163
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
+if node["tag"] == tag then -- ./compiler/lua54.can:165
+ok = true -- ./compiler/lua54.can:166
+break -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+if not ok then -- ./compiler/lua54.can:170
+return false -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+return true -- ./compiler/lua54.can:174
+end -- ./compiler/lua54.can:174
+local tags -- ./compiler/lua54.can:178
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
+end -- ./compiler/lua54.can:182
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+end -- ./compiler/lua54.can:184
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
 end -- ./compiler/lua54.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
 end -- ./compiler/lua54.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
-local vars = {} -- ./compiler/lua54.can:195
-local values = {} -- ./compiler/lua54.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
-for _, v in ipairs(list) do -- ./compiler/lua54.can:198
-local var, val -- ./compiler/lua54.can:199
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
-var = v -- ./compiler/lua54.can:201
-val = { -- ./compiler/lua54.can:202
-["tag"] = "Index", -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "Id", -- ./compiler/lua54.can:202
-list["id"] -- ./compiler/lua54.can:202
-}, -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "String", -- ./compiler/lua54.can:202
-v[1] -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
-var = v[2] -- ./compiler/lua54.can:204
-val = { -- ./compiler/lua54.can:205
-["tag"] = "Index", -- ./compiler/lua54.can:205
-{ -- ./compiler/lua54.can:205
-["tag"] = "Id", -- ./compiler/lua54.can:205
-list["id"] -- ./compiler/lua54.can:205
-}, -- ./compiler/lua54.can:205
-v[1] -- ./compiler/lua54.can:205
-} -- ./compiler/lua54.can:205
-else -- ./compiler/lua54.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
-end -- ./compiler/lua54.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
-val = { -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["rightOp"], -- ./compiler/lua54.can:210
-var, -- ./compiler/lua54.can:210
-{ -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["leftOp"], -- ./compiler/lua54.can:210
-val, -- ./compiler/lua54.can:210
-var -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
-val = { -- ./compiler/lua54.can:212
-["tag"] = "Op", -- ./compiler/lua54.can:212
-destructured["rightOp"], -- ./compiler/lua54.can:212
-var, -- ./compiler/lua54.can:212
-val -- ./compiler/lua54.can:212
-} -- ./compiler/lua54.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
-val = { -- ./compiler/lua54.can:214
-["tag"] = "Op", -- ./compiler/lua54.can:214
-destructured["leftOp"], -- ./compiler/lua54.can:214
-val, -- ./compiler/lua54.can:214
-var -- ./compiler/lua54.can:214
-} -- ./compiler/lua54.can:214
-end -- ./compiler/lua54.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-if # vars > 0 then -- ./compiler/lua54.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
-if newlineAfter then -- ./compiler/lua54.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
-else -- ./compiler/lua54.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
-end -- ./compiler/lua54.can:225
-else -- ./compiler/lua54.can:225
-return "" -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-tags = setmetatable({ -- ./compiler/lua54.can:233
-["Block"] = function(t) -- ./compiler/lua54.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
-hasPush = false -- ./compiler/lua54.can:239
-end -- ./compiler/lua54.can:239
-local r = push("scope", {}) -- ./compiler/lua54.can:241
-if hasPush then -- ./compiler/lua54.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
-end -- ./compiler/lua54.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
-end -- ./compiler/lua54.can:246
-if t[# t] then -- ./compiler/lua54.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+local CONTINUE_START = function() -- ./compiler/lua54.can:194
+return "do" .. indent() -- ./compiler/lua54.can:195
+end -- ./compiler/lua54.can:195
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
+end -- ./compiler/lua54.can:198
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
+local vars = {} -- ./compiler/lua54.can:201
+local values = {} -- ./compiler/lua54.can:202
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
+for _, v in ipairs(list) do -- ./compiler/lua54.can:204
+local var, val -- ./compiler/lua54.can:205
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
+var = v -- ./compiler/lua54.can:207
+val = { -- ./compiler/lua54.can:208
+["tag"] = "Index", -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "Id", -- ./compiler/lua54.can:208
+list["id"] -- ./compiler/lua54.can:208
+}, -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "String", -- ./compiler/lua54.can:208
+v[1] -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
+var = v[2] -- ./compiler/lua54.can:210
+val = { -- ./compiler/lua54.can:211
+["tag"] = "Index", -- ./compiler/lua54.can:211
+{ -- ./compiler/lua54.can:211
+["tag"] = "Id", -- ./compiler/lua54.can:211
+list["id"] -- ./compiler/lua54.can:211
+}, -- ./compiler/lua54.can:211
+v[1] -- ./compiler/lua54.can:211
+} -- ./compiler/lua54.can:211
+else -- ./compiler/lua54.can:211
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
+end -- ./compiler/lua54.can:213
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
+val = { -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["rightOp"], -- ./compiler/lua54.can:216
+var, -- ./compiler/lua54.can:216
+{ -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["leftOp"], -- ./compiler/lua54.can:216
+val, -- ./compiler/lua54.can:216
+var -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+val = { -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["rightOp"], -- ./compiler/lua54.can:218
+var, -- ./compiler/lua54.can:218
+val -- ./compiler/lua54.can:218
+} -- ./compiler/lua54.can:218
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+val = { -- ./compiler/lua54.can:220
+["tag"] = "Op", -- ./compiler/lua54.can:220
+destructured["leftOp"], -- ./compiler/lua54.can:220
+val, -- ./compiler/lua54.can:220
+var -- ./compiler/lua54.can:220
+} -- ./compiler/lua54.can:220
+end -- ./compiler/lua54.can:220
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+if # vars > 0 then -- ./compiler/lua54.can:226
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
+if newlineAfter then -- ./compiler/lua54.can:228
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
+else -- ./compiler/lua54.can:229
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
+end -- ./compiler/lua54.can:231
+else -- ./compiler/lua54.can:231
+return "" -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+tags = setmetatable({ -- ./compiler/lua54.can:239
+["Block"] = function(t) -- ./compiler/lua54.can:241
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
+hasPush = false -- ./compiler/lua54.can:245
+end -- ./compiler/lua54.can:245
+local r = push("scope", {}) -- ./compiler/lua54.can:247
+if hasPush then -- ./compiler/lua54.can:248
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
 end -- ./compiler/lua54.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
 end -- ./compiler/lua54.can:252
-return r .. pop("scope") -- ./compiler/lua54.can:254
-end, -- ./compiler/lua54.can:254
-["Do"] = function(t) -- ./compiler/lua54.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
-end, -- ./compiler/lua54.can:261
-["Set"] = function(t) -- ./compiler/lua54.can:264
-local expr = t[# t] -- ./compiler/lua54.can:266
-local vars, values = {}, {} -- ./compiler/lua54.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
-else -- ./compiler/lua54.can:272
-table["insert"](vars, n) -- ./compiler/lua54.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
-local r = "" -- ./compiler/lua54.can:280
-if # vars > 0 then -- ./compiler/lua54.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
-end -- ./compiler/lua54.can:282
-if # destructuringVars > 0 then -- ./compiler/lua54.can:284
-local destructured = {} -- ./compiler/lua54.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
-end -- ./compiler/lua54.can:287
-return r -- ./compiler/lua54.can:289
-elseif # t == 4 then -- ./compiler/lua54.can:290
-if t[3] == "=" then -- ./compiler/lua54.can:291
-local r = "" -- ./compiler/lua54.can:292
-if # vars > 0 then -- ./compiler/lua54.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
-t[2], -- ./compiler/lua54.can:294
-vars[1], -- ./compiler/lua54.can:294
-{ -- ./compiler/lua54.can:294
-["tag"] = "Paren", -- ./compiler/lua54.can:294
-values[1] -- ./compiler/lua54.can:294
-} -- ./compiler/lua54.can:294
-}, "Op")) -- ./compiler/lua54.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
-t[2], -- ./compiler/lua54.can:296
-vars[i], -- ./compiler/lua54.can:296
-{ -- ./compiler/lua54.can:296
-["tag"] = "Paren", -- ./compiler/lua54.can:296
-values[i] -- ./compiler/lua54.can:296
-} -- ./compiler/lua54.can:296
-}, "Op")) -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-if # destructuringVars > 0 then -- ./compiler/lua54.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+if t[# t] then -- ./compiler/lua54.can:254
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
+end -- ./compiler/lua54.can:255
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
+end -- ./compiler/lua54.can:258
+return r .. pop("scope") -- ./compiler/lua54.can:260
+end, -- ./compiler/lua54.can:260
+["Do"] = function(t) -- ./compiler/lua54.can:266
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
+end, -- ./compiler/lua54.can:267
+["Set"] = function(t) -- ./compiler/lua54.can:270
+local expr = t[# t] -- ./compiler/lua54.can:272
+local vars, values = {}, {} -- ./compiler/lua54.can:273
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
+else -- ./compiler/lua54.can:278
+table["insert"](vars, n) -- ./compiler/lua54.can:280
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
+local r = "" -- ./compiler/lua54.can:286
+if # vars > 0 then -- ./compiler/lua54.can:287
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
+end -- ./compiler/lua54.can:288
+if # destructuringVars > 0 then -- ./compiler/lua54.can:290
+local destructured = {} -- ./compiler/lua54.can:291
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
+end -- ./compiler/lua54.can:293
+return r -- ./compiler/lua54.can:295
+elseif # t == 4 then -- ./compiler/lua54.can:296
+if t[3] == "=" then -- ./compiler/lua54.can:297
+local r = "" -- ./compiler/lua54.can:298
+if # vars > 0 then -- ./compiler/lua54.can:299
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
+t[2], -- ./compiler/lua54.can:300
+vars[1], -- ./compiler/lua54.can:300
+{ -- ./compiler/lua54.can:300
+["tag"] = "Paren", -- ./compiler/lua54.can:300
+values[1] -- ./compiler/lua54.can:300
+} -- ./compiler/lua54.can:300
+}, "Op")) -- ./compiler/lua54.can:300
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+t[2], -- ./compiler/lua54.can:302
+vars[i], -- ./compiler/lua54.can:302
+{ -- ./compiler/lua54.can:302
+["tag"] = "Paren", -- ./compiler/lua54.can:302
+values[i] -- ./compiler/lua54.can:302
+} -- ./compiler/lua54.can:302
+}, "Op")) -- ./compiler/lua54.can:302
 end -- ./compiler/lua54.can:302
-return r -- ./compiler/lua54.can:304
-else -- ./compiler/lua54.can:304
-local r = "" -- ./compiler/lua54.can:306
-if # vars > 0 then -- ./compiler/lua54.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
-t[3], -- ./compiler/lua54.can:308
-{ -- ./compiler/lua54.can:308
-["tag"] = "Paren", -- ./compiler/lua54.can:308
-values[1] -- ./compiler/lua54.can:308
-}, -- ./compiler/lua54.can:308
-vars[1] -- ./compiler/lua54.can:308
-}, "Op")) -- ./compiler/lua54.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
-t[3], -- ./compiler/lua54.can:310
-{ -- ./compiler/lua54.can:310
-["tag"] = "Paren", -- ./compiler/lua54.can:310
-values[i] -- ./compiler/lua54.can:310
-}, -- ./compiler/lua54.can:310
-vars[i] -- ./compiler/lua54.can:310
-}, "Op")) -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-if # destructuringVars > 0 then -- ./compiler/lua54.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:302
+if # destructuringVars > 0 then -- ./compiler/lua54.can:305
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
+end -- ./compiler/lua54.can:308
+return r -- ./compiler/lua54.can:310
+else -- ./compiler/lua54.can:310
+local r = "" -- ./compiler/lua54.can:312
+if # vars > 0 then -- ./compiler/lua54.can:313
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
+t[3], -- ./compiler/lua54.can:314
+{ -- ./compiler/lua54.can:314
+["tag"] = "Paren", -- ./compiler/lua54.can:314
+values[1] -- ./compiler/lua54.can:314
+}, -- ./compiler/lua54.can:314
+vars[1] -- ./compiler/lua54.can:314
+}, "Op")) -- ./compiler/lua54.can:314
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+t[3], -- ./compiler/lua54.can:316
+{ -- ./compiler/lua54.can:316
+["tag"] = "Paren", -- ./compiler/lua54.can:316
+values[i] -- ./compiler/lua54.can:316
+}, -- ./compiler/lua54.can:316
+vars[i] -- ./compiler/lua54.can:316
+}, "Op")) -- ./compiler/lua54.can:316
 end -- ./compiler/lua54.can:316
-return r -- ./compiler/lua54.can:318
-end -- ./compiler/lua54.can:318
-else -- ./compiler/lua54.can:318
-local r = "" -- ./compiler/lua54.can:321
-if # vars > 0 then -- ./compiler/lua54.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
-t[2], -- ./compiler/lua54.can:323
-vars[1], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Op", -- ./compiler/lua54.can:323
-t[4], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Paren", -- ./compiler/lua54.can:323
-values[1] -- ./compiler/lua54.can:323
-}, -- ./compiler/lua54.can:323
-vars[1] -- ./compiler/lua54.can:323
-} -- ./compiler/lua54.can:323
-}, "Op")) -- ./compiler/lua54.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
-t[2], -- ./compiler/lua54.can:325
-vars[i], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Op", -- ./compiler/lua54.can:325
-t[4], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Paren", -- ./compiler/lua54.can:325
-values[i] -- ./compiler/lua54.can:325
-}, -- ./compiler/lua54.can:325
-vars[i] -- ./compiler/lua54.can:325
-} -- ./compiler/lua54.can:325
-}, "Op")) -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-if # destructuringVars > 0 then -- ./compiler/lua54.can:328
-local destructured = { -- ./compiler/lua54.can:329
-["rightOp"] = t[2], -- ./compiler/lua54.can:329
-["leftOp"] = t[4] -- ./compiler/lua54.can:329
+end -- ./compiler/lua54.can:316
+if # destructuringVars > 0 then -- ./compiler/lua54.can:319
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
+end -- ./compiler/lua54.can:322
+return r -- ./compiler/lua54.can:324
+end -- ./compiler/lua54.can:324
+else -- ./compiler/lua54.can:324
+local r = "" -- ./compiler/lua54.can:327
+if # vars > 0 then -- ./compiler/lua54.can:328
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
+t[2], -- ./compiler/lua54.can:329
+vars[1], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Op", -- ./compiler/lua54.can:329
+t[4], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Paren", -- ./compiler/lua54.can:329
+values[1] -- ./compiler/lua54.can:329
+}, -- ./compiler/lua54.can:329
+vars[1] -- ./compiler/lua54.can:329
 } -- ./compiler/lua54.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:329
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+t[2], -- ./compiler/lua54.can:331
+vars[i], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Op", -- ./compiler/lua54.can:331
+t[4], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Paren", -- ./compiler/lua54.can:331
+values[i] -- ./compiler/lua54.can:331
+}, -- ./compiler/lua54.can:331
+vars[i] -- ./compiler/lua54.can:331
+} -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:331
 end -- ./compiler/lua54.can:331
-return r -- ./compiler/lua54.can:333
-end -- ./compiler/lua54.can:333
-end, -- ./compiler/lua54.can:333
-["While"] = function(t) -- ./compiler/lua54.can:337
-local r = "" -- ./compiler/lua54.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
-if # lets > 0 then -- ./compiler/lua54.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
-if # lets > 0 then -- ./compiler/lua54.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
-end -- ./compiler/lua54.can:349
-if hasContinue then -- ./compiler/lua54.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
-end -- ./compiler/lua54.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
-if hasContinue then -- ./compiler/lua54.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
-end -- ./compiler/lua54.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
-if # lets > 0 then -- ./compiler/lua54.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
-end -- ./compiler/lua54.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
-end -- ./compiler/lua54.can:363
-return r -- ./compiler/lua54.can:365
-end, -- ./compiler/lua54.can:365
-["Repeat"] = function(t) -- ./compiler/lua54.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
-local r = "repeat" .. indent() -- ./compiler/lua54.can:370
-if hasContinue then -- ./compiler/lua54.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
-end -- ./compiler/lua54.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
-if hasContinue then -- ./compiler/lua54.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
-end -- ./compiler/lua54.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
-return r -- ./compiler/lua54.can:379
-end, -- ./compiler/lua54.can:379
-["If"] = function(t) -- ./compiler/lua54.can:382
-local r = "" -- ./compiler/lua54.can:383
-local toClose = 0 -- ./compiler/lua54.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
-if # lets > 0 then -- ./compiler/lua54.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
-toClose = toClose + (1) -- ./compiler/lua54.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
-if # lets > 0 then -- ./compiler/lua54.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
-toClose = toClose + (1) -- ./compiler/lua54.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
-end -- ./compiler/lua54.can:400
-else -- ./compiler/lua54.can:400
-r = r .. ("else") -- ./compiler/lua54.can:403
-end -- ./compiler/lua54.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
-end -- ./compiler/lua54.can:405
-if # t % 2 == 1 then -- ./compiler/lua54.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
-end -- ./compiler/lua54.can:408
-r = r .. ("end") -- ./compiler/lua54.can:410
-for i = 1, toClose do -- ./compiler/lua54.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
-end -- ./compiler/lua54.can:412
-return r -- ./compiler/lua54.can:414
-end, -- ./compiler/lua54.can:414
-["Fornum"] = function(t) -- ./compiler/lua54.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
-if # t == 5 then -- ./compiler/lua54.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
-if hasContinue then -- ./compiler/lua54.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
-end -- ./compiler/lua54.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
-if hasContinue then -- ./compiler/lua54.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
-end -- ./compiler/lua54.can:427
-return r .. unindent() .. "end" -- ./compiler/lua54.can:429
-else -- ./compiler/lua54.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
-if hasContinue then -- ./compiler/lua54.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
-end -- ./compiler/lua54.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
-if hasContinue then -- ./compiler/lua54.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
-end -- ./compiler/lua54.can:438
-return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:331
+if # destructuringVars > 0 then -- ./compiler/lua54.can:334
+local destructured = { -- ./compiler/lua54.can:335
+["rightOp"] = t[2], -- ./compiler/lua54.can:335
+["leftOp"] = t[4] -- ./compiler/lua54.can:335
+} -- ./compiler/lua54.can:335
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
+end -- ./compiler/lua54.can:337
+return r -- ./compiler/lua54.can:339
+end -- ./compiler/lua54.can:339
+end, -- ./compiler/lua54.can:339
+["While"] = function(t) -- ./compiler/lua54.can:343
+local r = "" -- ./compiler/lua54.can:344
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
+if # lets > 0 then -- ./compiler/lua54.can:347
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
+if # lets > 0 then -- ./compiler/lua54.can:354
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
+end -- ./compiler/lua54.can:355
+if hasContinue then -- ./compiler/lua54.can:357
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
+end -- ./compiler/lua54.can:358
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
+if hasContinue then -- ./compiler/lua54.can:361
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
+end -- ./compiler/lua54.can:362
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
+if # lets > 0 then -- ./compiler/lua54.can:365
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
+end -- ./compiler/lua54.can:367
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+end -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:371
+end, -- ./compiler/lua54.can:371
+["Repeat"] = function(t) -- ./compiler/lua54.can:374
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
+local r = "repeat" .. indent() -- ./compiler/lua54.can:376
+if hasContinue then -- ./compiler/lua54.can:377
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
+end -- ./compiler/lua54.can:378
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
+if hasContinue then -- ./compiler/lua54.can:381
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
+end -- ./compiler/lua54.can:382
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
+return r -- ./compiler/lua54.can:385
+end, -- ./compiler/lua54.can:385
+["If"] = function(t) -- ./compiler/lua54.can:388
+local r = "" -- ./compiler/lua54.can:389
+local toClose = 0 -- ./compiler/lua54.can:390
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
+if # lets > 0 then -- ./compiler/lua54.can:392
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
+toClose = toClose + (1) -- ./compiler/lua54.can:394
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
+if # lets > 0 then -- ./compiler/lua54.can:402
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
+toClose = toClose + (1) -- ./compiler/lua54.can:404
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
+end -- ./compiler/lua54.can:406
+else -- ./compiler/lua54.can:406
+r = r .. ("else") -- ./compiler/lua54.can:409
+end -- ./compiler/lua54.can:409
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+end -- ./compiler/lua54.can:411
+if # t % 2 == 1 then -- ./compiler/lua54.can:413
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
+end -- ./compiler/lua54.can:414
+r = r .. ("end") -- ./compiler/lua54.can:416
+for i = 1, toClose do -- ./compiler/lua54.can:417
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
+end -- ./compiler/lua54.can:418
+return r -- ./compiler/lua54.can:420
+end, -- ./compiler/lua54.can:420
+["Fornum"] = function(t) -- ./compiler/lua54.can:423
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
+if # t == 5 then -- ./compiler/lua54.can:425
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
+if hasContinue then -- ./compiler/lua54.can:428
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
+end -- ./compiler/lua54.can:429
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
+if hasContinue then -- ./compiler/lua54.can:432
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
+end -- ./compiler/lua54.can:433
+return r .. unindent() .. "end" -- ./compiler/lua54.can:435
+else -- ./compiler/lua54.can:435
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
+if hasContinue then -- ./compiler/lua54.can:439
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
 end -- ./compiler/lua54.can:440
-end, -- ./compiler/lua54.can:440
-["Forin"] = function(t) -- ./compiler/lua54.can:444
-local destructured = {} -- ./compiler/lua54.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
-if hasContinue then -- ./compiler/lua54.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
-end -- ./compiler/lua54.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
-if hasContinue then -- ./compiler/lua54.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
-end -- ./compiler/lua54.can:453
-return r .. unindent() .. "end" -- ./compiler/lua54.can:455
-end, -- ./compiler/lua54.can:455
-["Local"] = function(t) -- ./compiler/lua54.can:458
-local destructured = {} -- ./compiler/lua54.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
-if t[2][1] then -- ./compiler/lua54.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
-end -- ./compiler/lua54.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
-end, -- ./compiler/lua54.can:464
-["Let"] = function(t) -- ./compiler/lua54.can:467
-local destructured = {} -- ./compiler/lua54.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
-local r = "local " .. nameList -- ./compiler/lua54.can:470
-if t[2][1] then -- ./compiler/lua54.can:471
-if all(t[2], { -- ./compiler/lua54.can:472
-"Nil", -- ./compiler/lua54.can:472
-"Dots", -- ./compiler/lua54.can:472
-"Boolean", -- ./compiler/lua54.can:472
-"Number", -- ./compiler/lua54.can:472
-"String" -- ./compiler/lua54.can:472
-}) then -- ./compiler/lua54.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
-else -- ./compiler/lua54.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
-end, -- ./compiler/lua54.can:478
-["Localrec"] = function(t) -- ./compiler/lua54.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
-end, -- ./compiler/lua54.can:482
-["Goto"] = function(t) -- ./compiler/lua54.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
-end, -- ./compiler/lua54.can:486
-["Label"] = function(t) -- ./compiler/lua54.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
-end, -- ./compiler/lua54.can:490
-["Return"] = function(t) -- ./compiler/lua54.can:493
-local push = peek("push") -- ./compiler/lua54.can:494
-if push then -- ./compiler/lua54.can:495
-local r = "" -- ./compiler/lua54.can:496
-for _, val in ipairs(t) do -- ./compiler/lua54.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
-end -- ./compiler/lua54.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
-else -- ./compiler/lua54.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
-end -- ./compiler/lua54.can:502
-end, -- ./compiler/lua54.can:502
-["Push"] = function(t) -- ./compiler/lua54.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
-r = "" -- ./compiler/lua54.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
-end -- ./compiler/lua54.can:510
-if t[# t] then -- ./compiler/lua54.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
-else -- ./compiler/lua54.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
+if hasContinue then -- ./compiler/lua54.can:443
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
+end -- ./compiler/lua54.can:444
+return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+end -- ./compiler/lua54.can:446
+end, -- ./compiler/lua54.can:446
+["Forin"] = function(t) -- ./compiler/lua54.can:450
+local destructured = {} -- ./compiler/lua54.can:451
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
+if hasContinue then -- ./compiler/lua54.can:454
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
+end -- ./compiler/lua54.can:455
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
+if hasContinue then -- ./compiler/lua54.can:458
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
+end -- ./compiler/lua54.can:459
+return r .. unindent() .. "end" -- ./compiler/lua54.can:461
+end, -- ./compiler/lua54.can:461
+["Local"] = function(t) -- ./compiler/lua54.can:464
+local destructured = {} -- ./compiler/lua54.can:465
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
+if t[2][1] then -- ./compiler/lua54.can:467
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
+end -- ./compiler/lua54.can:468
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
+end, -- ./compiler/lua54.can:470
+["Let"] = function(t) -- ./compiler/lua54.can:473
+local destructured = {} -- ./compiler/lua54.can:474
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
+local r = "local " .. nameList -- ./compiler/lua54.can:476
+if t[2][1] then -- ./compiler/lua54.can:477
+if all(t[2], { -- ./compiler/lua54.can:478
+"Nil", -- ./compiler/lua54.can:478
+"Dots", -- ./compiler/lua54.can:478
+"Boolean", -- ./compiler/lua54.can:478
+"Number", -- ./compiler/lua54.can:478
+"String" -- ./compiler/lua54.can:478
+}) then -- ./compiler/lua54.can:478
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
+else -- ./compiler/lua54.can:479
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
+end, -- ./compiler/lua54.can:484
+["Localrec"] = function(t) -- ./compiler/lua54.can:487
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
+end, -- ./compiler/lua54.can:488
+["Goto"] = function(t) -- ./compiler/lua54.can:491
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
+end, -- ./compiler/lua54.can:492
+["Label"] = function(t) -- ./compiler/lua54.can:495
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
+end, -- ./compiler/lua54.can:496
+["Return"] = function(t) -- ./compiler/lua54.can:499
+local push = peek("push") -- ./compiler/lua54.can:500
+if push then -- ./compiler/lua54.can:501
+local r = "" -- ./compiler/lua54.can:502
+for _, val in ipairs(t) do -- ./compiler/lua54.can:503
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
+end -- ./compiler/lua54.can:504
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
+else -- ./compiler/lua54.can:506
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
+end -- ./compiler/lua54.can:508
+end, -- ./compiler/lua54.can:508
+["Push"] = function(t) -- ./compiler/lua54.can:512
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
+r = "" -- ./compiler/lua54.can:514
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
 end -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-return r -- ./compiler/lua54.can:519
-end, -- ./compiler/lua54.can:519
-["Break"] = function() -- ./compiler/lua54.can:522
-return "break" -- ./compiler/lua54.can:523
-end, -- ./compiler/lua54.can:523
-["Continue"] = function() -- ./compiler/lua54.can:526
-return "goto " .. var("continue") -- ./compiler/lua54.can:527
-end, -- ./compiler/lua54.can:527
-["Nil"] = function() -- ./compiler/lua54.can:534
-return "nil" -- ./compiler/lua54.can:535
-end, -- ./compiler/lua54.can:535
-["Dots"] = function() -- ./compiler/lua54.can:538
-return "..." -- ./compiler/lua54.can:539
-end, -- ./compiler/lua54.can:539
-["Boolean"] = function(t) -- ./compiler/lua54.can:542
-return tostring(t[1]) -- ./compiler/lua54.can:543
-end, -- ./compiler/lua54.can:543
-["Number"] = function(t) -- ./compiler/lua54.can:546
-return tostring(t[1]) -- ./compiler/lua54.can:547
-end, -- ./compiler/lua54.can:547
-["String"] = function(t) -- ./compiler/lua54.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
-end, -- ./compiler/lua54.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
-local r = "(" -- ./compiler/lua54.can:555
-local decl = {} -- ./compiler/lua54.can:556
-if t[1][1] then -- ./compiler/lua54.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
-r = r .. (id) -- ./compiler/lua54.can:563
-else -- ./compiler/lua54.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
-end -- ./compiler/lua54.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
-r = r .. (", " .. id) -- ./compiler/lua54.can:573
-else -- ./compiler/lua54.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
-r = r .. (d .. newline()) -- ./compiler/lua54.can:581
-end -- ./compiler/lua54.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
-end -- ./compiler/lua54.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
-if hasPush then -- ./compiler/lua54.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
-else -- ./compiler/lua54.can:588
-push("push", false) -- ./compiler/lua54.can:590
-end -- ./compiler/lua54.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
-end -- ./compiler/lua54.can:594
-pop("push") -- ./compiler/lua54.can:596
-return r .. unindent() .. "end" -- ./compiler/lua54.can:597
-end, -- ./compiler/lua54.can:597
-["Function"] = function(t) -- ./compiler/lua54.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
-end, -- ./compiler/lua54.can:600
-["Pair"] = function(t) -- ./compiler/lua54.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
-end, -- ./compiler/lua54.can:604
-["Table"] = function(t) -- ./compiler/lua54.can:606
-if # t == 0 then -- ./compiler/lua54.can:607
-return "{}" -- ./compiler/lua54.can:608
-elseif # t == 1 then -- ./compiler/lua54.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
-else -- ./compiler/lua54.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
-end -- ./compiler/lua54.can:612
-end, -- ./compiler/lua54.can:612
-["TableCompr"] = function(t) -- ./compiler/lua54.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
-end, -- ./compiler/lua54.can:617
-["Op"] = function(t) -- ./compiler/lua54.can:620
-local r -- ./compiler/lua54.can:621
-if # t == 2 then -- ./compiler/lua54.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+if t[# t] then -- ./compiler/lua54.can:518
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
+else -- ./compiler/lua54.can:520
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+return r -- ./compiler/lua54.can:525
+end, -- ./compiler/lua54.can:525
+["Break"] = function() -- ./compiler/lua54.can:528
+return "break" -- ./compiler/lua54.can:529
+end, -- ./compiler/lua54.can:529
+["Continue"] = function() -- ./compiler/lua54.can:532
+return "goto " .. var("continue") -- ./compiler/lua54.can:533
+end, -- ./compiler/lua54.can:533
+["Nil"] = function() -- ./compiler/lua54.can:540
+return "nil" -- ./compiler/lua54.can:541
+end, -- ./compiler/lua54.can:541
+["Dots"] = function() -- ./compiler/lua54.can:544
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
+return r -- ./compiler/lua54.can:550
+else -- ./compiler/lua54.can:550
+return "..." -- ./compiler/lua54.can:552
+end -- ./compiler/lua54.can:552
+end, -- ./compiler/lua54.can:552
+["Boolean"] = function(t) -- ./compiler/lua54.can:556
+return tostring(t[1]) -- ./compiler/lua54.can:557
+end, -- ./compiler/lua54.can:557
+["Number"] = function(t) -- ./compiler/lua54.can:560
+return tostring(t[1]) -- ./compiler/lua54.can:561
+end, -- ./compiler/lua54.can:561
+["String"] = function(t) -- ./compiler/lua54.can:564
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
+end, -- ./compiler/lua54.can:565
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
+local r = "(" -- ./compiler/lua54.can:569
+local decl = {} -- ./compiler/lua54.can:570
+if t[1][1] then -- ./compiler/lua54.can:571
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
+r = r .. (id) -- ./compiler/lua54.can:577
+else -- ./compiler/lua54.can:577
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
+end -- ./compiler/lua54.can:579
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
+r = r .. (", " .. id) -- ./compiler/lua54.can:587
+else -- ./compiler/lua54.can:587
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
+r = r .. (d .. newline()) -- ./compiler/lua54.can:595
+end -- ./compiler/lua54.can:595
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
+end -- ./compiler/lua54.can:598
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
+if hasPush then -- ./compiler/lua54.can:601
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
+else -- ./compiler/lua54.can:602
+push("push", false) -- ./compiler/lua54.can:604
+end -- ./compiler/lua54.can:604
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
+end -- ./compiler/lua54.can:608
+pop("push") -- ./compiler/lua54.can:610
+return r .. unindent() .. "end" -- ./compiler/lua54.can:611
+end, -- ./compiler/lua54.can:611
+["Function"] = function(t) -- ./compiler/lua54.can:613
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
+end, -- ./compiler/lua54.can:614
+["Pair"] = function(t) -- ./compiler/lua54.can:617
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
+end, -- ./compiler/lua54.can:618
+["Table"] = function(t) -- ./compiler/lua54.can:620
+if # t == 0 then -- ./compiler/lua54.can:621
+return "{}" -- ./compiler/lua54.can:622
+elseif # t == 1 then -- ./compiler/lua54.can:623
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
 else -- ./compiler/lua54.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
 end -- ./compiler/lua54.can:626
-else -- ./compiler/lua54.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
-else -- ./compiler/lua54.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-return r -- ./compiler/lua54.can:635
-end, -- ./compiler/lua54.can:635
-["Paren"] = function(t) -- ./compiler/lua54.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
-end, -- ./compiler/lua54.can:639
-["MethodStub"] = function(t) -- ./compiler/lua54.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
-end, -- ./compiler/lua54.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
-end, -- ./compiler/lua54.can:658
-["LetExpr"] = function(t) -- ./compiler/lua54.can:665
-return lua(t[1][1]) -- ./compiler/lua54.can:666
-end, -- ./compiler/lua54.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
-local r = "(function()" .. indent() -- ./compiler/lua54.can:672
-if hasPush then -- ./compiler/lua54.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
-else -- ./compiler/lua54.can:674
-push("push", false) -- ./compiler/lua54.can:676
-end -- ./compiler/lua54.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
-if hasPush then -- ./compiler/lua54.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
-end -- ./compiler/lua54.can:680
-pop("push") -- ./compiler/lua54.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
-return r -- ./compiler/lua54.can:684
-end, -- ./compiler/lua54.can:684
-["DoExpr"] = function(t) -- ./compiler/lua54.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
-end -- ./compiler/lua54.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
-end, -- ./compiler/lua54.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
-end, -- ./compiler/lua54.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
-end, -- ./compiler/lua54.can:699
-["IfExpr"] = function(t) -- ./compiler/lua54.can:702
-for i = 2, # t do -- ./compiler/lua54.can:703
-local block = t[i] -- ./compiler/lua54.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:626
+["TableCompr"] = function(t) -- ./compiler/lua54.can:630
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
+end, -- ./compiler/lua54.can:631
+["Op"] = function(t) -- ./compiler/lua54.can:634
+local r -- ./compiler/lua54.can:635
+if # t == 2 then -- ./compiler/lua54.can:636
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
+else -- ./compiler/lua54.can:638
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
+end -- ./compiler/lua54.can:640
+else -- ./compiler/lua54.can:640
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
+else -- ./compiler/lua54.can:644
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+return r -- ./compiler/lua54.can:649
+end, -- ./compiler/lua54.can:649
+["Paren"] = function(t) -- ./compiler/lua54.can:652
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
+end, -- ./compiler/lua54.can:653
+["MethodStub"] = function(t) -- ./compiler/lua54.can:656
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
+end, -- ./compiler/lua54.can:662
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
+end, -- ./compiler/lua54.can:672
+["LetExpr"] = function(t) -- ./compiler/lua54.can:679
+return lua(t[1][1]) -- ./compiler/lua54.can:680
+end, -- ./compiler/lua54.can:680
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
+local r = "(function()" .. indent() -- ./compiler/lua54.can:686
+if hasPush then -- ./compiler/lua54.can:687
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
+else -- ./compiler/lua54.can:688
+push("push", false) -- ./compiler/lua54.can:690
+end -- ./compiler/lua54.can:690
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
+if hasPush then -- ./compiler/lua54.can:693
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
+end -- ./compiler/lua54.can:694
+pop("push") -- ./compiler/lua54.can:696
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
+return r -- ./compiler/lua54.can:698
+end, -- ./compiler/lua54.can:698
+["DoExpr"] = function(t) -- ./compiler/lua54.can:701
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
+end -- ./compiler/lua54.can:703
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
+end, -- ./compiler/lua54.can:705
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
 end, -- ./compiler/lua54.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
 end, -- ./compiler/lua54.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
-end, -- ./compiler/lua54.can:717
-["Call"] = function(t) -- ./compiler/lua54.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
-else -- ./compiler/lua54.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
-end -- ./compiler/lua54.can:730
-else -- ./compiler/lua54.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
-end -- ./compiler/lua54.can:733
-end, -- ./compiler/lua54.can:733
-["SafeCall"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
-else -- ./compiler/lua54.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
-end -- ./compiler/lua54.can:741
-end, -- ./compiler/lua54.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
-if start == nil then start = 1 end -- ./compiler/lua54.can:746
-local r -- ./compiler/lua54.can:747
-if t[start] then -- ./compiler/lua54.can:748
-r = lua(t[start]) -- ./compiler/lua54.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
-end -- ./compiler/lua54.can:751
+["IfExpr"] = function(t) -- ./compiler/lua54.can:716
+for i = 2, # t do -- ./compiler/lua54.can:717
+local block = t[i] -- ./compiler/lua54.can:718
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
+end, -- ./compiler/lua54.can:723
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
+end, -- ./compiler/lua54.can:727
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
+end, -- ./compiler/lua54.can:731
+["Call"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
+local replacement = macro["replacement"] -- ./compiler/lua54.can:742
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
+macroargs["..."] = (function() -- ./compiler/lua54.can:746
+local self = {} -- ./compiler/lua54.can:746
+for j = i + 1, # t do -- ./compiler/lua54.can:746
+self[#self+1] = t[j] -- ./compiler/lua54.can:746
+end -- ./compiler/lua54.can:746
+return self -- ./compiler/lua54.can:746
+end)() -- ./compiler/lua54.can:746
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
+if t[i + 1] == nil then -- ./compiler/lua54.can:748
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
+end -- ./compiler/lua54.can:749
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
 else -- ./compiler/lua54.can:751
-r = "" -- ./compiler/lua54.can:754
-end -- ./compiler/lua54.can:754
-return r -- ./compiler/lua54.can:756
-end, -- ./compiler/lua54.can:756
-["Id"] = function(t) -- ./compiler/lua54.can:759
-return t[1] -- ./compiler/lua54.can:760
-end, -- ./compiler/lua54.can:760
-["AttributeId"] = function(t) -- ./compiler/lua54.can:763
-if t[2] then -- ./compiler/lua54.can:764
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
-else -- ./compiler/lua54.can:765
-return t[1] -- ./compiler/lua54.can:767
-end -- ./compiler/lua54.can:767
-end, -- ./compiler/lua54.can:767
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
-if t["id"] then -- ./compiler/lua54.can:772
-return t["id"] -- ./compiler/lua54.can:773
-else -- ./compiler/lua54.can:773
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
-for j = 1, # t, 1 do -- ./compiler/lua54.can:777
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
-end -- ./compiler/lua54.can:778
-table["insert"](d, vars) -- ./compiler/lua54.can:780
-t["id"] = vars["id"] -- ./compiler/lua54.can:781
-return vars["id"] -- ./compiler/lua54.can:782
-end -- ./compiler/lua54.can:782
-end, -- ./compiler/lua54.can:782
-["Index"] = function(t) -- ./compiler/lua54.can:786
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
-else -- ./compiler/lua54.can:788
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+push("macroargs", macroargs) -- ./compiler/lua54.can:756
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
+local r = lua(replacement) -- ./compiler/lua54.can:758
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
+pop("macroargs") -- ./compiler/lua54.can:760
+return r -- ./compiler/lua54.can:761
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
+else -- ./compiler/lua54.can:764
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
+end -- ./compiler/lua54.can:766
+else -- ./compiler/lua54.can:766
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+end -- ./compiler/lua54.can:769
+end, -- ./compiler/lua54.can:769
+["SafeCall"] = function(t) -- ./compiler/lua54.can:773
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+else -- ./compiler/lua54.can:775
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+end -- ./compiler/lua54.can:777
+end, -- ./compiler/lua54.can:777
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
+if start == nil then start = 1 end -- ./compiler/lua54.can:782
+local r -- ./compiler/lua54.can:783
+if t[start] then -- ./compiler/lua54.can:784
+r = lua(t[start]) -- ./compiler/lua54.can:785
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
+end -- ./compiler/lua54.can:787
+else -- ./compiler/lua54.can:787
+r = "" -- ./compiler/lua54.can:790
 end -- ./compiler/lua54.can:790
-end, -- ./compiler/lua54.can:790
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
-local l = {} -- ./compiler/lua54.can:796
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
-table["insert"](l, 1, t) -- ./compiler/lua54.can:798
-t = t[1] -- ./compiler/lua54.can:799
-end -- ./compiler/lua54.can:799
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
-for _, e in ipairs(l) do -- ./compiler/lua54.can:802
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
-else -- ./compiler/lua54.can:805
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+return r -- ./compiler/lua54.can:792
+end, -- ./compiler/lua54.can:792
+["Id"] = function(t) -- ./compiler/lua54.can:795
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
+local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:802
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
+local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
+return r -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
-return r -- ./compiler/lua54.can:811
-else -- ./compiler/lua54.can:811
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
-end -- ./compiler/lua54.can:813
-end, -- ./compiler/lua54.can:813
-["_opid"] = { -- ./compiler/lua54.can:818
-["add"] = "+", -- ./compiler/lua54.can:819
-["sub"] = "-", -- ./compiler/lua54.can:819
-["mul"] = "*", -- ./compiler/lua54.can:819
-["div"] = "/", -- ./compiler/lua54.can:819
-["idiv"] = "//", -- ./compiler/lua54.can:820
-["mod"] = "%", -- ./compiler/lua54.can:820
-["pow"] = "^", -- ./compiler/lua54.can:820
-["concat"] = "..", -- ./compiler/lua54.can:820
-["band"] = "&", -- ./compiler/lua54.can:821
-["bor"] = "|", -- ./compiler/lua54.can:821
-["bxor"] = "~", -- ./compiler/lua54.can:821
-["shl"] = "<<", -- ./compiler/lua54.can:821
-["shr"] = ">>", -- ./compiler/lua54.can:821
-["eq"] = "==", -- ./compiler/lua54.can:822
-["ne"] = "~=", -- ./compiler/lua54.can:822
-["lt"] = "<", -- ./compiler/lua54.can:822
-["gt"] = ">", -- ./compiler/lua54.can:822
-["le"] = "<=", -- ./compiler/lua54.can:822
-["ge"] = ">=", -- ./compiler/lua54.can:822
-["and"] = "and", -- ./compiler/lua54.can:823
-["or"] = "or", -- ./compiler/lua54.can:823
-["unm"] = "-", -- ./compiler/lua54.can:823
-["len"] = "#", -- ./compiler/lua54.can:823
-["bnot"] = "~", -- ./compiler/lua54.can:823
-["not"] = "not" -- ./compiler/lua54.can:823
-} -- ./compiler/lua54.can:823
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
-end }) -- ./compiler/lua54.can:827
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
-return requireStr .. code -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-local lua54 = _() or lua54 -- ./compiler/lua54.can:839
-package["loaded"]["compiler.lua54"] = lua54 or true -- ./compiler/lua54.can:840
-local function _() -- ./compiler/lua54.can:843
-local function _() -- ./compiler/lua54.can:845
-local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
-return function(code, ast, options) -- ./compiler/lua54.can:3
-local lastInputPos = 1 -- ./compiler/lua54.can:5
-local prevLinePos = 1 -- ./compiler/lua54.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
-local lastLine = 1 -- ./compiler/lua54.can:8
-local indentLevel = 0 -- ./compiler/lua54.can:11
-local function newline() -- ./compiler/lua54.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
-if options["mapLines"] then -- ./compiler/lua54.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+return t[1] -- ./compiler/lua54.can:810
+end, -- ./compiler/lua54.can:810
+["AttributeId"] = function(t) -- ./compiler/lua54.can:813
+if t[2] then -- ./compiler/lua54.can:814
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
+else -- ./compiler/lua54.can:815
+return t[1] -- ./compiler/lua54.can:817
+end -- ./compiler/lua54.can:817
+end, -- ./compiler/lua54.can:817
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
+if t["id"] then -- ./compiler/lua54.can:822
+return t["id"] -- ./compiler/lua54.can:823
+else -- ./compiler/lua54.can:823
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
+for j = 1, # t, 1 do -- ./compiler/lua54.can:827
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
+end -- ./compiler/lua54.can:828
+table["insert"](d, vars) -- ./compiler/lua54.can:830
+t["id"] = vars["id"] -- ./compiler/lua54.can:831
+return vars["id"] -- ./compiler/lua54.can:832
+end -- ./compiler/lua54.can:832
+end, -- ./compiler/lua54.can:832
+["Index"] = function(t) -- ./compiler/lua54.can:836
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
+else -- ./compiler/lua54.can:838
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
+end -- ./compiler/lua54.can:840
+end, -- ./compiler/lua54.can:840
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
+local l = {} -- ./compiler/lua54.can:846
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
+table["insert"](l, 1, t) -- ./compiler/lua54.can:848
+t = t[1] -- ./compiler/lua54.can:849
+end -- ./compiler/lua54.can:849
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
+for _, e in ipairs(l) do -- ./compiler/lua54.can:852
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
+else -- ./compiler/lua54.can:855
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
+return r -- ./compiler/lua54.can:861
+else -- ./compiler/lua54.can:861
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
+end -- ./compiler/lua54.can:863
+end, -- ./compiler/lua54.can:863
+["_opid"] = { -- ./compiler/lua54.can:868
+["add"] = "+", -- ./compiler/lua54.can:869
+["sub"] = "-", -- ./compiler/lua54.can:869
+["mul"] = "*", -- ./compiler/lua54.can:869
+["div"] = "/", -- ./compiler/lua54.can:869
+["idiv"] = "//", -- ./compiler/lua54.can:870
+["mod"] = "%", -- ./compiler/lua54.can:870
+["pow"] = "^", -- ./compiler/lua54.can:870
+["concat"] = "..", -- ./compiler/lua54.can:870
+["band"] = "&", -- ./compiler/lua54.can:871
+["bor"] = "|", -- ./compiler/lua54.can:871
+["bxor"] = "~", -- ./compiler/lua54.can:871
+["shl"] = "<<", -- ./compiler/lua54.can:871
+["shr"] = ">>", -- ./compiler/lua54.can:871
+["eq"] = "==", -- ./compiler/lua54.can:872
+["ne"] = "~=", -- ./compiler/lua54.can:872
+["lt"] = "<", -- ./compiler/lua54.can:872
+["gt"] = ">", -- ./compiler/lua54.can:872
+["le"] = "<=", -- ./compiler/lua54.can:872
+["ge"] = ">=", -- ./compiler/lua54.can:872
+["and"] = "and", -- ./compiler/lua54.can:873
+["or"] = "or", -- ./compiler/lua54.can:873
+["unm"] = "-", -- ./compiler/lua54.can:873
+["len"] = "#", -- ./compiler/lua54.can:873
+["bnot"] = "~", -- ./compiler/lua54.can:873
+["not"] = "not" -- ./compiler/lua54.can:873
+} -- ./compiler/lua54.can:873
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
+end }) -- ./compiler/lua54.can:877
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
+return requireStr .. code -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+local lua54 = _() or lua54 -- ./compiler/lua54.can:889
+package["loaded"]["compiler.lua54"] = lua54 or true -- ./compiler/lua54.can:890
+local function _() -- ./compiler/lua54.can:893
+local function _() -- ./compiler/lua54.can:895
+local util = require("candran.util") -- ./compiler/lua54.can:1
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
+return function(code, ast, options, macros) -- ./compiler/lua54.can:5
+if macros == nil then macros = { -- ./compiler/lua54.can:5
+["functions"] = {}, -- ./compiler/lua54.can:5
+["variables"] = {} -- ./compiler/lua54.can:5
+} end -- ./compiler/lua54.can:5
+local lastInputPos = 1 -- ./compiler/lua54.can:7
+local prevLinePos = 1 -- ./compiler/lua54.can:8
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
+local lastLine = 1 -- ./compiler/lua54.can:10
+local indentLevel = 0 -- ./compiler/lua54.can:13
+local function newline() -- ./compiler/lua54.can:15
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
+if options["mapLines"] then -- ./compiler/lua54.can:17
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:17
-if source and line then -- ./compiler/lua54.can:19
-lastSource = source -- ./compiler/lua54.can:20
-lastLine = tonumber(line) -- ./compiler/lua54.can:21
-else -- ./compiler/lua54.can:21
+") -- ./compiler/lua54.can:19
+if source and line then -- ./compiler/lua54.can:21
+lastSource = source -- ./compiler/lua54.can:22
+lastLine = tonumber(line) -- ./compiler/lua54.can:23
+else -- ./compiler/lua54.can:23
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:23
-lastLine = lastLine + (1) -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-prevLinePos = lastInputPos -- ./compiler/lua54.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
-end -- ./compiler/lua54.can:30
-return r -- ./compiler/lua54.can:32
+") do -- ./compiler/lua54.can:25
+lastLine = lastLine + (1) -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+prevLinePos = lastInputPos -- ./compiler/lua54.can:30
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
 end -- ./compiler/lua54.can:32
-local function indent() -- ./compiler/lua54.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
-return newline() -- ./compiler/lua54.can:37
-end -- ./compiler/lua54.can:37
-local function unindent() -- ./compiler/lua54.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
-return newline() -- ./compiler/lua54.can:42
-end -- ./compiler/lua54.can:42
-local states = { -- ./compiler/lua54.can:47
-["push"] = {}, -- ./compiler/lua54.can:48
-["destructuring"] = {}, -- ./compiler/lua54.can:49
-["scope"] = {} -- ./compiler/lua54.can:50
-} -- ./compiler/lua54.can:50
-local function push(name, state) -- ./compiler/lua54.can:53
-table["insert"](states[name], state) -- ./compiler/lua54.can:54
-return "" -- ./compiler/lua54.can:55
-end -- ./compiler/lua54.can:55
-local function pop(name) -- ./compiler/lua54.can:58
-table["remove"](states[name]) -- ./compiler/lua54.can:59
-return "" -- ./compiler/lua54.can:60
-end -- ./compiler/lua54.can:60
-local function set(name, state) -- ./compiler/lua54.can:63
-states[name][# states[name]] = state -- ./compiler/lua54.can:64
-return "" -- ./compiler/lua54.can:65
-end -- ./compiler/lua54.can:65
-local function peek(name) -- ./compiler/lua54.can:68
-return states[name][# states[name]] -- ./compiler/lua54.can:69
-end -- ./compiler/lua54.can:69
-local function var(name) -- ./compiler/lua54.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
-end -- ./compiler/lua54.can:75
-local function tmp() -- ./compiler/lua54.can:79
-local scope = peek("scope") -- ./compiler/lua54.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
-table["insert"](scope, var) -- ./compiler/lua54.can:82
-return var -- ./compiler/lua54.can:83
-end -- ./compiler/lua54.can:83
-local required = {} -- ./compiler/lua54.can:87
-local requireStr = "" -- ./compiler/lua54.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
-if not required[req] then -- ./compiler/lua54.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
-required[req] = true -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-local loop = { -- ./compiler/lua54.can:99
-"While", -- ./compiler/lua54.can:99
-"Repeat", -- ./compiler/lua54.can:99
-"Fornum", -- ./compiler/lua54.can:99
-"Forin", -- ./compiler/lua54.can:99
-"WhileExpr", -- ./compiler/lua54.can:99
-"RepeatExpr", -- ./compiler/lua54.can:99
-"FornumExpr", -- ./compiler/lua54.can:99
-"ForinExpr" -- ./compiler/lua54.can:99
-} -- ./compiler/lua54.can:99
-local func = { -- ./compiler/lua54.can:100
-"Function", -- ./compiler/lua54.can:100
-"TableCompr", -- ./compiler/lua54.can:100
-"DoExpr", -- ./compiler/lua54.can:100
-"WhileExpr", -- ./compiler/lua54.can:100
-"RepeatExpr", -- ./compiler/lua54.can:100
-"IfExpr", -- ./compiler/lua54.can:100
-"FornumExpr", -- ./compiler/lua54.can:100
-"ForinExpr" -- ./compiler/lua54.can:100
-} -- ./compiler/lua54.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
-local tagsCheck = {} -- ./compiler/lua54.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
-tagsCheck[tag] = true -- ./compiler/lua54.can:107
-end -- ./compiler/lua54.can:107
-local nofollowCheck = {} -- ./compiler/lua54.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
-nofollowCheck[tag] = true -- ./compiler/lua54.can:111
-end -- ./compiler/lua54.can:111
-for _, node in ipairs(list) do -- ./compiler/lua54.can:113
-if type(node) == "table" then -- ./compiler/lua54.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
-return node -- ./compiler/lua54.can:116
-end -- ./compiler/lua54.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
-if r then -- ./compiler/lua54.can:120
-return r -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-return nil -- ./compiler/lua54.can:124
-end -- ./compiler/lua54.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
-local tagsCheck = {} -- ./compiler/lua54.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
-tagsCheck[tag] = true -- ./compiler/lua54.can:132
-end -- ./compiler/lua54.can:132
-local nofollowCheck = {} -- ./compiler/lua54.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
-nofollowCheck[tag] = true -- ./compiler/lua54.can:136
-end -- ./compiler/lua54.can:136
-local found = {} -- ./compiler/lua54.can:138
-for _, node in ipairs(list) do -- ./compiler/lua54.can:139
-if type(node) == "table" then -- ./compiler/lua54.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
-table["insert"](found, n) -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
-table["insert"](found, node) -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-return found -- ./compiler/lua54.can:151
-end -- ./compiler/lua54.can:151
-local function all(list, tags) -- ./compiler/lua54.can:155
-for _, node in ipairs(list) do -- ./compiler/lua54.can:156
-local ok = false -- ./compiler/lua54.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
-if node["tag"] == tag then -- ./compiler/lua54.can:159
-ok = true -- ./compiler/lua54.can:160
-break -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-if not ok then -- ./compiler/lua54.can:164
-return false -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-return true -- ./compiler/lua54.can:168
-end -- ./compiler/lua54.can:168
-local tags -- ./compiler/lua54.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
-end -- ./compiler/lua54.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
-end -- ./compiler/lua54.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
-end -- ./compiler/lua54.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
-end -- ./compiler/lua54.can:186
-local CONTINUE_START = function() -- ./compiler/lua54.can:188
-return "do" .. indent() -- ./compiler/lua54.can:189
+return r -- ./compiler/lua54.can:34
+end -- ./compiler/lua54.can:34
+local function indent() -- ./compiler/lua54.can:37
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
+return newline() -- ./compiler/lua54.can:39
+end -- ./compiler/lua54.can:39
+local function unindent() -- ./compiler/lua54.can:42
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
+return newline() -- ./compiler/lua54.can:44
+end -- ./compiler/lua54.can:44
+local states = { -- ./compiler/lua54.can:49
+["push"] = {}, -- ./compiler/lua54.can:50
+["destructuring"] = {}, -- ./compiler/lua54.can:51
+["scope"] = {}, -- ./compiler/lua54.can:52
+["macroargs"] = {} -- ./compiler/lua54.can:53
+} -- ./compiler/lua54.can:53
+local function push(name, state) -- ./compiler/lua54.can:56
+table["insert"](states[name], state) -- ./compiler/lua54.can:57
+return "" -- ./compiler/lua54.can:58
+end -- ./compiler/lua54.can:58
+local function pop(name) -- ./compiler/lua54.can:61
+table["remove"](states[name]) -- ./compiler/lua54.can:62
+return "" -- ./compiler/lua54.can:63
+end -- ./compiler/lua54.can:63
+local function set(name, state) -- ./compiler/lua54.can:66
+states[name][# states[name]] = state -- ./compiler/lua54.can:67
+return "" -- ./compiler/lua54.can:68
+end -- ./compiler/lua54.can:68
+local function peek(name) -- ./compiler/lua54.can:71
+return states[name][# states[name]] -- ./compiler/lua54.can:72
+end -- ./compiler/lua54.can:72
+local function var(name) -- ./compiler/lua54.can:77
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
+end -- ./compiler/lua54.can:78
+local function tmp() -- ./compiler/lua54.can:82
+local scope = peek("scope") -- ./compiler/lua54.can:83
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
+table["insert"](scope, var) -- ./compiler/lua54.can:85
+return var -- ./compiler/lua54.can:86
+end -- ./compiler/lua54.can:86
+local nomacro = { -- ./compiler/lua54.can:90
+["variables"] = {}, -- ./compiler/lua54.can:90
+["functions"] = {} -- ./compiler/lua54.can:90
+} -- ./compiler/lua54.can:90
+local required = {} -- ./compiler/lua54.can:93
+local requireStr = "" -- ./compiler/lua54.can:94
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
+if not required[req] then -- ./compiler/lua54.can:98
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
+required[req] = true -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+local loop = { -- ./compiler/lua54.can:105
+"While", -- ./compiler/lua54.can:105
+"Repeat", -- ./compiler/lua54.can:105
+"Fornum", -- ./compiler/lua54.can:105
+"Forin", -- ./compiler/lua54.can:105
+"WhileExpr", -- ./compiler/lua54.can:105
+"RepeatExpr", -- ./compiler/lua54.can:105
+"FornumExpr", -- ./compiler/lua54.can:105
+"ForinExpr" -- ./compiler/lua54.can:105
+} -- ./compiler/lua54.can:105
+local func = { -- ./compiler/lua54.can:106
+"Function", -- ./compiler/lua54.can:106
+"TableCompr", -- ./compiler/lua54.can:106
+"DoExpr", -- ./compiler/lua54.can:106
+"WhileExpr", -- ./compiler/lua54.can:106
+"RepeatExpr", -- ./compiler/lua54.can:106
+"IfExpr", -- ./compiler/lua54.can:106
+"FornumExpr", -- ./compiler/lua54.can:106
+"ForinExpr" -- ./compiler/lua54.can:106
+} -- ./compiler/lua54.can:106
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
+local tagsCheck = {} -- ./compiler/lua54.can:111
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
+tagsCheck[tag] = true -- ./compiler/lua54.can:113
+end -- ./compiler/lua54.can:113
+local nofollowCheck = {} -- ./compiler/lua54.can:115
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
+nofollowCheck[tag] = true -- ./compiler/lua54.can:117
+end -- ./compiler/lua54.can:117
+for _, node in ipairs(list) do -- ./compiler/lua54.can:119
+if type(node) == "table" then -- ./compiler/lua54.can:120
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
+return node -- ./compiler/lua54.can:122
+end -- ./compiler/lua54.can:122
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
+if r then -- ./compiler/lua54.can:126
+return r -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+return nil -- ./compiler/lua54.can:130
+end -- ./compiler/lua54.can:130
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
+local tagsCheck = {} -- ./compiler/lua54.can:136
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
+tagsCheck[tag] = true -- ./compiler/lua54.can:138
+end -- ./compiler/lua54.can:138
+local nofollowCheck = {} -- ./compiler/lua54.can:140
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
+nofollowCheck[tag] = true -- ./compiler/lua54.can:142
+end -- ./compiler/lua54.can:142
+local found = {} -- ./compiler/lua54.can:144
+for _, node in ipairs(list) do -- ./compiler/lua54.can:145
+if type(node) == "table" then -- ./compiler/lua54.can:146
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
+table["insert"](found, n) -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
+table["insert"](found, node) -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+return found -- ./compiler/lua54.can:157
+end -- ./compiler/lua54.can:157
+local function all(list, tags) -- ./compiler/lua54.can:161
+for _, node in ipairs(list) do -- ./compiler/lua54.can:162
+local ok = false -- ./compiler/lua54.can:163
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
+if node["tag"] == tag then -- ./compiler/lua54.can:165
+ok = true -- ./compiler/lua54.can:166
+break -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+if not ok then -- ./compiler/lua54.can:170
+return false -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+return true -- ./compiler/lua54.can:174
+end -- ./compiler/lua54.can:174
+local tags -- ./compiler/lua54.can:178
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
+end -- ./compiler/lua54.can:182
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+end -- ./compiler/lua54.can:184
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
 end -- ./compiler/lua54.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
 end -- ./compiler/lua54.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
-local vars = {} -- ./compiler/lua54.can:195
-local values = {} -- ./compiler/lua54.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
-for _, v in ipairs(list) do -- ./compiler/lua54.can:198
-local var, val -- ./compiler/lua54.can:199
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
-var = v -- ./compiler/lua54.can:201
-val = { -- ./compiler/lua54.can:202
-["tag"] = "Index", -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "Id", -- ./compiler/lua54.can:202
-list["id"] -- ./compiler/lua54.can:202
-}, -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "String", -- ./compiler/lua54.can:202
-v[1] -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
-var = v[2] -- ./compiler/lua54.can:204
-val = { -- ./compiler/lua54.can:205
-["tag"] = "Index", -- ./compiler/lua54.can:205
-{ -- ./compiler/lua54.can:205
-["tag"] = "Id", -- ./compiler/lua54.can:205
-list["id"] -- ./compiler/lua54.can:205
-}, -- ./compiler/lua54.can:205
-v[1] -- ./compiler/lua54.can:205
-} -- ./compiler/lua54.can:205
-else -- ./compiler/lua54.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
-end -- ./compiler/lua54.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
-val = { -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["rightOp"], -- ./compiler/lua54.can:210
-var, -- ./compiler/lua54.can:210
-{ -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["leftOp"], -- ./compiler/lua54.can:210
-val, -- ./compiler/lua54.can:210
-var -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
-val = { -- ./compiler/lua54.can:212
-["tag"] = "Op", -- ./compiler/lua54.can:212
-destructured["rightOp"], -- ./compiler/lua54.can:212
-var, -- ./compiler/lua54.can:212
-val -- ./compiler/lua54.can:212
-} -- ./compiler/lua54.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
-val = { -- ./compiler/lua54.can:214
-["tag"] = "Op", -- ./compiler/lua54.can:214
-destructured["leftOp"], -- ./compiler/lua54.can:214
-val, -- ./compiler/lua54.can:214
-var -- ./compiler/lua54.can:214
-} -- ./compiler/lua54.can:214
-end -- ./compiler/lua54.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-if # vars > 0 then -- ./compiler/lua54.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
-if newlineAfter then -- ./compiler/lua54.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
-else -- ./compiler/lua54.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
-end -- ./compiler/lua54.can:225
-else -- ./compiler/lua54.can:225
-return "" -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-tags = setmetatable({ -- ./compiler/lua54.can:233
-["Block"] = function(t) -- ./compiler/lua54.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
-hasPush = false -- ./compiler/lua54.can:239
-end -- ./compiler/lua54.can:239
-local r = push("scope", {}) -- ./compiler/lua54.can:241
-if hasPush then -- ./compiler/lua54.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
-end -- ./compiler/lua54.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
-end -- ./compiler/lua54.can:246
-if t[# t] then -- ./compiler/lua54.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+local CONTINUE_START = function() -- ./compiler/lua54.can:194
+return "do" .. indent() -- ./compiler/lua54.can:195
+end -- ./compiler/lua54.can:195
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
+end -- ./compiler/lua54.can:198
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
+local vars = {} -- ./compiler/lua54.can:201
+local values = {} -- ./compiler/lua54.can:202
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
+for _, v in ipairs(list) do -- ./compiler/lua54.can:204
+local var, val -- ./compiler/lua54.can:205
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
+var = v -- ./compiler/lua54.can:207
+val = { -- ./compiler/lua54.can:208
+["tag"] = "Index", -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "Id", -- ./compiler/lua54.can:208
+list["id"] -- ./compiler/lua54.can:208
+}, -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "String", -- ./compiler/lua54.can:208
+v[1] -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
+var = v[2] -- ./compiler/lua54.can:210
+val = { -- ./compiler/lua54.can:211
+["tag"] = "Index", -- ./compiler/lua54.can:211
+{ -- ./compiler/lua54.can:211
+["tag"] = "Id", -- ./compiler/lua54.can:211
+list["id"] -- ./compiler/lua54.can:211
+}, -- ./compiler/lua54.can:211
+v[1] -- ./compiler/lua54.can:211
+} -- ./compiler/lua54.can:211
+else -- ./compiler/lua54.can:211
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
+end -- ./compiler/lua54.can:213
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
+val = { -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["rightOp"], -- ./compiler/lua54.can:216
+var, -- ./compiler/lua54.can:216
+{ -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["leftOp"], -- ./compiler/lua54.can:216
+val, -- ./compiler/lua54.can:216
+var -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+val = { -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["rightOp"], -- ./compiler/lua54.can:218
+var, -- ./compiler/lua54.can:218
+val -- ./compiler/lua54.can:218
+} -- ./compiler/lua54.can:218
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+val = { -- ./compiler/lua54.can:220
+["tag"] = "Op", -- ./compiler/lua54.can:220
+destructured["leftOp"], -- ./compiler/lua54.can:220
+val, -- ./compiler/lua54.can:220
+var -- ./compiler/lua54.can:220
+} -- ./compiler/lua54.can:220
+end -- ./compiler/lua54.can:220
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+if # vars > 0 then -- ./compiler/lua54.can:226
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
+if newlineAfter then -- ./compiler/lua54.can:228
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
+else -- ./compiler/lua54.can:229
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
+end -- ./compiler/lua54.can:231
+else -- ./compiler/lua54.can:231
+return "" -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+tags = setmetatable({ -- ./compiler/lua54.can:239
+["Block"] = function(t) -- ./compiler/lua54.can:241
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
+hasPush = false -- ./compiler/lua54.can:245
+end -- ./compiler/lua54.can:245
+local r = push("scope", {}) -- ./compiler/lua54.can:247
+if hasPush then -- ./compiler/lua54.can:248
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
 end -- ./compiler/lua54.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
 end -- ./compiler/lua54.can:252
-return r .. pop("scope") -- ./compiler/lua54.can:254
-end, -- ./compiler/lua54.can:254
-["Do"] = function(t) -- ./compiler/lua54.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
-end, -- ./compiler/lua54.can:261
-["Set"] = function(t) -- ./compiler/lua54.can:264
-local expr = t[# t] -- ./compiler/lua54.can:266
-local vars, values = {}, {} -- ./compiler/lua54.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
-else -- ./compiler/lua54.can:272
-table["insert"](vars, n) -- ./compiler/lua54.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
-local r = "" -- ./compiler/lua54.can:280
-if # vars > 0 then -- ./compiler/lua54.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
-end -- ./compiler/lua54.can:282
-if # destructuringVars > 0 then -- ./compiler/lua54.can:284
-local destructured = {} -- ./compiler/lua54.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
-end -- ./compiler/lua54.can:287
-return r -- ./compiler/lua54.can:289
-elseif # t == 4 then -- ./compiler/lua54.can:290
-if t[3] == "=" then -- ./compiler/lua54.can:291
-local r = "" -- ./compiler/lua54.can:292
-if # vars > 0 then -- ./compiler/lua54.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
-t[2], -- ./compiler/lua54.can:294
-vars[1], -- ./compiler/lua54.can:294
-{ -- ./compiler/lua54.can:294
-["tag"] = "Paren", -- ./compiler/lua54.can:294
-values[1] -- ./compiler/lua54.can:294
-} -- ./compiler/lua54.can:294
-}, "Op")) -- ./compiler/lua54.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
-t[2], -- ./compiler/lua54.can:296
-vars[i], -- ./compiler/lua54.can:296
-{ -- ./compiler/lua54.can:296
-["tag"] = "Paren", -- ./compiler/lua54.can:296
-values[i] -- ./compiler/lua54.can:296
-} -- ./compiler/lua54.can:296
-}, "Op")) -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-if # destructuringVars > 0 then -- ./compiler/lua54.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+if t[# t] then -- ./compiler/lua54.can:254
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
+end -- ./compiler/lua54.can:255
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
+end -- ./compiler/lua54.can:258
+return r .. pop("scope") -- ./compiler/lua54.can:260
+end, -- ./compiler/lua54.can:260
+["Do"] = function(t) -- ./compiler/lua54.can:266
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
+end, -- ./compiler/lua54.can:267
+["Set"] = function(t) -- ./compiler/lua54.can:270
+local expr = t[# t] -- ./compiler/lua54.can:272
+local vars, values = {}, {} -- ./compiler/lua54.can:273
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
+else -- ./compiler/lua54.can:278
+table["insert"](vars, n) -- ./compiler/lua54.can:280
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
+local r = "" -- ./compiler/lua54.can:286
+if # vars > 0 then -- ./compiler/lua54.can:287
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
+end -- ./compiler/lua54.can:288
+if # destructuringVars > 0 then -- ./compiler/lua54.can:290
+local destructured = {} -- ./compiler/lua54.can:291
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
+end -- ./compiler/lua54.can:293
+return r -- ./compiler/lua54.can:295
+elseif # t == 4 then -- ./compiler/lua54.can:296
+if t[3] == "=" then -- ./compiler/lua54.can:297
+local r = "" -- ./compiler/lua54.can:298
+if # vars > 0 then -- ./compiler/lua54.can:299
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
+t[2], -- ./compiler/lua54.can:300
+vars[1], -- ./compiler/lua54.can:300
+{ -- ./compiler/lua54.can:300
+["tag"] = "Paren", -- ./compiler/lua54.can:300
+values[1] -- ./compiler/lua54.can:300
+} -- ./compiler/lua54.can:300
+}, "Op")) -- ./compiler/lua54.can:300
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+t[2], -- ./compiler/lua54.can:302
+vars[i], -- ./compiler/lua54.can:302
+{ -- ./compiler/lua54.can:302
+["tag"] = "Paren", -- ./compiler/lua54.can:302
+values[i] -- ./compiler/lua54.can:302
+} -- ./compiler/lua54.can:302
+}, "Op")) -- ./compiler/lua54.can:302
 end -- ./compiler/lua54.can:302
-return r -- ./compiler/lua54.can:304
-else -- ./compiler/lua54.can:304
-local r = "" -- ./compiler/lua54.can:306
-if # vars > 0 then -- ./compiler/lua54.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
-t[3], -- ./compiler/lua54.can:308
-{ -- ./compiler/lua54.can:308
-["tag"] = "Paren", -- ./compiler/lua54.can:308
-values[1] -- ./compiler/lua54.can:308
-}, -- ./compiler/lua54.can:308
-vars[1] -- ./compiler/lua54.can:308
-}, "Op")) -- ./compiler/lua54.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
-t[3], -- ./compiler/lua54.can:310
-{ -- ./compiler/lua54.can:310
-["tag"] = "Paren", -- ./compiler/lua54.can:310
-values[i] -- ./compiler/lua54.can:310
-}, -- ./compiler/lua54.can:310
-vars[i] -- ./compiler/lua54.can:310
-}, "Op")) -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-if # destructuringVars > 0 then -- ./compiler/lua54.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:302
+if # destructuringVars > 0 then -- ./compiler/lua54.can:305
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
+end -- ./compiler/lua54.can:308
+return r -- ./compiler/lua54.can:310
+else -- ./compiler/lua54.can:310
+local r = "" -- ./compiler/lua54.can:312
+if # vars > 0 then -- ./compiler/lua54.can:313
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
+t[3], -- ./compiler/lua54.can:314
+{ -- ./compiler/lua54.can:314
+["tag"] = "Paren", -- ./compiler/lua54.can:314
+values[1] -- ./compiler/lua54.can:314
+}, -- ./compiler/lua54.can:314
+vars[1] -- ./compiler/lua54.can:314
+}, "Op")) -- ./compiler/lua54.can:314
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+t[3], -- ./compiler/lua54.can:316
+{ -- ./compiler/lua54.can:316
+["tag"] = "Paren", -- ./compiler/lua54.can:316
+values[i] -- ./compiler/lua54.can:316
+}, -- ./compiler/lua54.can:316
+vars[i] -- ./compiler/lua54.can:316
+}, "Op")) -- ./compiler/lua54.can:316
 end -- ./compiler/lua54.can:316
-return r -- ./compiler/lua54.can:318
-end -- ./compiler/lua54.can:318
-else -- ./compiler/lua54.can:318
-local r = "" -- ./compiler/lua54.can:321
-if # vars > 0 then -- ./compiler/lua54.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
-t[2], -- ./compiler/lua54.can:323
-vars[1], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Op", -- ./compiler/lua54.can:323
-t[4], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Paren", -- ./compiler/lua54.can:323
-values[1] -- ./compiler/lua54.can:323
-}, -- ./compiler/lua54.can:323
-vars[1] -- ./compiler/lua54.can:323
-} -- ./compiler/lua54.can:323
-}, "Op")) -- ./compiler/lua54.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
-t[2], -- ./compiler/lua54.can:325
-vars[i], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Op", -- ./compiler/lua54.can:325
-t[4], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Paren", -- ./compiler/lua54.can:325
-values[i] -- ./compiler/lua54.can:325
-}, -- ./compiler/lua54.can:325
-vars[i] -- ./compiler/lua54.can:325
-} -- ./compiler/lua54.can:325
-}, "Op")) -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-if # destructuringVars > 0 then -- ./compiler/lua54.can:328
-local destructured = { -- ./compiler/lua54.can:329
-["rightOp"] = t[2], -- ./compiler/lua54.can:329
-["leftOp"] = t[4] -- ./compiler/lua54.can:329
+end -- ./compiler/lua54.can:316
+if # destructuringVars > 0 then -- ./compiler/lua54.can:319
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
+end -- ./compiler/lua54.can:322
+return r -- ./compiler/lua54.can:324
+end -- ./compiler/lua54.can:324
+else -- ./compiler/lua54.can:324
+local r = "" -- ./compiler/lua54.can:327
+if # vars > 0 then -- ./compiler/lua54.can:328
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
+t[2], -- ./compiler/lua54.can:329
+vars[1], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Op", -- ./compiler/lua54.can:329
+t[4], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Paren", -- ./compiler/lua54.can:329
+values[1] -- ./compiler/lua54.can:329
+}, -- ./compiler/lua54.can:329
+vars[1] -- ./compiler/lua54.can:329
 } -- ./compiler/lua54.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:329
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+t[2], -- ./compiler/lua54.can:331
+vars[i], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Op", -- ./compiler/lua54.can:331
+t[4], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Paren", -- ./compiler/lua54.can:331
+values[i] -- ./compiler/lua54.can:331
+}, -- ./compiler/lua54.can:331
+vars[i] -- ./compiler/lua54.can:331
+} -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:331
 end -- ./compiler/lua54.can:331
-return r -- ./compiler/lua54.can:333
-end -- ./compiler/lua54.can:333
-end, -- ./compiler/lua54.can:333
-["While"] = function(t) -- ./compiler/lua54.can:337
-local r = "" -- ./compiler/lua54.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
-if # lets > 0 then -- ./compiler/lua54.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
-if # lets > 0 then -- ./compiler/lua54.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
-end -- ./compiler/lua54.can:349
-if hasContinue then -- ./compiler/lua54.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
-end -- ./compiler/lua54.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
-if hasContinue then -- ./compiler/lua54.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
-end -- ./compiler/lua54.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
-if # lets > 0 then -- ./compiler/lua54.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
-end -- ./compiler/lua54.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
-end -- ./compiler/lua54.can:363
-return r -- ./compiler/lua54.can:365
-end, -- ./compiler/lua54.can:365
-["Repeat"] = function(t) -- ./compiler/lua54.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
-local r = "repeat" .. indent() -- ./compiler/lua54.can:370
-if hasContinue then -- ./compiler/lua54.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
-end -- ./compiler/lua54.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
-if hasContinue then -- ./compiler/lua54.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
-end -- ./compiler/lua54.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
-return r -- ./compiler/lua54.can:379
-end, -- ./compiler/lua54.can:379
-["If"] = function(t) -- ./compiler/lua54.can:382
-local r = "" -- ./compiler/lua54.can:383
-local toClose = 0 -- ./compiler/lua54.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
-if # lets > 0 then -- ./compiler/lua54.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
-toClose = toClose + (1) -- ./compiler/lua54.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
-if # lets > 0 then -- ./compiler/lua54.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
-toClose = toClose + (1) -- ./compiler/lua54.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
-end -- ./compiler/lua54.can:400
-else -- ./compiler/lua54.can:400
-r = r .. ("else") -- ./compiler/lua54.can:403
-end -- ./compiler/lua54.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
-end -- ./compiler/lua54.can:405
-if # t % 2 == 1 then -- ./compiler/lua54.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
-end -- ./compiler/lua54.can:408
-r = r .. ("end") -- ./compiler/lua54.can:410
-for i = 1, toClose do -- ./compiler/lua54.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
-end -- ./compiler/lua54.can:412
-return r -- ./compiler/lua54.can:414
-end, -- ./compiler/lua54.can:414
-["Fornum"] = function(t) -- ./compiler/lua54.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
-if # t == 5 then -- ./compiler/lua54.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
-if hasContinue then -- ./compiler/lua54.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
-end -- ./compiler/lua54.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
-if hasContinue then -- ./compiler/lua54.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
-end -- ./compiler/lua54.can:427
-return r .. unindent() .. "end" -- ./compiler/lua54.can:429
-else -- ./compiler/lua54.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
-if hasContinue then -- ./compiler/lua54.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
-end -- ./compiler/lua54.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
-if hasContinue then -- ./compiler/lua54.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
-end -- ./compiler/lua54.can:438
-return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:331
+if # destructuringVars > 0 then -- ./compiler/lua54.can:334
+local destructured = { -- ./compiler/lua54.can:335
+["rightOp"] = t[2], -- ./compiler/lua54.can:335
+["leftOp"] = t[4] -- ./compiler/lua54.can:335
+} -- ./compiler/lua54.can:335
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
+end -- ./compiler/lua54.can:337
+return r -- ./compiler/lua54.can:339
+end -- ./compiler/lua54.can:339
+end, -- ./compiler/lua54.can:339
+["While"] = function(t) -- ./compiler/lua54.can:343
+local r = "" -- ./compiler/lua54.can:344
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
+if # lets > 0 then -- ./compiler/lua54.can:347
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
+if # lets > 0 then -- ./compiler/lua54.can:354
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
+end -- ./compiler/lua54.can:355
+if hasContinue then -- ./compiler/lua54.can:357
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
+end -- ./compiler/lua54.can:358
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
+if hasContinue then -- ./compiler/lua54.can:361
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
+end -- ./compiler/lua54.can:362
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
+if # lets > 0 then -- ./compiler/lua54.can:365
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
+end -- ./compiler/lua54.can:367
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+end -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:371
+end, -- ./compiler/lua54.can:371
+["Repeat"] = function(t) -- ./compiler/lua54.can:374
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
+local r = "repeat" .. indent() -- ./compiler/lua54.can:376
+if hasContinue then -- ./compiler/lua54.can:377
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
+end -- ./compiler/lua54.can:378
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
+if hasContinue then -- ./compiler/lua54.can:381
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
+end -- ./compiler/lua54.can:382
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
+return r -- ./compiler/lua54.can:385
+end, -- ./compiler/lua54.can:385
+["If"] = function(t) -- ./compiler/lua54.can:388
+local r = "" -- ./compiler/lua54.can:389
+local toClose = 0 -- ./compiler/lua54.can:390
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
+if # lets > 0 then -- ./compiler/lua54.can:392
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
+toClose = toClose + (1) -- ./compiler/lua54.can:394
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
+if # lets > 0 then -- ./compiler/lua54.can:402
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
+toClose = toClose + (1) -- ./compiler/lua54.can:404
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
+end -- ./compiler/lua54.can:406
+else -- ./compiler/lua54.can:406
+r = r .. ("else") -- ./compiler/lua54.can:409
+end -- ./compiler/lua54.can:409
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+end -- ./compiler/lua54.can:411
+if # t % 2 == 1 then -- ./compiler/lua54.can:413
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
+end -- ./compiler/lua54.can:414
+r = r .. ("end") -- ./compiler/lua54.can:416
+for i = 1, toClose do -- ./compiler/lua54.can:417
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
+end -- ./compiler/lua54.can:418
+return r -- ./compiler/lua54.can:420
+end, -- ./compiler/lua54.can:420
+["Fornum"] = function(t) -- ./compiler/lua54.can:423
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
+if # t == 5 then -- ./compiler/lua54.can:425
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
+if hasContinue then -- ./compiler/lua54.can:428
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
+end -- ./compiler/lua54.can:429
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
+if hasContinue then -- ./compiler/lua54.can:432
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
+end -- ./compiler/lua54.can:433
+return r .. unindent() .. "end" -- ./compiler/lua54.can:435
+else -- ./compiler/lua54.can:435
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
+if hasContinue then -- ./compiler/lua54.can:439
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
 end -- ./compiler/lua54.can:440
-end, -- ./compiler/lua54.can:440
-["Forin"] = function(t) -- ./compiler/lua54.can:444
-local destructured = {} -- ./compiler/lua54.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
-if hasContinue then -- ./compiler/lua54.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
-end -- ./compiler/lua54.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
-if hasContinue then -- ./compiler/lua54.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
-end -- ./compiler/lua54.can:453
-return r .. unindent() .. "end" -- ./compiler/lua54.can:455
-end, -- ./compiler/lua54.can:455
-["Local"] = function(t) -- ./compiler/lua54.can:458
-local destructured = {} -- ./compiler/lua54.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
-if t[2][1] then -- ./compiler/lua54.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
-end -- ./compiler/lua54.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
-end, -- ./compiler/lua54.can:464
-["Let"] = function(t) -- ./compiler/lua54.can:467
-local destructured = {} -- ./compiler/lua54.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
-local r = "local " .. nameList -- ./compiler/lua54.can:470
-if t[2][1] then -- ./compiler/lua54.can:471
-if all(t[2], { -- ./compiler/lua54.can:472
-"Nil", -- ./compiler/lua54.can:472
-"Dots", -- ./compiler/lua54.can:472
-"Boolean", -- ./compiler/lua54.can:472
-"Number", -- ./compiler/lua54.can:472
-"String" -- ./compiler/lua54.can:472
-}) then -- ./compiler/lua54.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
-else -- ./compiler/lua54.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
-end, -- ./compiler/lua54.can:478
-["Localrec"] = function(t) -- ./compiler/lua54.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
-end, -- ./compiler/lua54.can:482
-["Goto"] = function(t) -- ./compiler/lua54.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
-end, -- ./compiler/lua54.can:486
-["Label"] = function(t) -- ./compiler/lua54.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
-end, -- ./compiler/lua54.can:490
-["Return"] = function(t) -- ./compiler/lua54.can:493
-local push = peek("push") -- ./compiler/lua54.can:494
-if push then -- ./compiler/lua54.can:495
-local r = "" -- ./compiler/lua54.can:496
-for _, val in ipairs(t) do -- ./compiler/lua54.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
-end -- ./compiler/lua54.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
-else -- ./compiler/lua54.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
-end -- ./compiler/lua54.can:502
-end, -- ./compiler/lua54.can:502
-["Push"] = function(t) -- ./compiler/lua54.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
-r = "" -- ./compiler/lua54.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
-end -- ./compiler/lua54.can:510
-if t[# t] then -- ./compiler/lua54.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
-else -- ./compiler/lua54.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
+if hasContinue then -- ./compiler/lua54.can:443
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
+end -- ./compiler/lua54.can:444
+return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+end -- ./compiler/lua54.can:446
+end, -- ./compiler/lua54.can:446
+["Forin"] = function(t) -- ./compiler/lua54.can:450
+local destructured = {} -- ./compiler/lua54.can:451
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
+if hasContinue then -- ./compiler/lua54.can:454
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
+end -- ./compiler/lua54.can:455
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
+if hasContinue then -- ./compiler/lua54.can:458
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
+end -- ./compiler/lua54.can:459
+return r .. unindent() .. "end" -- ./compiler/lua54.can:461
+end, -- ./compiler/lua54.can:461
+["Local"] = function(t) -- ./compiler/lua54.can:464
+local destructured = {} -- ./compiler/lua54.can:465
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
+if t[2][1] then -- ./compiler/lua54.can:467
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
+end -- ./compiler/lua54.can:468
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
+end, -- ./compiler/lua54.can:470
+["Let"] = function(t) -- ./compiler/lua54.can:473
+local destructured = {} -- ./compiler/lua54.can:474
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
+local r = "local " .. nameList -- ./compiler/lua54.can:476
+if t[2][1] then -- ./compiler/lua54.can:477
+if all(t[2], { -- ./compiler/lua54.can:478
+"Nil", -- ./compiler/lua54.can:478
+"Dots", -- ./compiler/lua54.can:478
+"Boolean", -- ./compiler/lua54.can:478
+"Number", -- ./compiler/lua54.can:478
+"String" -- ./compiler/lua54.can:478
+}) then -- ./compiler/lua54.can:478
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
+else -- ./compiler/lua54.can:479
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
+end, -- ./compiler/lua54.can:484
+["Localrec"] = function(t) -- ./compiler/lua54.can:487
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
+end, -- ./compiler/lua54.can:488
+["Goto"] = function(t) -- ./compiler/lua54.can:491
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
+end, -- ./compiler/lua54.can:492
+["Label"] = function(t) -- ./compiler/lua54.can:495
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
+end, -- ./compiler/lua54.can:496
+["Return"] = function(t) -- ./compiler/lua54.can:499
+local push = peek("push") -- ./compiler/lua54.can:500
+if push then -- ./compiler/lua54.can:501
+local r = "" -- ./compiler/lua54.can:502
+for _, val in ipairs(t) do -- ./compiler/lua54.can:503
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
+end -- ./compiler/lua54.can:504
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
+else -- ./compiler/lua54.can:506
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
+end -- ./compiler/lua54.can:508
+end, -- ./compiler/lua54.can:508
+["Push"] = function(t) -- ./compiler/lua54.can:512
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
+r = "" -- ./compiler/lua54.can:514
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
 end -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-return r -- ./compiler/lua54.can:519
-end, -- ./compiler/lua54.can:519
-["Break"] = function() -- ./compiler/lua54.can:522
-return "break" -- ./compiler/lua54.can:523
-end, -- ./compiler/lua54.can:523
-["Continue"] = function() -- ./compiler/lua54.can:526
-return "goto " .. var("continue") -- ./compiler/lua54.can:527
-end, -- ./compiler/lua54.can:527
-["Nil"] = function() -- ./compiler/lua54.can:534
-return "nil" -- ./compiler/lua54.can:535
-end, -- ./compiler/lua54.can:535
-["Dots"] = function() -- ./compiler/lua54.can:538
-return "..." -- ./compiler/lua54.can:539
-end, -- ./compiler/lua54.can:539
-["Boolean"] = function(t) -- ./compiler/lua54.can:542
-return tostring(t[1]) -- ./compiler/lua54.can:543
-end, -- ./compiler/lua54.can:543
-["Number"] = function(t) -- ./compiler/lua54.can:546
-return tostring(t[1]) -- ./compiler/lua54.can:547
-end, -- ./compiler/lua54.can:547
-["String"] = function(t) -- ./compiler/lua54.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
-end, -- ./compiler/lua54.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
-local r = "(" -- ./compiler/lua54.can:555
-local decl = {} -- ./compiler/lua54.can:556
-if t[1][1] then -- ./compiler/lua54.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
-r = r .. (id) -- ./compiler/lua54.can:563
-else -- ./compiler/lua54.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
-end -- ./compiler/lua54.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
-r = r .. (", " .. id) -- ./compiler/lua54.can:573
-else -- ./compiler/lua54.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
-r = r .. (d .. newline()) -- ./compiler/lua54.can:581
-end -- ./compiler/lua54.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
-end -- ./compiler/lua54.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
-if hasPush then -- ./compiler/lua54.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
-else -- ./compiler/lua54.can:588
-push("push", false) -- ./compiler/lua54.can:590
-end -- ./compiler/lua54.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
-end -- ./compiler/lua54.can:594
-pop("push") -- ./compiler/lua54.can:596
-return r .. unindent() .. "end" -- ./compiler/lua54.can:597
-end, -- ./compiler/lua54.can:597
-["Function"] = function(t) -- ./compiler/lua54.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
-end, -- ./compiler/lua54.can:600
-["Pair"] = function(t) -- ./compiler/lua54.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
-end, -- ./compiler/lua54.can:604
-["Table"] = function(t) -- ./compiler/lua54.can:606
-if # t == 0 then -- ./compiler/lua54.can:607
-return "{}" -- ./compiler/lua54.can:608
-elseif # t == 1 then -- ./compiler/lua54.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
-else -- ./compiler/lua54.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
-end -- ./compiler/lua54.can:612
-end, -- ./compiler/lua54.can:612
-["TableCompr"] = function(t) -- ./compiler/lua54.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
-end, -- ./compiler/lua54.can:617
-["Op"] = function(t) -- ./compiler/lua54.can:620
-local r -- ./compiler/lua54.can:621
-if # t == 2 then -- ./compiler/lua54.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+if t[# t] then -- ./compiler/lua54.can:518
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
+else -- ./compiler/lua54.can:520
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+return r -- ./compiler/lua54.can:525
+end, -- ./compiler/lua54.can:525
+["Break"] = function() -- ./compiler/lua54.can:528
+return "break" -- ./compiler/lua54.can:529
+end, -- ./compiler/lua54.can:529
+["Continue"] = function() -- ./compiler/lua54.can:532
+return "goto " .. var("continue") -- ./compiler/lua54.can:533
+end, -- ./compiler/lua54.can:533
+["Nil"] = function() -- ./compiler/lua54.can:540
+return "nil" -- ./compiler/lua54.can:541
+end, -- ./compiler/lua54.can:541
+["Dots"] = function() -- ./compiler/lua54.can:544
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
+return r -- ./compiler/lua54.can:550
+else -- ./compiler/lua54.can:550
+return "..." -- ./compiler/lua54.can:552
+end -- ./compiler/lua54.can:552
+end, -- ./compiler/lua54.can:552
+["Boolean"] = function(t) -- ./compiler/lua54.can:556
+return tostring(t[1]) -- ./compiler/lua54.can:557
+end, -- ./compiler/lua54.can:557
+["Number"] = function(t) -- ./compiler/lua54.can:560
+return tostring(t[1]) -- ./compiler/lua54.can:561
+end, -- ./compiler/lua54.can:561
+["String"] = function(t) -- ./compiler/lua54.can:564
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
+end, -- ./compiler/lua54.can:565
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
+local r = "(" -- ./compiler/lua54.can:569
+local decl = {} -- ./compiler/lua54.can:570
+if t[1][1] then -- ./compiler/lua54.can:571
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
+r = r .. (id) -- ./compiler/lua54.can:577
+else -- ./compiler/lua54.can:577
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
+end -- ./compiler/lua54.can:579
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
+r = r .. (", " .. id) -- ./compiler/lua54.can:587
+else -- ./compiler/lua54.can:587
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
+r = r .. (d .. newline()) -- ./compiler/lua54.can:595
+end -- ./compiler/lua54.can:595
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
+end -- ./compiler/lua54.can:598
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
+if hasPush then -- ./compiler/lua54.can:601
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
+else -- ./compiler/lua54.can:602
+push("push", false) -- ./compiler/lua54.can:604
+end -- ./compiler/lua54.can:604
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
+end -- ./compiler/lua54.can:608
+pop("push") -- ./compiler/lua54.can:610
+return r .. unindent() .. "end" -- ./compiler/lua54.can:611
+end, -- ./compiler/lua54.can:611
+["Function"] = function(t) -- ./compiler/lua54.can:613
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
+end, -- ./compiler/lua54.can:614
+["Pair"] = function(t) -- ./compiler/lua54.can:617
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
+end, -- ./compiler/lua54.can:618
+["Table"] = function(t) -- ./compiler/lua54.can:620
+if # t == 0 then -- ./compiler/lua54.can:621
+return "{}" -- ./compiler/lua54.can:622
+elseif # t == 1 then -- ./compiler/lua54.can:623
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
 else -- ./compiler/lua54.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
 end -- ./compiler/lua54.can:626
-else -- ./compiler/lua54.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
-else -- ./compiler/lua54.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-return r -- ./compiler/lua54.can:635
-end, -- ./compiler/lua54.can:635
-["Paren"] = function(t) -- ./compiler/lua54.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
-end, -- ./compiler/lua54.can:639
-["MethodStub"] = function(t) -- ./compiler/lua54.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
-end, -- ./compiler/lua54.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
-end, -- ./compiler/lua54.can:658
-["LetExpr"] = function(t) -- ./compiler/lua54.can:665
-return lua(t[1][1]) -- ./compiler/lua54.can:666
-end, -- ./compiler/lua54.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
-local r = "(function()" .. indent() -- ./compiler/lua54.can:672
-if hasPush then -- ./compiler/lua54.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
-else -- ./compiler/lua54.can:674
-push("push", false) -- ./compiler/lua54.can:676
-end -- ./compiler/lua54.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
-if hasPush then -- ./compiler/lua54.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
-end -- ./compiler/lua54.can:680
-pop("push") -- ./compiler/lua54.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
-return r -- ./compiler/lua54.can:684
-end, -- ./compiler/lua54.can:684
-["DoExpr"] = function(t) -- ./compiler/lua54.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
-end -- ./compiler/lua54.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
-end, -- ./compiler/lua54.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
-end, -- ./compiler/lua54.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
-end, -- ./compiler/lua54.can:699
-["IfExpr"] = function(t) -- ./compiler/lua54.can:702
-for i = 2, # t do -- ./compiler/lua54.can:703
-local block = t[i] -- ./compiler/lua54.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:626
+["TableCompr"] = function(t) -- ./compiler/lua54.can:630
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
+end, -- ./compiler/lua54.can:631
+["Op"] = function(t) -- ./compiler/lua54.can:634
+local r -- ./compiler/lua54.can:635
+if # t == 2 then -- ./compiler/lua54.can:636
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
+else -- ./compiler/lua54.can:638
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
+end -- ./compiler/lua54.can:640
+else -- ./compiler/lua54.can:640
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
+else -- ./compiler/lua54.can:644
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+return r -- ./compiler/lua54.can:649
+end, -- ./compiler/lua54.can:649
+["Paren"] = function(t) -- ./compiler/lua54.can:652
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
+end, -- ./compiler/lua54.can:653
+["MethodStub"] = function(t) -- ./compiler/lua54.can:656
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
+end, -- ./compiler/lua54.can:662
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
+end, -- ./compiler/lua54.can:672
+["LetExpr"] = function(t) -- ./compiler/lua54.can:679
+return lua(t[1][1]) -- ./compiler/lua54.can:680
+end, -- ./compiler/lua54.can:680
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
+local r = "(function()" .. indent() -- ./compiler/lua54.can:686
+if hasPush then -- ./compiler/lua54.can:687
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
+else -- ./compiler/lua54.can:688
+push("push", false) -- ./compiler/lua54.can:690
+end -- ./compiler/lua54.can:690
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
+if hasPush then -- ./compiler/lua54.can:693
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
+end -- ./compiler/lua54.can:694
+pop("push") -- ./compiler/lua54.can:696
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
+return r -- ./compiler/lua54.can:698
+end, -- ./compiler/lua54.can:698
+["DoExpr"] = function(t) -- ./compiler/lua54.can:701
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
+end -- ./compiler/lua54.can:703
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
+end, -- ./compiler/lua54.can:705
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
 end, -- ./compiler/lua54.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
 end, -- ./compiler/lua54.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
-end, -- ./compiler/lua54.can:717
-["Call"] = function(t) -- ./compiler/lua54.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
-else -- ./compiler/lua54.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
-end -- ./compiler/lua54.can:730
-else -- ./compiler/lua54.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
-end -- ./compiler/lua54.can:733
-end, -- ./compiler/lua54.can:733
-["SafeCall"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
-else -- ./compiler/lua54.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
-end -- ./compiler/lua54.can:741
-end, -- ./compiler/lua54.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
-if start == nil then start = 1 end -- ./compiler/lua54.can:746
-local r -- ./compiler/lua54.can:747
-if t[start] then -- ./compiler/lua54.can:748
-r = lua(t[start]) -- ./compiler/lua54.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
-end -- ./compiler/lua54.can:751
+["IfExpr"] = function(t) -- ./compiler/lua54.can:716
+for i = 2, # t do -- ./compiler/lua54.can:717
+local block = t[i] -- ./compiler/lua54.can:718
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
+end, -- ./compiler/lua54.can:723
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
+end, -- ./compiler/lua54.can:727
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
+end, -- ./compiler/lua54.can:731
+["Call"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
+local replacement = macro["replacement"] -- ./compiler/lua54.can:742
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
+macroargs["..."] = (function() -- ./compiler/lua54.can:746
+local self = {} -- ./compiler/lua54.can:746
+for j = i + 1, # t do -- ./compiler/lua54.can:746
+self[#self+1] = t[j] -- ./compiler/lua54.can:746
+end -- ./compiler/lua54.can:746
+return self -- ./compiler/lua54.can:746
+end)() -- ./compiler/lua54.can:746
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
+if t[i + 1] == nil then -- ./compiler/lua54.can:748
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
+end -- ./compiler/lua54.can:749
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
 else -- ./compiler/lua54.can:751
-r = "" -- ./compiler/lua54.can:754
-end -- ./compiler/lua54.can:754
-return r -- ./compiler/lua54.can:756
-end, -- ./compiler/lua54.can:756
-["Id"] = function(t) -- ./compiler/lua54.can:759
-return t[1] -- ./compiler/lua54.can:760
-end, -- ./compiler/lua54.can:760
-["AttributeId"] = function(t) -- ./compiler/lua54.can:763
-if t[2] then -- ./compiler/lua54.can:764
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
-else -- ./compiler/lua54.can:765
-return t[1] -- ./compiler/lua54.can:767
-end -- ./compiler/lua54.can:767
-end, -- ./compiler/lua54.can:767
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
-if t["id"] then -- ./compiler/lua54.can:772
-return t["id"] -- ./compiler/lua54.can:773
-else -- ./compiler/lua54.can:773
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
-for j = 1, # t, 1 do -- ./compiler/lua54.can:777
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
-end -- ./compiler/lua54.can:778
-table["insert"](d, vars) -- ./compiler/lua54.can:780
-t["id"] = vars["id"] -- ./compiler/lua54.can:781
-return vars["id"] -- ./compiler/lua54.can:782
-end -- ./compiler/lua54.can:782
-end, -- ./compiler/lua54.can:782
-["Index"] = function(t) -- ./compiler/lua54.can:786
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
-else -- ./compiler/lua54.can:788
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+push("macroargs", macroargs) -- ./compiler/lua54.can:756
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
+local r = lua(replacement) -- ./compiler/lua54.can:758
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
+pop("macroargs") -- ./compiler/lua54.can:760
+return r -- ./compiler/lua54.can:761
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
+else -- ./compiler/lua54.can:764
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
+end -- ./compiler/lua54.can:766
+else -- ./compiler/lua54.can:766
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+end -- ./compiler/lua54.can:769
+end, -- ./compiler/lua54.can:769
+["SafeCall"] = function(t) -- ./compiler/lua54.can:773
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+else -- ./compiler/lua54.can:775
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+end -- ./compiler/lua54.can:777
+end, -- ./compiler/lua54.can:777
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
+if start == nil then start = 1 end -- ./compiler/lua54.can:782
+local r -- ./compiler/lua54.can:783
+if t[start] then -- ./compiler/lua54.can:784
+r = lua(t[start]) -- ./compiler/lua54.can:785
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
+end -- ./compiler/lua54.can:787
+else -- ./compiler/lua54.can:787
+r = "" -- ./compiler/lua54.can:790
 end -- ./compiler/lua54.can:790
-end, -- ./compiler/lua54.can:790
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
-local l = {} -- ./compiler/lua54.can:796
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
-table["insert"](l, 1, t) -- ./compiler/lua54.can:798
-t = t[1] -- ./compiler/lua54.can:799
-end -- ./compiler/lua54.can:799
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
-for _, e in ipairs(l) do -- ./compiler/lua54.can:802
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
-else -- ./compiler/lua54.can:805
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+return r -- ./compiler/lua54.can:792
+end, -- ./compiler/lua54.can:792
+["Id"] = function(t) -- ./compiler/lua54.can:795
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
+local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:802
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
+local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
+return r -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
-return r -- ./compiler/lua54.can:811
-else -- ./compiler/lua54.can:811
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
-end -- ./compiler/lua54.can:813
-end, -- ./compiler/lua54.can:813
-["_opid"] = { -- ./compiler/lua54.can:818
-["add"] = "+", -- ./compiler/lua54.can:819
-["sub"] = "-", -- ./compiler/lua54.can:819
-["mul"] = "*", -- ./compiler/lua54.can:819
-["div"] = "/", -- ./compiler/lua54.can:819
-["idiv"] = "//", -- ./compiler/lua54.can:820
-["mod"] = "%", -- ./compiler/lua54.can:820
-["pow"] = "^", -- ./compiler/lua54.can:820
-["concat"] = "..", -- ./compiler/lua54.can:820
-["band"] = "&", -- ./compiler/lua54.can:821
-["bor"] = "|", -- ./compiler/lua54.can:821
-["bxor"] = "~", -- ./compiler/lua54.can:821
-["shl"] = "<<", -- ./compiler/lua54.can:821
-["shr"] = ">>", -- ./compiler/lua54.can:821
-["eq"] = "==", -- ./compiler/lua54.can:822
-["ne"] = "~=", -- ./compiler/lua54.can:822
-["lt"] = "<", -- ./compiler/lua54.can:822
-["gt"] = ">", -- ./compiler/lua54.can:822
-["le"] = "<=", -- ./compiler/lua54.can:822
-["ge"] = ">=", -- ./compiler/lua54.can:822
-["and"] = "and", -- ./compiler/lua54.can:823
-["or"] = "or", -- ./compiler/lua54.can:823
-["unm"] = "-", -- ./compiler/lua54.can:823
-["len"] = "#", -- ./compiler/lua54.can:823
-["bnot"] = "~", -- ./compiler/lua54.can:823
-["not"] = "not" -- ./compiler/lua54.can:823
-} -- ./compiler/lua54.can:823
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
-end }) -- ./compiler/lua54.can:827
+return t[1] -- ./compiler/lua54.can:810
+end, -- ./compiler/lua54.can:810
+["AttributeId"] = function(t) -- ./compiler/lua54.can:813
+if t[2] then -- ./compiler/lua54.can:814
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
+else -- ./compiler/lua54.can:815
+return t[1] -- ./compiler/lua54.can:817
+end -- ./compiler/lua54.can:817
+end, -- ./compiler/lua54.can:817
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
+if t["id"] then -- ./compiler/lua54.can:822
+return t["id"] -- ./compiler/lua54.can:823
+else -- ./compiler/lua54.can:823
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
+for j = 1, # t, 1 do -- ./compiler/lua54.can:827
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
+end -- ./compiler/lua54.can:828
+table["insert"](d, vars) -- ./compiler/lua54.can:830
+t["id"] = vars["id"] -- ./compiler/lua54.can:831
+return vars["id"] -- ./compiler/lua54.can:832
+end -- ./compiler/lua54.can:832
+end, -- ./compiler/lua54.can:832
+["Index"] = function(t) -- ./compiler/lua54.can:836
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
+else -- ./compiler/lua54.can:838
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
+end -- ./compiler/lua54.can:840
+end, -- ./compiler/lua54.can:840
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
+local l = {} -- ./compiler/lua54.can:846
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
+table["insert"](l, 1, t) -- ./compiler/lua54.can:848
+t = t[1] -- ./compiler/lua54.can:849
+end -- ./compiler/lua54.can:849
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
+for _, e in ipairs(l) do -- ./compiler/lua54.can:852
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
+else -- ./compiler/lua54.can:855
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
+return r -- ./compiler/lua54.can:861
+else -- ./compiler/lua54.can:861
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
+end -- ./compiler/lua54.can:863
+end, -- ./compiler/lua54.can:863
+["_opid"] = { -- ./compiler/lua54.can:868
+["add"] = "+", -- ./compiler/lua54.can:869
+["sub"] = "-", -- ./compiler/lua54.can:869
+["mul"] = "*", -- ./compiler/lua54.can:869
+["div"] = "/", -- ./compiler/lua54.can:869
+["idiv"] = "//", -- ./compiler/lua54.can:870
+["mod"] = "%", -- ./compiler/lua54.can:870
+["pow"] = "^", -- ./compiler/lua54.can:870
+["concat"] = "..", -- ./compiler/lua54.can:870
+["band"] = "&", -- ./compiler/lua54.can:871
+["bor"] = "|", -- ./compiler/lua54.can:871
+["bxor"] = "~", -- ./compiler/lua54.can:871
+["shl"] = "<<", -- ./compiler/lua54.can:871
+["shr"] = ">>", -- ./compiler/lua54.can:871
+["eq"] = "==", -- ./compiler/lua54.can:872
+["ne"] = "~=", -- ./compiler/lua54.can:872
+["lt"] = "<", -- ./compiler/lua54.can:872
+["gt"] = ">", -- ./compiler/lua54.can:872
+["le"] = "<=", -- ./compiler/lua54.can:872
+["ge"] = ">=", -- ./compiler/lua54.can:872
+["and"] = "and", -- ./compiler/lua54.can:873
+["or"] = "or", -- ./compiler/lua54.can:873
+["unm"] = "-", -- ./compiler/lua54.can:873
+["len"] = "#", -- ./compiler/lua54.can:873
+["bnot"] = "~", -- ./compiler/lua54.can:873
+["not"] = "not" -- ./compiler/lua54.can:873
+} -- ./compiler/lua54.can:873
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
+end }) -- ./compiler/lua54.can:877
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -1855,11 +1988,11 @@ else -- ./compiler/lua53.can:6
 return t[1] -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
-return requireStr .. code -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
+return requireStr .. code -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+local lua54 = _() or lua54 -- ./compiler/lua54.can:889
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -1867,861 +2000,921 @@ package["loaded"]["compiler.lua53"] = lua53 or true -- ./compiler/lua53.can:23
 local function _() -- ./compiler/lua53.can:26
 local function _() -- ./compiler/lua53.can:28
 local function _() -- ./compiler/lua53.can:30
-local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
-return function(code, ast, options) -- ./compiler/lua54.can:3
-local lastInputPos = 1 -- ./compiler/lua54.can:5
-local prevLinePos = 1 -- ./compiler/lua54.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
-local lastLine = 1 -- ./compiler/lua54.can:8
-local indentLevel = 0 -- ./compiler/lua54.can:11
-local function newline() -- ./compiler/lua54.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
-if options["mapLines"] then -- ./compiler/lua54.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local util = require("candran.util") -- ./compiler/lua54.can:1
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
+return function(code, ast, options, macros) -- ./compiler/lua54.can:5
+if macros == nil then macros = { -- ./compiler/lua54.can:5
+["functions"] = {}, -- ./compiler/lua54.can:5
+["variables"] = {} -- ./compiler/lua54.can:5
+} end -- ./compiler/lua54.can:5
+local lastInputPos = 1 -- ./compiler/lua54.can:7
+local prevLinePos = 1 -- ./compiler/lua54.can:8
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
+local lastLine = 1 -- ./compiler/lua54.can:10
+local indentLevel = 0 -- ./compiler/lua54.can:13
+local function newline() -- ./compiler/lua54.can:15
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
+if options["mapLines"] then -- ./compiler/lua54.can:17
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:17
-if source and line then -- ./compiler/lua54.can:19
-lastSource = source -- ./compiler/lua54.can:20
-lastLine = tonumber(line) -- ./compiler/lua54.can:21
-else -- ./compiler/lua54.can:21
+") -- ./compiler/lua54.can:19
+if source and line then -- ./compiler/lua54.can:21
+lastSource = source -- ./compiler/lua54.can:22
+lastLine = tonumber(line) -- ./compiler/lua54.can:23
+else -- ./compiler/lua54.can:23
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:23
-lastLine = lastLine + (1) -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-prevLinePos = lastInputPos -- ./compiler/lua54.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
-end -- ./compiler/lua54.can:30
-return r -- ./compiler/lua54.can:32
+") do -- ./compiler/lua54.can:25
+lastLine = lastLine + (1) -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+prevLinePos = lastInputPos -- ./compiler/lua54.can:30
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
 end -- ./compiler/lua54.can:32
-local function indent() -- ./compiler/lua54.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
-return newline() -- ./compiler/lua54.can:37
-end -- ./compiler/lua54.can:37
-local function unindent() -- ./compiler/lua54.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
-return newline() -- ./compiler/lua54.can:42
-end -- ./compiler/lua54.can:42
-local states = { -- ./compiler/lua54.can:47
-["push"] = {}, -- ./compiler/lua54.can:48
-["destructuring"] = {}, -- ./compiler/lua54.can:49
-["scope"] = {} -- ./compiler/lua54.can:50
-} -- ./compiler/lua54.can:50
-local function push(name, state) -- ./compiler/lua54.can:53
-table["insert"](states[name], state) -- ./compiler/lua54.can:54
-return "" -- ./compiler/lua54.can:55
-end -- ./compiler/lua54.can:55
-local function pop(name) -- ./compiler/lua54.can:58
-table["remove"](states[name]) -- ./compiler/lua54.can:59
-return "" -- ./compiler/lua54.can:60
-end -- ./compiler/lua54.can:60
-local function set(name, state) -- ./compiler/lua54.can:63
-states[name][# states[name]] = state -- ./compiler/lua54.can:64
-return "" -- ./compiler/lua54.can:65
-end -- ./compiler/lua54.can:65
-local function peek(name) -- ./compiler/lua54.can:68
-return states[name][# states[name]] -- ./compiler/lua54.can:69
-end -- ./compiler/lua54.can:69
-local function var(name) -- ./compiler/lua54.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
-end -- ./compiler/lua54.can:75
-local function tmp() -- ./compiler/lua54.can:79
-local scope = peek("scope") -- ./compiler/lua54.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
-table["insert"](scope, var) -- ./compiler/lua54.can:82
-return var -- ./compiler/lua54.can:83
-end -- ./compiler/lua54.can:83
-local required = {} -- ./compiler/lua54.can:87
-local requireStr = "" -- ./compiler/lua54.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
-if not required[req] then -- ./compiler/lua54.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
-required[req] = true -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-local loop = { -- ./compiler/lua54.can:99
-"While", -- ./compiler/lua54.can:99
-"Repeat", -- ./compiler/lua54.can:99
-"Fornum", -- ./compiler/lua54.can:99
-"Forin", -- ./compiler/lua54.can:99
-"WhileExpr", -- ./compiler/lua54.can:99
-"RepeatExpr", -- ./compiler/lua54.can:99
-"FornumExpr", -- ./compiler/lua54.can:99
-"ForinExpr" -- ./compiler/lua54.can:99
-} -- ./compiler/lua54.can:99
-local func = { -- ./compiler/lua54.can:100
-"Function", -- ./compiler/lua54.can:100
-"TableCompr", -- ./compiler/lua54.can:100
-"DoExpr", -- ./compiler/lua54.can:100
-"WhileExpr", -- ./compiler/lua54.can:100
-"RepeatExpr", -- ./compiler/lua54.can:100
-"IfExpr", -- ./compiler/lua54.can:100
-"FornumExpr", -- ./compiler/lua54.can:100
-"ForinExpr" -- ./compiler/lua54.can:100
-} -- ./compiler/lua54.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
-local tagsCheck = {} -- ./compiler/lua54.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
-tagsCheck[tag] = true -- ./compiler/lua54.can:107
-end -- ./compiler/lua54.can:107
-local nofollowCheck = {} -- ./compiler/lua54.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
-nofollowCheck[tag] = true -- ./compiler/lua54.can:111
-end -- ./compiler/lua54.can:111
-for _, node in ipairs(list) do -- ./compiler/lua54.can:113
-if type(node) == "table" then -- ./compiler/lua54.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
-return node -- ./compiler/lua54.can:116
-end -- ./compiler/lua54.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
-if r then -- ./compiler/lua54.can:120
-return r -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-return nil -- ./compiler/lua54.can:124
-end -- ./compiler/lua54.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
-local tagsCheck = {} -- ./compiler/lua54.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
-tagsCheck[tag] = true -- ./compiler/lua54.can:132
-end -- ./compiler/lua54.can:132
-local nofollowCheck = {} -- ./compiler/lua54.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
-nofollowCheck[tag] = true -- ./compiler/lua54.can:136
-end -- ./compiler/lua54.can:136
-local found = {} -- ./compiler/lua54.can:138
-for _, node in ipairs(list) do -- ./compiler/lua54.can:139
-if type(node) == "table" then -- ./compiler/lua54.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
-table["insert"](found, n) -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
-table["insert"](found, node) -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-return found -- ./compiler/lua54.can:151
-end -- ./compiler/lua54.can:151
-local function all(list, tags) -- ./compiler/lua54.can:155
-for _, node in ipairs(list) do -- ./compiler/lua54.can:156
-local ok = false -- ./compiler/lua54.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
-if node["tag"] == tag then -- ./compiler/lua54.can:159
-ok = true -- ./compiler/lua54.can:160
-break -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-if not ok then -- ./compiler/lua54.can:164
-return false -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-return true -- ./compiler/lua54.can:168
-end -- ./compiler/lua54.can:168
-local tags -- ./compiler/lua54.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
-end -- ./compiler/lua54.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
-end -- ./compiler/lua54.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
-end -- ./compiler/lua54.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
-end -- ./compiler/lua54.can:186
-local CONTINUE_START = function() -- ./compiler/lua54.can:188
-return "do" .. indent() -- ./compiler/lua54.can:189
+return r -- ./compiler/lua54.can:34
+end -- ./compiler/lua54.can:34
+local function indent() -- ./compiler/lua54.can:37
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
+return newline() -- ./compiler/lua54.can:39
+end -- ./compiler/lua54.can:39
+local function unindent() -- ./compiler/lua54.can:42
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
+return newline() -- ./compiler/lua54.can:44
+end -- ./compiler/lua54.can:44
+local states = { -- ./compiler/lua54.can:49
+["push"] = {}, -- ./compiler/lua54.can:50
+["destructuring"] = {}, -- ./compiler/lua54.can:51
+["scope"] = {}, -- ./compiler/lua54.can:52
+["macroargs"] = {} -- ./compiler/lua54.can:53
+} -- ./compiler/lua54.can:53
+local function push(name, state) -- ./compiler/lua54.can:56
+table["insert"](states[name], state) -- ./compiler/lua54.can:57
+return "" -- ./compiler/lua54.can:58
+end -- ./compiler/lua54.can:58
+local function pop(name) -- ./compiler/lua54.can:61
+table["remove"](states[name]) -- ./compiler/lua54.can:62
+return "" -- ./compiler/lua54.can:63
+end -- ./compiler/lua54.can:63
+local function set(name, state) -- ./compiler/lua54.can:66
+states[name][# states[name]] = state -- ./compiler/lua54.can:67
+return "" -- ./compiler/lua54.can:68
+end -- ./compiler/lua54.can:68
+local function peek(name) -- ./compiler/lua54.can:71
+return states[name][# states[name]] -- ./compiler/lua54.can:72
+end -- ./compiler/lua54.can:72
+local function var(name) -- ./compiler/lua54.can:77
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
+end -- ./compiler/lua54.can:78
+local function tmp() -- ./compiler/lua54.can:82
+local scope = peek("scope") -- ./compiler/lua54.can:83
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
+table["insert"](scope, var) -- ./compiler/lua54.can:85
+return var -- ./compiler/lua54.can:86
+end -- ./compiler/lua54.can:86
+local nomacro = { -- ./compiler/lua54.can:90
+["variables"] = {}, -- ./compiler/lua54.can:90
+["functions"] = {} -- ./compiler/lua54.can:90
+} -- ./compiler/lua54.can:90
+local required = {} -- ./compiler/lua54.can:93
+local requireStr = "" -- ./compiler/lua54.can:94
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
+if not required[req] then -- ./compiler/lua54.can:98
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
+required[req] = true -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+local loop = { -- ./compiler/lua54.can:105
+"While", -- ./compiler/lua54.can:105
+"Repeat", -- ./compiler/lua54.can:105
+"Fornum", -- ./compiler/lua54.can:105
+"Forin", -- ./compiler/lua54.can:105
+"WhileExpr", -- ./compiler/lua54.can:105
+"RepeatExpr", -- ./compiler/lua54.can:105
+"FornumExpr", -- ./compiler/lua54.can:105
+"ForinExpr" -- ./compiler/lua54.can:105
+} -- ./compiler/lua54.can:105
+local func = { -- ./compiler/lua54.can:106
+"Function", -- ./compiler/lua54.can:106
+"TableCompr", -- ./compiler/lua54.can:106
+"DoExpr", -- ./compiler/lua54.can:106
+"WhileExpr", -- ./compiler/lua54.can:106
+"RepeatExpr", -- ./compiler/lua54.can:106
+"IfExpr", -- ./compiler/lua54.can:106
+"FornumExpr", -- ./compiler/lua54.can:106
+"ForinExpr" -- ./compiler/lua54.can:106
+} -- ./compiler/lua54.can:106
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
+local tagsCheck = {} -- ./compiler/lua54.can:111
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
+tagsCheck[tag] = true -- ./compiler/lua54.can:113
+end -- ./compiler/lua54.can:113
+local nofollowCheck = {} -- ./compiler/lua54.can:115
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
+nofollowCheck[tag] = true -- ./compiler/lua54.can:117
+end -- ./compiler/lua54.can:117
+for _, node in ipairs(list) do -- ./compiler/lua54.can:119
+if type(node) == "table" then -- ./compiler/lua54.can:120
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
+return node -- ./compiler/lua54.can:122
+end -- ./compiler/lua54.can:122
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
+if r then -- ./compiler/lua54.can:126
+return r -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+return nil -- ./compiler/lua54.can:130
+end -- ./compiler/lua54.can:130
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
+local tagsCheck = {} -- ./compiler/lua54.can:136
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
+tagsCheck[tag] = true -- ./compiler/lua54.can:138
+end -- ./compiler/lua54.can:138
+local nofollowCheck = {} -- ./compiler/lua54.can:140
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
+nofollowCheck[tag] = true -- ./compiler/lua54.can:142
+end -- ./compiler/lua54.can:142
+local found = {} -- ./compiler/lua54.can:144
+for _, node in ipairs(list) do -- ./compiler/lua54.can:145
+if type(node) == "table" then -- ./compiler/lua54.can:146
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
+table["insert"](found, n) -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
+table["insert"](found, node) -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+return found -- ./compiler/lua54.can:157
+end -- ./compiler/lua54.can:157
+local function all(list, tags) -- ./compiler/lua54.can:161
+for _, node in ipairs(list) do -- ./compiler/lua54.can:162
+local ok = false -- ./compiler/lua54.can:163
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
+if node["tag"] == tag then -- ./compiler/lua54.can:165
+ok = true -- ./compiler/lua54.can:166
+break -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+if not ok then -- ./compiler/lua54.can:170
+return false -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+return true -- ./compiler/lua54.can:174
+end -- ./compiler/lua54.can:174
+local tags -- ./compiler/lua54.can:178
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
+end -- ./compiler/lua54.can:182
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+end -- ./compiler/lua54.can:184
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
 end -- ./compiler/lua54.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
 end -- ./compiler/lua54.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
-local vars = {} -- ./compiler/lua54.can:195
-local values = {} -- ./compiler/lua54.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
-for _, v in ipairs(list) do -- ./compiler/lua54.can:198
-local var, val -- ./compiler/lua54.can:199
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
-var = v -- ./compiler/lua54.can:201
-val = { -- ./compiler/lua54.can:202
-["tag"] = "Index", -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "Id", -- ./compiler/lua54.can:202
-list["id"] -- ./compiler/lua54.can:202
-}, -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "String", -- ./compiler/lua54.can:202
-v[1] -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
-var = v[2] -- ./compiler/lua54.can:204
-val = { -- ./compiler/lua54.can:205
-["tag"] = "Index", -- ./compiler/lua54.can:205
-{ -- ./compiler/lua54.can:205
-["tag"] = "Id", -- ./compiler/lua54.can:205
-list["id"] -- ./compiler/lua54.can:205
-}, -- ./compiler/lua54.can:205
-v[1] -- ./compiler/lua54.can:205
-} -- ./compiler/lua54.can:205
-else -- ./compiler/lua54.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
-end -- ./compiler/lua54.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
-val = { -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["rightOp"], -- ./compiler/lua54.can:210
-var, -- ./compiler/lua54.can:210
-{ -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["leftOp"], -- ./compiler/lua54.can:210
-val, -- ./compiler/lua54.can:210
-var -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
-val = { -- ./compiler/lua54.can:212
-["tag"] = "Op", -- ./compiler/lua54.can:212
-destructured["rightOp"], -- ./compiler/lua54.can:212
-var, -- ./compiler/lua54.can:212
-val -- ./compiler/lua54.can:212
-} -- ./compiler/lua54.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
-val = { -- ./compiler/lua54.can:214
-["tag"] = "Op", -- ./compiler/lua54.can:214
-destructured["leftOp"], -- ./compiler/lua54.can:214
-val, -- ./compiler/lua54.can:214
-var -- ./compiler/lua54.can:214
-} -- ./compiler/lua54.can:214
-end -- ./compiler/lua54.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-if # vars > 0 then -- ./compiler/lua54.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
-if newlineAfter then -- ./compiler/lua54.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
-else -- ./compiler/lua54.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
-end -- ./compiler/lua54.can:225
-else -- ./compiler/lua54.can:225
-return "" -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-tags = setmetatable({ -- ./compiler/lua54.can:233
-["Block"] = function(t) -- ./compiler/lua54.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
-hasPush = false -- ./compiler/lua54.can:239
-end -- ./compiler/lua54.can:239
-local r = push("scope", {}) -- ./compiler/lua54.can:241
-if hasPush then -- ./compiler/lua54.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
-end -- ./compiler/lua54.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
-end -- ./compiler/lua54.can:246
-if t[# t] then -- ./compiler/lua54.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+local CONTINUE_START = function() -- ./compiler/lua54.can:194
+return "do" .. indent() -- ./compiler/lua54.can:195
+end -- ./compiler/lua54.can:195
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
+end -- ./compiler/lua54.can:198
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
+local vars = {} -- ./compiler/lua54.can:201
+local values = {} -- ./compiler/lua54.can:202
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
+for _, v in ipairs(list) do -- ./compiler/lua54.can:204
+local var, val -- ./compiler/lua54.can:205
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
+var = v -- ./compiler/lua54.can:207
+val = { -- ./compiler/lua54.can:208
+["tag"] = "Index", -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "Id", -- ./compiler/lua54.can:208
+list["id"] -- ./compiler/lua54.can:208
+}, -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "String", -- ./compiler/lua54.can:208
+v[1] -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
+var = v[2] -- ./compiler/lua54.can:210
+val = { -- ./compiler/lua54.can:211
+["tag"] = "Index", -- ./compiler/lua54.can:211
+{ -- ./compiler/lua54.can:211
+["tag"] = "Id", -- ./compiler/lua54.can:211
+list["id"] -- ./compiler/lua54.can:211
+}, -- ./compiler/lua54.can:211
+v[1] -- ./compiler/lua54.can:211
+} -- ./compiler/lua54.can:211
+else -- ./compiler/lua54.can:211
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
+end -- ./compiler/lua54.can:213
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
+val = { -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["rightOp"], -- ./compiler/lua54.can:216
+var, -- ./compiler/lua54.can:216
+{ -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["leftOp"], -- ./compiler/lua54.can:216
+val, -- ./compiler/lua54.can:216
+var -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+val = { -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["rightOp"], -- ./compiler/lua54.can:218
+var, -- ./compiler/lua54.can:218
+val -- ./compiler/lua54.can:218
+} -- ./compiler/lua54.can:218
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+val = { -- ./compiler/lua54.can:220
+["tag"] = "Op", -- ./compiler/lua54.can:220
+destructured["leftOp"], -- ./compiler/lua54.can:220
+val, -- ./compiler/lua54.can:220
+var -- ./compiler/lua54.can:220
+} -- ./compiler/lua54.can:220
+end -- ./compiler/lua54.can:220
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+if # vars > 0 then -- ./compiler/lua54.can:226
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
+if newlineAfter then -- ./compiler/lua54.can:228
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
+else -- ./compiler/lua54.can:229
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
+end -- ./compiler/lua54.can:231
+else -- ./compiler/lua54.can:231
+return "" -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+tags = setmetatable({ -- ./compiler/lua54.can:239
+["Block"] = function(t) -- ./compiler/lua54.can:241
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
+hasPush = false -- ./compiler/lua54.can:245
+end -- ./compiler/lua54.can:245
+local r = push("scope", {}) -- ./compiler/lua54.can:247
+if hasPush then -- ./compiler/lua54.can:248
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
 end -- ./compiler/lua54.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
 end -- ./compiler/lua54.can:252
-return r .. pop("scope") -- ./compiler/lua54.can:254
-end, -- ./compiler/lua54.can:254
-["Do"] = function(t) -- ./compiler/lua54.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
-end, -- ./compiler/lua54.can:261
-["Set"] = function(t) -- ./compiler/lua54.can:264
-local expr = t[# t] -- ./compiler/lua54.can:266
-local vars, values = {}, {} -- ./compiler/lua54.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
-else -- ./compiler/lua54.can:272
-table["insert"](vars, n) -- ./compiler/lua54.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
-local r = "" -- ./compiler/lua54.can:280
-if # vars > 0 then -- ./compiler/lua54.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
-end -- ./compiler/lua54.can:282
-if # destructuringVars > 0 then -- ./compiler/lua54.can:284
-local destructured = {} -- ./compiler/lua54.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
-end -- ./compiler/lua54.can:287
-return r -- ./compiler/lua54.can:289
-elseif # t == 4 then -- ./compiler/lua54.can:290
-if t[3] == "=" then -- ./compiler/lua54.can:291
-local r = "" -- ./compiler/lua54.can:292
-if # vars > 0 then -- ./compiler/lua54.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
-t[2], -- ./compiler/lua54.can:294
-vars[1], -- ./compiler/lua54.can:294
-{ -- ./compiler/lua54.can:294
-["tag"] = "Paren", -- ./compiler/lua54.can:294
-values[1] -- ./compiler/lua54.can:294
-} -- ./compiler/lua54.can:294
-}, "Op")) -- ./compiler/lua54.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
-t[2], -- ./compiler/lua54.can:296
-vars[i], -- ./compiler/lua54.can:296
-{ -- ./compiler/lua54.can:296
-["tag"] = "Paren", -- ./compiler/lua54.can:296
-values[i] -- ./compiler/lua54.can:296
-} -- ./compiler/lua54.can:296
-}, "Op")) -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-if # destructuringVars > 0 then -- ./compiler/lua54.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+if t[# t] then -- ./compiler/lua54.can:254
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
+end -- ./compiler/lua54.can:255
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
+end -- ./compiler/lua54.can:258
+return r .. pop("scope") -- ./compiler/lua54.can:260
+end, -- ./compiler/lua54.can:260
+["Do"] = function(t) -- ./compiler/lua54.can:266
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
+end, -- ./compiler/lua54.can:267
+["Set"] = function(t) -- ./compiler/lua54.can:270
+local expr = t[# t] -- ./compiler/lua54.can:272
+local vars, values = {}, {} -- ./compiler/lua54.can:273
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
+else -- ./compiler/lua54.can:278
+table["insert"](vars, n) -- ./compiler/lua54.can:280
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
+local r = "" -- ./compiler/lua54.can:286
+if # vars > 0 then -- ./compiler/lua54.can:287
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
+end -- ./compiler/lua54.can:288
+if # destructuringVars > 0 then -- ./compiler/lua54.can:290
+local destructured = {} -- ./compiler/lua54.can:291
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
+end -- ./compiler/lua54.can:293
+return r -- ./compiler/lua54.can:295
+elseif # t == 4 then -- ./compiler/lua54.can:296
+if t[3] == "=" then -- ./compiler/lua54.can:297
+local r = "" -- ./compiler/lua54.can:298
+if # vars > 0 then -- ./compiler/lua54.can:299
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
+t[2], -- ./compiler/lua54.can:300
+vars[1], -- ./compiler/lua54.can:300
+{ -- ./compiler/lua54.can:300
+["tag"] = "Paren", -- ./compiler/lua54.can:300
+values[1] -- ./compiler/lua54.can:300
+} -- ./compiler/lua54.can:300
+}, "Op")) -- ./compiler/lua54.can:300
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+t[2], -- ./compiler/lua54.can:302
+vars[i], -- ./compiler/lua54.can:302
+{ -- ./compiler/lua54.can:302
+["tag"] = "Paren", -- ./compiler/lua54.can:302
+values[i] -- ./compiler/lua54.can:302
+} -- ./compiler/lua54.can:302
+}, "Op")) -- ./compiler/lua54.can:302
 end -- ./compiler/lua54.can:302
-return r -- ./compiler/lua54.can:304
-else -- ./compiler/lua54.can:304
-local r = "" -- ./compiler/lua54.can:306
-if # vars > 0 then -- ./compiler/lua54.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
-t[3], -- ./compiler/lua54.can:308
-{ -- ./compiler/lua54.can:308
-["tag"] = "Paren", -- ./compiler/lua54.can:308
-values[1] -- ./compiler/lua54.can:308
-}, -- ./compiler/lua54.can:308
-vars[1] -- ./compiler/lua54.can:308
-}, "Op")) -- ./compiler/lua54.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
-t[3], -- ./compiler/lua54.can:310
-{ -- ./compiler/lua54.can:310
-["tag"] = "Paren", -- ./compiler/lua54.can:310
-values[i] -- ./compiler/lua54.can:310
-}, -- ./compiler/lua54.can:310
-vars[i] -- ./compiler/lua54.can:310
-}, "Op")) -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-if # destructuringVars > 0 then -- ./compiler/lua54.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:302
+if # destructuringVars > 0 then -- ./compiler/lua54.can:305
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
+end -- ./compiler/lua54.can:308
+return r -- ./compiler/lua54.can:310
+else -- ./compiler/lua54.can:310
+local r = "" -- ./compiler/lua54.can:312
+if # vars > 0 then -- ./compiler/lua54.can:313
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
+t[3], -- ./compiler/lua54.can:314
+{ -- ./compiler/lua54.can:314
+["tag"] = "Paren", -- ./compiler/lua54.can:314
+values[1] -- ./compiler/lua54.can:314
+}, -- ./compiler/lua54.can:314
+vars[1] -- ./compiler/lua54.can:314
+}, "Op")) -- ./compiler/lua54.can:314
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+t[3], -- ./compiler/lua54.can:316
+{ -- ./compiler/lua54.can:316
+["tag"] = "Paren", -- ./compiler/lua54.can:316
+values[i] -- ./compiler/lua54.can:316
+}, -- ./compiler/lua54.can:316
+vars[i] -- ./compiler/lua54.can:316
+}, "Op")) -- ./compiler/lua54.can:316
 end -- ./compiler/lua54.can:316
-return r -- ./compiler/lua54.can:318
-end -- ./compiler/lua54.can:318
-else -- ./compiler/lua54.can:318
-local r = "" -- ./compiler/lua54.can:321
-if # vars > 0 then -- ./compiler/lua54.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
-t[2], -- ./compiler/lua54.can:323
-vars[1], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Op", -- ./compiler/lua54.can:323
-t[4], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Paren", -- ./compiler/lua54.can:323
-values[1] -- ./compiler/lua54.can:323
-}, -- ./compiler/lua54.can:323
-vars[1] -- ./compiler/lua54.can:323
-} -- ./compiler/lua54.can:323
-}, "Op")) -- ./compiler/lua54.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
-t[2], -- ./compiler/lua54.can:325
-vars[i], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Op", -- ./compiler/lua54.can:325
-t[4], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Paren", -- ./compiler/lua54.can:325
-values[i] -- ./compiler/lua54.can:325
-}, -- ./compiler/lua54.can:325
-vars[i] -- ./compiler/lua54.can:325
-} -- ./compiler/lua54.can:325
-}, "Op")) -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-if # destructuringVars > 0 then -- ./compiler/lua54.can:328
-local destructured = { -- ./compiler/lua54.can:329
-["rightOp"] = t[2], -- ./compiler/lua54.can:329
-["leftOp"] = t[4] -- ./compiler/lua54.can:329
+end -- ./compiler/lua54.can:316
+if # destructuringVars > 0 then -- ./compiler/lua54.can:319
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
+end -- ./compiler/lua54.can:322
+return r -- ./compiler/lua54.can:324
+end -- ./compiler/lua54.can:324
+else -- ./compiler/lua54.can:324
+local r = "" -- ./compiler/lua54.can:327
+if # vars > 0 then -- ./compiler/lua54.can:328
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
+t[2], -- ./compiler/lua54.can:329
+vars[1], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Op", -- ./compiler/lua54.can:329
+t[4], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Paren", -- ./compiler/lua54.can:329
+values[1] -- ./compiler/lua54.can:329
+}, -- ./compiler/lua54.can:329
+vars[1] -- ./compiler/lua54.can:329
 } -- ./compiler/lua54.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:329
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+t[2], -- ./compiler/lua54.can:331
+vars[i], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Op", -- ./compiler/lua54.can:331
+t[4], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Paren", -- ./compiler/lua54.can:331
+values[i] -- ./compiler/lua54.can:331
+}, -- ./compiler/lua54.can:331
+vars[i] -- ./compiler/lua54.can:331
+} -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:331
 end -- ./compiler/lua54.can:331
-return r -- ./compiler/lua54.can:333
-end -- ./compiler/lua54.can:333
-end, -- ./compiler/lua54.can:333
-["While"] = function(t) -- ./compiler/lua54.can:337
-local r = "" -- ./compiler/lua54.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
-if # lets > 0 then -- ./compiler/lua54.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
-if # lets > 0 then -- ./compiler/lua54.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
-end -- ./compiler/lua54.can:349
-if hasContinue then -- ./compiler/lua54.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
-end -- ./compiler/lua54.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
-if hasContinue then -- ./compiler/lua54.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
-end -- ./compiler/lua54.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
-if # lets > 0 then -- ./compiler/lua54.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
-end -- ./compiler/lua54.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
-end -- ./compiler/lua54.can:363
-return r -- ./compiler/lua54.can:365
-end, -- ./compiler/lua54.can:365
-["Repeat"] = function(t) -- ./compiler/lua54.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
-local r = "repeat" .. indent() -- ./compiler/lua54.can:370
-if hasContinue then -- ./compiler/lua54.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
-end -- ./compiler/lua54.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
-if hasContinue then -- ./compiler/lua54.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
-end -- ./compiler/lua54.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
-return r -- ./compiler/lua54.can:379
-end, -- ./compiler/lua54.can:379
-["If"] = function(t) -- ./compiler/lua54.can:382
-local r = "" -- ./compiler/lua54.can:383
-local toClose = 0 -- ./compiler/lua54.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
-if # lets > 0 then -- ./compiler/lua54.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
-toClose = toClose + (1) -- ./compiler/lua54.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
-if # lets > 0 then -- ./compiler/lua54.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
-toClose = toClose + (1) -- ./compiler/lua54.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
-end -- ./compiler/lua54.can:400
-else -- ./compiler/lua54.can:400
-r = r .. ("else") -- ./compiler/lua54.can:403
-end -- ./compiler/lua54.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
-end -- ./compiler/lua54.can:405
-if # t % 2 == 1 then -- ./compiler/lua54.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
-end -- ./compiler/lua54.can:408
-r = r .. ("end") -- ./compiler/lua54.can:410
-for i = 1, toClose do -- ./compiler/lua54.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
-end -- ./compiler/lua54.can:412
-return r -- ./compiler/lua54.can:414
-end, -- ./compiler/lua54.can:414
-["Fornum"] = function(t) -- ./compiler/lua54.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
-if # t == 5 then -- ./compiler/lua54.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
-if hasContinue then -- ./compiler/lua54.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
-end -- ./compiler/lua54.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
-if hasContinue then -- ./compiler/lua54.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
-end -- ./compiler/lua54.can:427
-return r .. unindent() .. "end" -- ./compiler/lua54.can:429
-else -- ./compiler/lua54.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
-if hasContinue then -- ./compiler/lua54.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
-end -- ./compiler/lua54.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
-if hasContinue then -- ./compiler/lua54.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
-end -- ./compiler/lua54.can:438
-return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:331
+if # destructuringVars > 0 then -- ./compiler/lua54.can:334
+local destructured = { -- ./compiler/lua54.can:335
+["rightOp"] = t[2], -- ./compiler/lua54.can:335
+["leftOp"] = t[4] -- ./compiler/lua54.can:335
+} -- ./compiler/lua54.can:335
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
+end -- ./compiler/lua54.can:337
+return r -- ./compiler/lua54.can:339
+end -- ./compiler/lua54.can:339
+end, -- ./compiler/lua54.can:339
+["While"] = function(t) -- ./compiler/lua54.can:343
+local r = "" -- ./compiler/lua54.can:344
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
+if # lets > 0 then -- ./compiler/lua54.can:347
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
+if # lets > 0 then -- ./compiler/lua54.can:354
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
+end -- ./compiler/lua54.can:355
+if hasContinue then -- ./compiler/lua54.can:357
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
+end -- ./compiler/lua54.can:358
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
+if hasContinue then -- ./compiler/lua54.can:361
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
+end -- ./compiler/lua54.can:362
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
+if # lets > 0 then -- ./compiler/lua54.can:365
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
+end -- ./compiler/lua54.can:367
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+end -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:371
+end, -- ./compiler/lua54.can:371
+["Repeat"] = function(t) -- ./compiler/lua54.can:374
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
+local r = "repeat" .. indent() -- ./compiler/lua54.can:376
+if hasContinue then -- ./compiler/lua54.can:377
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
+end -- ./compiler/lua54.can:378
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
+if hasContinue then -- ./compiler/lua54.can:381
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
+end -- ./compiler/lua54.can:382
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
+return r -- ./compiler/lua54.can:385
+end, -- ./compiler/lua54.can:385
+["If"] = function(t) -- ./compiler/lua54.can:388
+local r = "" -- ./compiler/lua54.can:389
+local toClose = 0 -- ./compiler/lua54.can:390
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
+if # lets > 0 then -- ./compiler/lua54.can:392
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
+toClose = toClose + (1) -- ./compiler/lua54.can:394
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
+if # lets > 0 then -- ./compiler/lua54.can:402
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
+toClose = toClose + (1) -- ./compiler/lua54.can:404
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
+end -- ./compiler/lua54.can:406
+else -- ./compiler/lua54.can:406
+r = r .. ("else") -- ./compiler/lua54.can:409
+end -- ./compiler/lua54.can:409
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+end -- ./compiler/lua54.can:411
+if # t % 2 == 1 then -- ./compiler/lua54.can:413
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
+end -- ./compiler/lua54.can:414
+r = r .. ("end") -- ./compiler/lua54.can:416
+for i = 1, toClose do -- ./compiler/lua54.can:417
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
+end -- ./compiler/lua54.can:418
+return r -- ./compiler/lua54.can:420
+end, -- ./compiler/lua54.can:420
+["Fornum"] = function(t) -- ./compiler/lua54.can:423
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
+if # t == 5 then -- ./compiler/lua54.can:425
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
+if hasContinue then -- ./compiler/lua54.can:428
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
+end -- ./compiler/lua54.can:429
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
+if hasContinue then -- ./compiler/lua54.can:432
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
+end -- ./compiler/lua54.can:433
+return r .. unindent() .. "end" -- ./compiler/lua54.can:435
+else -- ./compiler/lua54.can:435
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
+if hasContinue then -- ./compiler/lua54.can:439
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
 end -- ./compiler/lua54.can:440
-end, -- ./compiler/lua54.can:440
-["Forin"] = function(t) -- ./compiler/lua54.can:444
-local destructured = {} -- ./compiler/lua54.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
-if hasContinue then -- ./compiler/lua54.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
-end -- ./compiler/lua54.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
-if hasContinue then -- ./compiler/lua54.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
-end -- ./compiler/lua54.can:453
-return r .. unindent() .. "end" -- ./compiler/lua54.can:455
-end, -- ./compiler/lua54.can:455
-["Local"] = function(t) -- ./compiler/lua54.can:458
-local destructured = {} -- ./compiler/lua54.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
-if t[2][1] then -- ./compiler/lua54.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
-end -- ./compiler/lua54.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
-end, -- ./compiler/lua54.can:464
-["Let"] = function(t) -- ./compiler/lua54.can:467
-local destructured = {} -- ./compiler/lua54.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
-local r = "local " .. nameList -- ./compiler/lua54.can:470
-if t[2][1] then -- ./compiler/lua54.can:471
-if all(t[2], { -- ./compiler/lua54.can:472
-"Nil", -- ./compiler/lua54.can:472
-"Dots", -- ./compiler/lua54.can:472
-"Boolean", -- ./compiler/lua54.can:472
-"Number", -- ./compiler/lua54.can:472
-"String" -- ./compiler/lua54.can:472
-}) then -- ./compiler/lua54.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
-else -- ./compiler/lua54.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
-end, -- ./compiler/lua54.can:478
-["Localrec"] = function(t) -- ./compiler/lua54.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
-end, -- ./compiler/lua54.can:482
-["Goto"] = function(t) -- ./compiler/lua54.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
-end, -- ./compiler/lua54.can:486
-["Label"] = function(t) -- ./compiler/lua54.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
-end, -- ./compiler/lua54.can:490
-["Return"] = function(t) -- ./compiler/lua54.can:493
-local push = peek("push") -- ./compiler/lua54.can:494
-if push then -- ./compiler/lua54.can:495
-local r = "" -- ./compiler/lua54.can:496
-for _, val in ipairs(t) do -- ./compiler/lua54.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
-end -- ./compiler/lua54.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
-else -- ./compiler/lua54.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
-end -- ./compiler/lua54.can:502
-end, -- ./compiler/lua54.can:502
-["Push"] = function(t) -- ./compiler/lua54.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
-r = "" -- ./compiler/lua54.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
-end -- ./compiler/lua54.can:510
-if t[# t] then -- ./compiler/lua54.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
-else -- ./compiler/lua54.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
+if hasContinue then -- ./compiler/lua54.can:443
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
+end -- ./compiler/lua54.can:444
+return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+end -- ./compiler/lua54.can:446
+end, -- ./compiler/lua54.can:446
+["Forin"] = function(t) -- ./compiler/lua54.can:450
+local destructured = {} -- ./compiler/lua54.can:451
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
+if hasContinue then -- ./compiler/lua54.can:454
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
+end -- ./compiler/lua54.can:455
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
+if hasContinue then -- ./compiler/lua54.can:458
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
+end -- ./compiler/lua54.can:459
+return r .. unindent() .. "end" -- ./compiler/lua54.can:461
+end, -- ./compiler/lua54.can:461
+["Local"] = function(t) -- ./compiler/lua54.can:464
+local destructured = {} -- ./compiler/lua54.can:465
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
+if t[2][1] then -- ./compiler/lua54.can:467
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
+end -- ./compiler/lua54.can:468
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
+end, -- ./compiler/lua54.can:470
+["Let"] = function(t) -- ./compiler/lua54.can:473
+local destructured = {} -- ./compiler/lua54.can:474
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
+local r = "local " .. nameList -- ./compiler/lua54.can:476
+if t[2][1] then -- ./compiler/lua54.can:477
+if all(t[2], { -- ./compiler/lua54.can:478
+"Nil", -- ./compiler/lua54.can:478
+"Dots", -- ./compiler/lua54.can:478
+"Boolean", -- ./compiler/lua54.can:478
+"Number", -- ./compiler/lua54.can:478
+"String" -- ./compiler/lua54.can:478
+}) then -- ./compiler/lua54.can:478
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
+else -- ./compiler/lua54.can:479
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
+end, -- ./compiler/lua54.can:484
+["Localrec"] = function(t) -- ./compiler/lua54.can:487
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
+end, -- ./compiler/lua54.can:488
+["Goto"] = function(t) -- ./compiler/lua54.can:491
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
+end, -- ./compiler/lua54.can:492
+["Label"] = function(t) -- ./compiler/lua54.can:495
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
+end, -- ./compiler/lua54.can:496
+["Return"] = function(t) -- ./compiler/lua54.can:499
+local push = peek("push") -- ./compiler/lua54.can:500
+if push then -- ./compiler/lua54.can:501
+local r = "" -- ./compiler/lua54.can:502
+for _, val in ipairs(t) do -- ./compiler/lua54.can:503
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
+end -- ./compiler/lua54.can:504
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
+else -- ./compiler/lua54.can:506
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
+end -- ./compiler/lua54.can:508
+end, -- ./compiler/lua54.can:508
+["Push"] = function(t) -- ./compiler/lua54.can:512
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
+r = "" -- ./compiler/lua54.can:514
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
 end -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-return r -- ./compiler/lua54.can:519
-end, -- ./compiler/lua54.can:519
-["Break"] = function() -- ./compiler/lua54.can:522
-return "break" -- ./compiler/lua54.can:523
-end, -- ./compiler/lua54.can:523
-["Continue"] = function() -- ./compiler/lua54.can:526
-return "goto " .. var("continue") -- ./compiler/lua54.can:527
-end, -- ./compiler/lua54.can:527
-["Nil"] = function() -- ./compiler/lua54.can:534
-return "nil" -- ./compiler/lua54.can:535
-end, -- ./compiler/lua54.can:535
-["Dots"] = function() -- ./compiler/lua54.can:538
-return "..." -- ./compiler/lua54.can:539
-end, -- ./compiler/lua54.can:539
-["Boolean"] = function(t) -- ./compiler/lua54.can:542
-return tostring(t[1]) -- ./compiler/lua54.can:543
-end, -- ./compiler/lua54.can:543
-["Number"] = function(t) -- ./compiler/lua54.can:546
-return tostring(t[1]) -- ./compiler/lua54.can:547
-end, -- ./compiler/lua54.can:547
-["String"] = function(t) -- ./compiler/lua54.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
-end, -- ./compiler/lua54.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
-local r = "(" -- ./compiler/lua54.can:555
-local decl = {} -- ./compiler/lua54.can:556
-if t[1][1] then -- ./compiler/lua54.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
-r = r .. (id) -- ./compiler/lua54.can:563
-else -- ./compiler/lua54.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
-end -- ./compiler/lua54.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
-r = r .. (", " .. id) -- ./compiler/lua54.can:573
-else -- ./compiler/lua54.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
-r = r .. (d .. newline()) -- ./compiler/lua54.can:581
-end -- ./compiler/lua54.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
-end -- ./compiler/lua54.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
-if hasPush then -- ./compiler/lua54.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
-else -- ./compiler/lua54.can:588
-push("push", false) -- ./compiler/lua54.can:590
-end -- ./compiler/lua54.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
-end -- ./compiler/lua54.can:594
-pop("push") -- ./compiler/lua54.can:596
-return r .. unindent() .. "end" -- ./compiler/lua54.can:597
-end, -- ./compiler/lua54.can:597
-["Function"] = function(t) -- ./compiler/lua54.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
-end, -- ./compiler/lua54.can:600
-["Pair"] = function(t) -- ./compiler/lua54.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
-end, -- ./compiler/lua54.can:604
-["Table"] = function(t) -- ./compiler/lua54.can:606
-if # t == 0 then -- ./compiler/lua54.can:607
-return "{}" -- ./compiler/lua54.can:608
-elseif # t == 1 then -- ./compiler/lua54.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
-else -- ./compiler/lua54.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
-end -- ./compiler/lua54.can:612
-end, -- ./compiler/lua54.can:612
-["TableCompr"] = function(t) -- ./compiler/lua54.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
-end, -- ./compiler/lua54.can:617
-["Op"] = function(t) -- ./compiler/lua54.can:620
-local r -- ./compiler/lua54.can:621
-if # t == 2 then -- ./compiler/lua54.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+if t[# t] then -- ./compiler/lua54.can:518
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
+else -- ./compiler/lua54.can:520
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+return r -- ./compiler/lua54.can:525
+end, -- ./compiler/lua54.can:525
+["Break"] = function() -- ./compiler/lua54.can:528
+return "break" -- ./compiler/lua54.can:529
+end, -- ./compiler/lua54.can:529
+["Continue"] = function() -- ./compiler/lua54.can:532
+return "goto " .. var("continue") -- ./compiler/lua54.can:533
+end, -- ./compiler/lua54.can:533
+["Nil"] = function() -- ./compiler/lua54.can:540
+return "nil" -- ./compiler/lua54.can:541
+end, -- ./compiler/lua54.can:541
+["Dots"] = function() -- ./compiler/lua54.can:544
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
+return r -- ./compiler/lua54.can:550
+else -- ./compiler/lua54.can:550
+return "..." -- ./compiler/lua54.can:552
+end -- ./compiler/lua54.can:552
+end, -- ./compiler/lua54.can:552
+["Boolean"] = function(t) -- ./compiler/lua54.can:556
+return tostring(t[1]) -- ./compiler/lua54.can:557
+end, -- ./compiler/lua54.can:557
+["Number"] = function(t) -- ./compiler/lua54.can:560
+return tostring(t[1]) -- ./compiler/lua54.can:561
+end, -- ./compiler/lua54.can:561
+["String"] = function(t) -- ./compiler/lua54.can:564
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
+end, -- ./compiler/lua54.can:565
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
+local r = "(" -- ./compiler/lua54.can:569
+local decl = {} -- ./compiler/lua54.can:570
+if t[1][1] then -- ./compiler/lua54.can:571
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
+r = r .. (id) -- ./compiler/lua54.can:577
+else -- ./compiler/lua54.can:577
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
+end -- ./compiler/lua54.can:579
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
+r = r .. (", " .. id) -- ./compiler/lua54.can:587
+else -- ./compiler/lua54.can:587
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
+r = r .. (d .. newline()) -- ./compiler/lua54.can:595
+end -- ./compiler/lua54.can:595
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
+end -- ./compiler/lua54.can:598
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
+if hasPush then -- ./compiler/lua54.can:601
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
+else -- ./compiler/lua54.can:602
+push("push", false) -- ./compiler/lua54.can:604
+end -- ./compiler/lua54.can:604
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
+end -- ./compiler/lua54.can:608
+pop("push") -- ./compiler/lua54.can:610
+return r .. unindent() .. "end" -- ./compiler/lua54.can:611
+end, -- ./compiler/lua54.can:611
+["Function"] = function(t) -- ./compiler/lua54.can:613
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
+end, -- ./compiler/lua54.can:614
+["Pair"] = function(t) -- ./compiler/lua54.can:617
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
+end, -- ./compiler/lua54.can:618
+["Table"] = function(t) -- ./compiler/lua54.can:620
+if # t == 0 then -- ./compiler/lua54.can:621
+return "{}" -- ./compiler/lua54.can:622
+elseif # t == 1 then -- ./compiler/lua54.can:623
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
 else -- ./compiler/lua54.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
 end -- ./compiler/lua54.can:626
-else -- ./compiler/lua54.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
-else -- ./compiler/lua54.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-return r -- ./compiler/lua54.can:635
-end, -- ./compiler/lua54.can:635
-["Paren"] = function(t) -- ./compiler/lua54.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
-end, -- ./compiler/lua54.can:639
-["MethodStub"] = function(t) -- ./compiler/lua54.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
-end, -- ./compiler/lua54.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
-end, -- ./compiler/lua54.can:658
-["LetExpr"] = function(t) -- ./compiler/lua54.can:665
-return lua(t[1][1]) -- ./compiler/lua54.can:666
-end, -- ./compiler/lua54.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
-local r = "(function()" .. indent() -- ./compiler/lua54.can:672
-if hasPush then -- ./compiler/lua54.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
-else -- ./compiler/lua54.can:674
-push("push", false) -- ./compiler/lua54.can:676
-end -- ./compiler/lua54.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
-if hasPush then -- ./compiler/lua54.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
-end -- ./compiler/lua54.can:680
-pop("push") -- ./compiler/lua54.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
-return r -- ./compiler/lua54.can:684
-end, -- ./compiler/lua54.can:684
-["DoExpr"] = function(t) -- ./compiler/lua54.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
-end -- ./compiler/lua54.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
-end, -- ./compiler/lua54.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
-end, -- ./compiler/lua54.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
-end, -- ./compiler/lua54.can:699
-["IfExpr"] = function(t) -- ./compiler/lua54.can:702
-for i = 2, # t do -- ./compiler/lua54.can:703
-local block = t[i] -- ./compiler/lua54.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:626
+["TableCompr"] = function(t) -- ./compiler/lua54.can:630
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
+end, -- ./compiler/lua54.can:631
+["Op"] = function(t) -- ./compiler/lua54.can:634
+local r -- ./compiler/lua54.can:635
+if # t == 2 then -- ./compiler/lua54.can:636
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
+else -- ./compiler/lua54.can:638
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
+end -- ./compiler/lua54.can:640
+else -- ./compiler/lua54.can:640
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
+else -- ./compiler/lua54.can:644
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+return r -- ./compiler/lua54.can:649
+end, -- ./compiler/lua54.can:649
+["Paren"] = function(t) -- ./compiler/lua54.can:652
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
+end, -- ./compiler/lua54.can:653
+["MethodStub"] = function(t) -- ./compiler/lua54.can:656
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
+end, -- ./compiler/lua54.can:662
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
+end, -- ./compiler/lua54.can:672
+["LetExpr"] = function(t) -- ./compiler/lua54.can:679
+return lua(t[1][1]) -- ./compiler/lua54.can:680
+end, -- ./compiler/lua54.can:680
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
+local r = "(function()" .. indent() -- ./compiler/lua54.can:686
+if hasPush then -- ./compiler/lua54.can:687
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
+else -- ./compiler/lua54.can:688
+push("push", false) -- ./compiler/lua54.can:690
+end -- ./compiler/lua54.can:690
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
+if hasPush then -- ./compiler/lua54.can:693
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
+end -- ./compiler/lua54.can:694
+pop("push") -- ./compiler/lua54.can:696
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
+return r -- ./compiler/lua54.can:698
+end, -- ./compiler/lua54.can:698
+["DoExpr"] = function(t) -- ./compiler/lua54.can:701
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
+end -- ./compiler/lua54.can:703
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
+end, -- ./compiler/lua54.can:705
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
 end, -- ./compiler/lua54.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
 end, -- ./compiler/lua54.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
-end, -- ./compiler/lua54.can:717
-["Call"] = function(t) -- ./compiler/lua54.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
-else -- ./compiler/lua54.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
-end -- ./compiler/lua54.can:730
-else -- ./compiler/lua54.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
-end -- ./compiler/lua54.can:733
-end, -- ./compiler/lua54.can:733
-["SafeCall"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
-else -- ./compiler/lua54.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
-end -- ./compiler/lua54.can:741
-end, -- ./compiler/lua54.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
-if start == nil then start = 1 end -- ./compiler/lua54.can:746
-local r -- ./compiler/lua54.can:747
-if t[start] then -- ./compiler/lua54.can:748
-r = lua(t[start]) -- ./compiler/lua54.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
-end -- ./compiler/lua54.can:751
+["IfExpr"] = function(t) -- ./compiler/lua54.can:716
+for i = 2, # t do -- ./compiler/lua54.can:717
+local block = t[i] -- ./compiler/lua54.can:718
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
+end, -- ./compiler/lua54.can:723
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
+end, -- ./compiler/lua54.can:727
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
+end, -- ./compiler/lua54.can:731
+["Call"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
+local replacement = macro["replacement"] -- ./compiler/lua54.can:742
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
+macroargs["..."] = (function() -- ./compiler/lua54.can:746
+local self = {} -- ./compiler/lua54.can:746
+for j = i + 1, # t do -- ./compiler/lua54.can:746
+self[#self+1] = t[j] -- ./compiler/lua54.can:746
+end -- ./compiler/lua54.can:746
+return self -- ./compiler/lua54.can:746
+end)() -- ./compiler/lua54.can:746
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
+if t[i + 1] == nil then -- ./compiler/lua54.can:748
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
+end -- ./compiler/lua54.can:749
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
 else -- ./compiler/lua54.can:751
-r = "" -- ./compiler/lua54.can:754
-end -- ./compiler/lua54.can:754
-return r -- ./compiler/lua54.can:756
-end, -- ./compiler/lua54.can:756
-["Id"] = function(t) -- ./compiler/lua54.can:759
-return t[1] -- ./compiler/lua54.can:760
-end, -- ./compiler/lua54.can:760
-["AttributeId"] = function(t) -- ./compiler/lua54.can:763
-if t[2] then -- ./compiler/lua54.can:764
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
-else -- ./compiler/lua54.can:765
-return t[1] -- ./compiler/lua54.can:767
-end -- ./compiler/lua54.can:767
-end, -- ./compiler/lua54.can:767
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
-if t["id"] then -- ./compiler/lua54.can:772
-return t["id"] -- ./compiler/lua54.can:773
-else -- ./compiler/lua54.can:773
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
-for j = 1, # t, 1 do -- ./compiler/lua54.can:777
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
-end -- ./compiler/lua54.can:778
-table["insert"](d, vars) -- ./compiler/lua54.can:780
-t["id"] = vars["id"] -- ./compiler/lua54.can:781
-return vars["id"] -- ./compiler/lua54.can:782
-end -- ./compiler/lua54.can:782
-end, -- ./compiler/lua54.can:782
-["Index"] = function(t) -- ./compiler/lua54.can:786
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
-else -- ./compiler/lua54.can:788
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+push("macroargs", macroargs) -- ./compiler/lua54.can:756
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
+local r = lua(replacement) -- ./compiler/lua54.can:758
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
+pop("macroargs") -- ./compiler/lua54.can:760
+return r -- ./compiler/lua54.can:761
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
+else -- ./compiler/lua54.can:764
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
+end -- ./compiler/lua54.can:766
+else -- ./compiler/lua54.can:766
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+end -- ./compiler/lua54.can:769
+end, -- ./compiler/lua54.can:769
+["SafeCall"] = function(t) -- ./compiler/lua54.can:773
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+else -- ./compiler/lua54.can:775
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+end -- ./compiler/lua54.can:777
+end, -- ./compiler/lua54.can:777
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
+if start == nil then start = 1 end -- ./compiler/lua54.can:782
+local r -- ./compiler/lua54.can:783
+if t[start] then -- ./compiler/lua54.can:784
+r = lua(t[start]) -- ./compiler/lua54.can:785
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
+end -- ./compiler/lua54.can:787
+else -- ./compiler/lua54.can:787
+r = "" -- ./compiler/lua54.can:790
 end -- ./compiler/lua54.can:790
-end, -- ./compiler/lua54.can:790
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
-local l = {} -- ./compiler/lua54.can:796
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
-table["insert"](l, 1, t) -- ./compiler/lua54.can:798
-t = t[1] -- ./compiler/lua54.can:799
-end -- ./compiler/lua54.can:799
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
-for _, e in ipairs(l) do -- ./compiler/lua54.can:802
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
-else -- ./compiler/lua54.can:805
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+return r -- ./compiler/lua54.can:792
+end, -- ./compiler/lua54.can:792
+["Id"] = function(t) -- ./compiler/lua54.can:795
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
+local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:802
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
+local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
+return r -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
-return r -- ./compiler/lua54.can:811
-else -- ./compiler/lua54.can:811
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
-end -- ./compiler/lua54.can:813
-end, -- ./compiler/lua54.can:813
-["_opid"] = { -- ./compiler/lua54.can:818
-["add"] = "+", -- ./compiler/lua54.can:819
-["sub"] = "-", -- ./compiler/lua54.can:819
-["mul"] = "*", -- ./compiler/lua54.can:819
-["div"] = "/", -- ./compiler/lua54.can:819
-["idiv"] = "//", -- ./compiler/lua54.can:820
-["mod"] = "%", -- ./compiler/lua54.can:820
-["pow"] = "^", -- ./compiler/lua54.can:820
-["concat"] = "..", -- ./compiler/lua54.can:820
-["band"] = "&", -- ./compiler/lua54.can:821
-["bor"] = "|", -- ./compiler/lua54.can:821
-["bxor"] = "~", -- ./compiler/lua54.can:821
-["shl"] = "<<", -- ./compiler/lua54.can:821
-["shr"] = ">>", -- ./compiler/lua54.can:821
-["eq"] = "==", -- ./compiler/lua54.can:822
-["ne"] = "~=", -- ./compiler/lua54.can:822
-["lt"] = "<", -- ./compiler/lua54.can:822
-["gt"] = ">", -- ./compiler/lua54.can:822
-["le"] = "<=", -- ./compiler/lua54.can:822
-["ge"] = ">=", -- ./compiler/lua54.can:822
-["and"] = "and", -- ./compiler/lua54.can:823
-["or"] = "or", -- ./compiler/lua54.can:823
-["unm"] = "-", -- ./compiler/lua54.can:823
-["len"] = "#", -- ./compiler/lua54.can:823
-["bnot"] = "~", -- ./compiler/lua54.can:823
-["not"] = "not" -- ./compiler/lua54.can:823
-} -- ./compiler/lua54.can:823
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
-end }) -- ./compiler/lua54.can:827
+return t[1] -- ./compiler/lua54.can:810
+end, -- ./compiler/lua54.can:810
+["AttributeId"] = function(t) -- ./compiler/lua54.can:813
+if t[2] then -- ./compiler/lua54.can:814
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
+else -- ./compiler/lua54.can:815
+return t[1] -- ./compiler/lua54.can:817
+end -- ./compiler/lua54.can:817
+end, -- ./compiler/lua54.can:817
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
+if t["id"] then -- ./compiler/lua54.can:822
+return t["id"] -- ./compiler/lua54.can:823
+else -- ./compiler/lua54.can:823
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
+for j = 1, # t, 1 do -- ./compiler/lua54.can:827
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
+end -- ./compiler/lua54.can:828
+table["insert"](d, vars) -- ./compiler/lua54.can:830
+t["id"] = vars["id"] -- ./compiler/lua54.can:831
+return vars["id"] -- ./compiler/lua54.can:832
+end -- ./compiler/lua54.can:832
+end, -- ./compiler/lua54.can:832
+["Index"] = function(t) -- ./compiler/lua54.can:836
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
+else -- ./compiler/lua54.can:838
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
+end -- ./compiler/lua54.can:840
+end, -- ./compiler/lua54.can:840
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
+local l = {} -- ./compiler/lua54.can:846
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
+table["insert"](l, 1, t) -- ./compiler/lua54.can:848
+t = t[1] -- ./compiler/lua54.can:849
+end -- ./compiler/lua54.can:849
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
+for _, e in ipairs(l) do -- ./compiler/lua54.can:852
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
+else -- ./compiler/lua54.can:855
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
+return r -- ./compiler/lua54.can:861
+else -- ./compiler/lua54.can:861
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
+end -- ./compiler/lua54.can:863
+end, -- ./compiler/lua54.can:863
+["_opid"] = { -- ./compiler/lua54.can:868
+["add"] = "+", -- ./compiler/lua54.can:869
+["sub"] = "-", -- ./compiler/lua54.can:869
+["mul"] = "*", -- ./compiler/lua54.can:869
+["div"] = "/", -- ./compiler/lua54.can:869
+["idiv"] = "//", -- ./compiler/lua54.can:870
+["mod"] = "%", -- ./compiler/lua54.can:870
+["pow"] = "^", -- ./compiler/lua54.can:870
+["concat"] = "..", -- ./compiler/lua54.can:870
+["band"] = "&", -- ./compiler/lua54.can:871
+["bor"] = "|", -- ./compiler/lua54.can:871
+["bxor"] = "~", -- ./compiler/lua54.can:871
+["shl"] = "<<", -- ./compiler/lua54.can:871
+["shr"] = ">>", -- ./compiler/lua54.can:871
+["eq"] = "==", -- ./compiler/lua54.can:872
+["ne"] = "~=", -- ./compiler/lua54.can:872
+["lt"] = "<", -- ./compiler/lua54.can:872
+["gt"] = ">", -- ./compiler/lua54.can:872
+["le"] = "<=", -- ./compiler/lua54.can:872
+["ge"] = ">=", -- ./compiler/lua54.can:872
+["and"] = "and", -- ./compiler/lua54.can:873
+["or"] = "or", -- ./compiler/lua54.can:873
+["unm"] = "-", -- ./compiler/lua54.can:873
+["len"] = "#", -- ./compiler/lua54.can:873
+["bnot"] = "~", -- ./compiler/lua54.can:873
+["not"] = "not" -- ./compiler/lua54.can:873
+} -- ./compiler/lua54.can:873
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
+end }) -- ./compiler/lua54.can:877
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -2755,11 +2948,11 @@ end -- ./compiler/lua52.can:23
 tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
 return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
 end -- ./compiler/lua52.can:26
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
-return requireStr .. code -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
+return requireStr .. code -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+local lua54 = _() or lua54 -- ./compiler/lua54.can:889
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -2771,861 +2964,921 @@ local function _() -- ./compiler/lua52.can:43
 local function _() -- ./compiler/lua52.can:45
 local function _() -- ./compiler/lua52.can:47
 local function _() -- ./compiler/lua52.can:49
-local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
-return function(code, ast, options) -- ./compiler/lua54.can:3
-local lastInputPos = 1 -- ./compiler/lua54.can:5
-local prevLinePos = 1 -- ./compiler/lua54.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
-local lastLine = 1 -- ./compiler/lua54.can:8
-local indentLevel = 0 -- ./compiler/lua54.can:11
-local function newline() -- ./compiler/lua54.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
-if options["mapLines"] then -- ./compiler/lua54.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local util = require("candran.util") -- ./compiler/lua54.can:1
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
+return function(code, ast, options, macros) -- ./compiler/lua54.can:5
+if macros == nil then macros = { -- ./compiler/lua54.can:5
+["functions"] = {}, -- ./compiler/lua54.can:5
+["variables"] = {} -- ./compiler/lua54.can:5
+} end -- ./compiler/lua54.can:5
+local lastInputPos = 1 -- ./compiler/lua54.can:7
+local prevLinePos = 1 -- ./compiler/lua54.can:8
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
+local lastLine = 1 -- ./compiler/lua54.can:10
+local indentLevel = 0 -- ./compiler/lua54.can:13
+local function newline() -- ./compiler/lua54.can:15
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
+if options["mapLines"] then -- ./compiler/lua54.can:17
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:17
-if source and line then -- ./compiler/lua54.can:19
-lastSource = source -- ./compiler/lua54.can:20
-lastLine = tonumber(line) -- ./compiler/lua54.can:21
-else -- ./compiler/lua54.can:21
+") -- ./compiler/lua54.can:19
+if source and line then -- ./compiler/lua54.can:21
+lastSource = source -- ./compiler/lua54.can:22
+lastLine = tonumber(line) -- ./compiler/lua54.can:23
+else -- ./compiler/lua54.can:23
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:23
-lastLine = lastLine + (1) -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-prevLinePos = lastInputPos -- ./compiler/lua54.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
-end -- ./compiler/lua54.can:30
-return r -- ./compiler/lua54.can:32
+") do -- ./compiler/lua54.can:25
+lastLine = lastLine + (1) -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+prevLinePos = lastInputPos -- ./compiler/lua54.can:30
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
 end -- ./compiler/lua54.can:32
-local function indent() -- ./compiler/lua54.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
-return newline() -- ./compiler/lua54.can:37
-end -- ./compiler/lua54.can:37
-local function unindent() -- ./compiler/lua54.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
-return newline() -- ./compiler/lua54.can:42
-end -- ./compiler/lua54.can:42
-local states = { -- ./compiler/lua54.can:47
-["push"] = {}, -- ./compiler/lua54.can:48
-["destructuring"] = {}, -- ./compiler/lua54.can:49
-["scope"] = {} -- ./compiler/lua54.can:50
-} -- ./compiler/lua54.can:50
-local function push(name, state) -- ./compiler/lua54.can:53
-table["insert"](states[name], state) -- ./compiler/lua54.can:54
-return "" -- ./compiler/lua54.can:55
-end -- ./compiler/lua54.can:55
-local function pop(name) -- ./compiler/lua54.can:58
-table["remove"](states[name]) -- ./compiler/lua54.can:59
-return "" -- ./compiler/lua54.can:60
-end -- ./compiler/lua54.can:60
-local function set(name, state) -- ./compiler/lua54.can:63
-states[name][# states[name]] = state -- ./compiler/lua54.can:64
-return "" -- ./compiler/lua54.can:65
-end -- ./compiler/lua54.can:65
-local function peek(name) -- ./compiler/lua54.can:68
-return states[name][# states[name]] -- ./compiler/lua54.can:69
-end -- ./compiler/lua54.can:69
-local function var(name) -- ./compiler/lua54.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
-end -- ./compiler/lua54.can:75
-local function tmp() -- ./compiler/lua54.can:79
-local scope = peek("scope") -- ./compiler/lua54.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
-table["insert"](scope, var) -- ./compiler/lua54.can:82
-return var -- ./compiler/lua54.can:83
-end -- ./compiler/lua54.can:83
-local required = {} -- ./compiler/lua54.can:87
-local requireStr = "" -- ./compiler/lua54.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
-if not required[req] then -- ./compiler/lua54.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
-required[req] = true -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-local loop = { -- ./compiler/lua54.can:99
-"While", -- ./compiler/lua54.can:99
-"Repeat", -- ./compiler/lua54.can:99
-"Fornum", -- ./compiler/lua54.can:99
-"Forin", -- ./compiler/lua54.can:99
-"WhileExpr", -- ./compiler/lua54.can:99
-"RepeatExpr", -- ./compiler/lua54.can:99
-"FornumExpr", -- ./compiler/lua54.can:99
-"ForinExpr" -- ./compiler/lua54.can:99
-} -- ./compiler/lua54.can:99
-local func = { -- ./compiler/lua54.can:100
-"Function", -- ./compiler/lua54.can:100
-"TableCompr", -- ./compiler/lua54.can:100
-"DoExpr", -- ./compiler/lua54.can:100
-"WhileExpr", -- ./compiler/lua54.can:100
-"RepeatExpr", -- ./compiler/lua54.can:100
-"IfExpr", -- ./compiler/lua54.can:100
-"FornumExpr", -- ./compiler/lua54.can:100
-"ForinExpr" -- ./compiler/lua54.can:100
-} -- ./compiler/lua54.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
-local tagsCheck = {} -- ./compiler/lua54.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
-tagsCheck[tag] = true -- ./compiler/lua54.can:107
-end -- ./compiler/lua54.can:107
-local nofollowCheck = {} -- ./compiler/lua54.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
-nofollowCheck[tag] = true -- ./compiler/lua54.can:111
-end -- ./compiler/lua54.can:111
-for _, node in ipairs(list) do -- ./compiler/lua54.can:113
-if type(node) == "table" then -- ./compiler/lua54.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
-return node -- ./compiler/lua54.can:116
-end -- ./compiler/lua54.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
-if r then -- ./compiler/lua54.can:120
-return r -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-return nil -- ./compiler/lua54.can:124
-end -- ./compiler/lua54.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
-local tagsCheck = {} -- ./compiler/lua54.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
-tagsCheck[tag] = true -- ./compiler/lua54.can:132
-end -- ./compiler/lua54.can:132
-local nofollowCheck = {} -- ./compiler/lua54.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
-nofollowCheck[tag] = true -- ./compiler/lua54.can:136
-end -- ./compiler/lua54.can:136
-local found = {} -- ./compiler/lua54.can:138
-for _, node in ipairs(list) do -- ./compiler/lua54.can:139
-if type(node) == "table" then -- ./compiler/lua54.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
-table["insert"](found, n) -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
-table["insert"](found, node) -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-return found -- ./compiler/lua54.can:151
-end -- ./compiler/lua54.can:151
-local function all(list, tags) -- ./compiler/lua54.can:155
-for _, node in ipairs(list) do -- ./compiler/lua54.can:156
-local ok = false -- ./compiler/lua54.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
-if node["tag"] == tag then -- ./compiler/lua54.can:159
-ok = true -- ./compiler/lua54.can:160
-break -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-if not ok then -- ./compiler/lua54.can:164
-return false -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-return true -- ./compiler/lua54.can:168
-end -- ./compiler/lua54.can:168
-local tags -- ./compiler/lua54.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
-end -- ./compiler/lua54.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
-end -- ./compiler/lua54.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
-end -- ./compiler/lua54.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
-end -- ./compiler/lua54.can:186
-local CONTINUE_START = function() -- ./compiler/lua54.can:188
-return "do" .. indent() -- ./compiler/lua54.can:189
+return r -- ./compiler/lua54.can:34
+end -- ./compiler/lua54.can:34
+local function indent() -- ./compiler/lua54.can:37
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
+return newline() -- ./compiler/lua54.can:39
+end -- ./compiler/lua54.can:39
+local function unindent() -- ./compiler/lua54.can:42
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
+return newline() -- ./compiler/lua54.can:44
+end -- ./compiler/lua54.can:44
+local states = { -- ./compiler/lua54.can:49
+["push"] = {}, -- ./compiler/lua54.can:50
+["destructuring"] = {}, -- ./compiler/lua54.can:51
+["scope"] = {}, -- ./compiler/lua54.can:52
+["macroargs"] = {} -- ./compiler/lua54.can:53
+} -- ./compiler/lua54.can:53
+local function push(name, state) -- ./compiler/lua54.can:56
+table["insert"](states[name], state) -- ./compiler/lua54.can:57
+return "" -- ./compiler/lua54.can:58
+end -- ./compiler/lua54.can:58
+local function pop(name) -- ./compiler/lua54.can:61
+table["remove"](states[name]) -- ./compiler/lua54.can:62
+return "" -- ./compiler/lua54.can:63
+end -- ./compiler/lua54.can:63
+local function set(name, state) -- ./compiler/lua54.can:66
+states[name][# states[name]] = state -- ./compiler/lua54.can:67
+return "" -- ./compiler/lua54.can:68
+end -- ./compiler/lua54.can:68
+local function peek(name) -- ./compiler/lua54.can:71
+return states[name][# states[name]] -- ./compiler/lua54.can:72
+end -- ./compiler/lua54.can:72
+local function var(name) -- ./compiler/lua54.can:77
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
+end -- ./compiler/lua54.can:78
+local function tmp() -- ./compiler/lua54.can:82
+local scope = peek("scope") -- ./compiler/lua54.can:83
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
+table["insert"](scope, var) -- ./compiler/lua54.can:85
+return var -- ./compiler/lua54.can:86
+end -- ./compiler/lua54.can:86
+local nomacro = { -- ./compiler/lua54.can:90
+["variables"] = {}, -- ./compiler/lua54.can:90
+["functions"] = {} -- ./compiler/lua54.can:90
+} -- ./compiler/lua54.can:90
+local required = {} -- ./compiler/lua54.can:93
+local requireStr = "" -- ./compiler/lua54.can:94
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
+if not required[req] then -- ./compiler/lua54.can:98
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
+required[req] = true -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+local loop = { -- ./compiler/lua54.can:105
+"While", -- ./compiler/lua54.can:105
+"Repeat", -- ./compiler/lua54.can:105
+"Fornum", -- ./compiler/lua54.can:105
+"Forin", -- ./compiler/lua54.can:105
+"WhileExpr", -- ./compiler/lua54.can:105
+"RepeatExpr", -- ./compiler/lua54.can:105
+"FornumExpr", -- ./compiler/lua54.can:105
+"ForinExpr" -- ./compiler/lua54.can:105
+} -- ./compiler/lua54.can:105
+local func = { -- ./compiler/lua54.can:106
+"Function", -- ./compiler/lua54.can:106
+"TableCompr", -- ./compiler/lua54.can:106
+"DoExpr", -- ./compiler/lua54.can:106
+"WhileExpr", -- ./compiler/lua54.can:106
+"RepeatExpr", -- ./compiler/lua54.can:106
+"IfExpr", -- ./compiler/lua54.can:106
+"FornumExpr", -- ./compiler/lua54.can:106
+"ForinExpr" -- ./compiler/lua54.can:106
+} -- ./compiler/lua54.can:106
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
+local tagsCheck = {} -- ./compiler/lua54.can:111
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
+tagsCheck[tag] = true -- ./compiler/lua54.can:113
+end -- ./compiler/lua54.can:113
+local nofollowCheck = {} -- ./compiler/lua54.can:115
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
+nofollowCheck[tag] = true -- ./compiler/lua54.can:117
+end -- ./compiler/lua54.can:117
+for _, node in ipairs(list) do -- ./compiler/lua54.can:119
+if type(node) == "table" then -- ./compiler/lua54.can:120
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
+return node -- ./compiler/lua54.can:122
+end -- ./compiler/lua54.can:122
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
+if r then -- ./compiler/lua54.can:126
+return r -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+return nil -- ./compiler/lua54.can:130
+end -- ./compiler/lua54.can:130
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
+local tagsCheck = {} -- ./compiler/lua54.can:136
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
+tagsCheck[tag] = true -- ./compiler/lua54.can:138
+end -- ./compiler/lua54.can:138
+local nofollowCheck = {} -- ./compiler/lua54.can:140
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
+nofollowCheck[tag] = true -- ./compiler/lua54.can:142
+end -- ./compiler/lua54.can:142
+local found = {} -- ./compiler/lua54.can:144
+for _, node in ipairs(list) do -- ./compiler/lua54.can:145
+if type(node) == "table" then -- ./compiler/lua54.can:146
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
+table["insert"](found, n) -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
+table["insert"](found, node) -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+return found -- ./compiler/lua54.can:157
+end -- ./compiler/lua54.can:157
+local function all(list, tags) -- ./compiler/lua54.can:161
+for _, node in ipairs(list) do -- ./compiler/lua54.can:162
+local ok = false -- ./compiler/lua54.can:163
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
+if node["tag"] == tag then -- ./compiler/lua54.can:165
+ok = true -- ./compiler/lua54.can:166
+break -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+if not ok then -- ./compiler/lua54.can:170
+return false -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+return true -- ./compiler/lua54.can:174
+end -- ./compiler/lua54.can:174
+local tags -- ./compiler/lua54.can:178
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
+end -- ./compiler/lua54.can:182
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+end -- ./compiler/lua54.can:184
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
 end -- ./compiler/lua54.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
 end -- ./compiler/lua54.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
-local vars = {} -- ./compiler/lua54.can:195
-local values = {} -- ./compiler/lua54.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
-for _, v in ipairs(list) do -- ./compiler/lua54.can:198
-local var, val -- ./compiler/lua54.can:199
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
-var = v -- ./compiler/lua54.can:201
-val = { -- ./compiler/lua54.can:202
-["tag"] = "Index", -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "Id", -- ./compiler/lua54.can:202
-list["id"] -- ./compiler/lua54.can:202
-}, -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "String", -- ./compiler/lua54.can:202
-v[1] -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
-var = v[2] -- ./compiler/lua54.can:204
-val = { -- ./compiler/lua54.can:205
-["tag"] = "Index", -- ./compiler/lua54.can:205
-{ -- ./compiler/lua54.can:205
-["tag"] = "Id", -- ./compiler/lua54.can:205
-list["id"] -- ./compiler/lua54.can:205
-}, -- ./compiler/lua54.can:205
-v[1] -- ./compiler/lua54.can:205
-} -- ./compiler/lua54.can:205
-else -- ./compiler/lua54.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
-end -- ./compiler/lua54.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
-val = { -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["rightOp"], -- ./compiler/lua54.can:210
-var, -- ./compiler/lua54.can:210
-{ -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["leftOp"], -- ./compiler/lua54.can:210
-val, -- ./compiler/lua54.can:210
-var -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
-val = { -- ./compiler/lua54.can:212
-["tag"] = "Op", -- ./compiler/lua54.can:212
-destructured["rightOp"], -- ./compiler/lua54.can:212
-var, -- ./compiler/lua54.can:212
-val -- ./compiler/lua54.can:212
-} -- ./compiler/lua54.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
-val = { -- ./compiler/lua54.can:214
-["tag"] = "Op", -- ./compiler/lua54.can:214
-destructured["leftOp"], -- ./compiler/lua54.can:214
-val, -- ./compiler/lua54.can:214
-var -- ./compiler/lua54.can:214
-} -- ./compiler/lua54.can:214
-end -- ./compiler/lua54.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-if # vars > 0 then -- ./compiler/lua54.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
-if newlineAfter then -- ./compiler/lua54.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
-else -- ./compiler/lua54.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
-end -- ./compiler/lua54.can:225
-else -- ./compiler/lua54.can:225
-return "" -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-tags = setmetatable({ -- ./compiler/lua54.can:233
-["Block"] = function(t) -- ./compiler/lua54.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
-hasPush = false -- ./compiler/lua54.can:239
-end -- ./compiler/lua54.can:239
-local r = push("scope", {}) -- ./compiler/lua54.can:241
-if hasPush then -- ./compiler/lua54.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
-end -- ./compiler/lua54.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
-end -- ./compiler/lua54.can:246
-if t[# t] then -- ./compiler/lua54.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+local CONTINUE_START = function() -- ./compiler/lua54.can:194
+return "do" .. indent() -- ./compiler/lua54.can:195
+end -- ./compiler/lua54.can:195
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
+end -- ./compiler/lua54.can:198
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
+local vars = {} -- ./compiler/lua54.can:201
+local values = {} -- ./compiler/lua54.can:202
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
+for _, v in ipairs(list) do -- ./compiler/lua54.can:204
+local var, val -- ./compiler/lua54.can:205
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
+var = v -- ./compiler/lua54.can:207
+val = { -- ./compiler/lua54.can:208
+["tag"] = "Index", -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "Id", -- ./compiler/lua54.can:208
+list["id"] -- ./compiler/lua54.can:208
+}, -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "String", -- ./compiler/lua54.can:208
+v[1] -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
+var = v[2] -- ./compiler/lua54.can:210
+val = { -- ./compiler/lua54.can:211
+["tag"] = "Index", -- ./compiler/lua54.can:211
+{ -- ./compiler/lua54.can:211
+["tag"] = "Id", -- ./compiler/lua54.can:211
+list["id"] -- ./compiler/lua54.can:211
+}, -- ./compiler/lua54.can:211
+v[1] -- ./compiler/lua54.can:211
+} -- ./compiler/lua54.can:211
+else -- ./compiler/lua54.can:211
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
+end -- ./compiler/lua54.can:213
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
+val = { -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["rightOp"], -- ./compiler/lua54.can:216
+var, -- ./compiler/lua54.can:216
+{ -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["leftOp"], -- ./compiler/lua54.can:216
+val, -- ./compiler/lua54.can:216
+var -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+val = { -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["rightOp"], -- ./compiler/lua54.can:218
+var, -- ./compiler/lua54.can:218
+val -- ./compiler/lua54.can:218
+} -- ./compiler/lua54.can:218
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+val = { -- ./compiler/lua54.can:220
+["tag"] = "Op", -- ./compiler/lua54.can:220
+destructured["leftOp"], -- ./compiler/lua54.can:220
+val, -- ./compiler/lua54.can:220
+var -- ./compiler/lua54.can:220
+} -- ./compiler/lua54.can:220
+end -- ./compiler/lua54.can:220
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+if # vars > 0 then -- ./compiler/lua54.can:226
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
+if newlineAfter then -- ./compiler/lua54.can:228
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
+else -- ./compiler/lua54.can:229
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
+end -- ./compiler/lua54.can:231
+else -- ./compiler/lua54.can:231
+return "" -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+tags = setmetatable({ -- ./compiler/lua54.can:239
+["Block"] = function(t) -- ./compiler/lua54.can:241
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
+hasPush = false -- ./compiler/lua54.can:245
+end -- ./compiler/lua54.can:245
+local r = push("scope", {}) -- ./compiler/lua54.can:247
+if hasPush then -- ./compiler/lua54.can:248
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
 end -- ./compiler/lua54.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
 end -- ./compiler/lua54.can:252
-return r .. pop("scope") -- ./compiler/lua54.can:254
-end, -- ./compiler/lua54.can:254
-["Do"] = function(t) -- ./compiler/lua54.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
-end, -- ./compiler/lua54.can:261
-["Set"] = function(t) -- ./compiler/lua54.can:264
-local expr = t[# t] -- ./compiler/lua54.can:266
-local vars, values = {}, {} -- ./compiler/lua54.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
-else -- ./compiler/lua54.can:272
-table["insert"](vars, n) -- ./compiler/lua54.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
-local r = "" -- ./compiler/lua54.can:280
-if # vars > 0 then -- ./compiler/lua54.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
-end -- ./compiler/lua54.can:282
-if # destructuringVars > 0 then -- ./compiler/lua54.can:284
-local destructured = {} -- ./compiler/lua54.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
-end -- ./compiler/lua54.can:287
-return r -- ./compiler/lua54.can:289
-elseif # t == 4 then -- ./compiler/lua54.can:290
-if t[3] == "=" then -- ./compiler/lua54.can:291
-local r = "" -- ./compiler/lua54.can:292
-if # vars > 0 then -- ./compiler/lua54.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
-t[2], -- ./compiler/lua54.can:294
-vars[1], -- ./compiler/lua54.can:294
-{ -- ./compiler/lua54.can:294
-["tag"] = "Paren", -- ./compiler/lua54.can:294
-values[1] -- ./compiler/lua54.can:294
-} -- ./compiler/lua54.can:294
-}, "Op")) -- ./compiler/lua54.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
-t[2], -- ./compiler/lua54.can:296
-vars[i], -- ./compiler/lua54.can:296
-{ -- ./compiler/lua54.can:296
-["tag"] = "Paren", -- ./compiler/lua54.can:296
-values[i] -- ./compiler/lua54.can:296
-} -- ./compiler/lua54.can:296
-}, "Op")) -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-if # destructuringVars > 0 then -- ./compiler/lua54.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+if t[# t] then -- ./compiler/lua54.can:254
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
+end -- ./compiler/lua54.can:255
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
+end -- ./compiler/lua54.can:258
+return r .. pop("scope") -- ./compiler/lua54.can:260
+end, -- ./compiler/lua54.can:260
+["Do"] = function(t) -- ./compiler/lua54.can:266
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
+end, -- ./compiler/lua54.can:267
+["Set"] = function(t) -- ./compiler/lua54.can:270
+local expr = t[# t] -- ./compiler/lua54.can:272
+local vars, values = {}, {} -- ./compiler/lua54.can:273
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
+else -- ./compiler/lua54.can:278
+table["insert"](vars, n) -- ./compiler/lua54.can:280
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
+local r = "" -- ./compiler/lua54.can:286
+if # vars > 0 then -- ./compiler/lua54.can:287
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
+end -- ./compiler/lua54.can:288
+if # destructuringVars > 0 then -- ./compiler/lua54.can:290
+local destructured = {} -- ./compiler/lua54.can:291
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
+end -- ./compiler/lua54.can:293
+return r -- ./compiler/lua54.can:295
+elseif # t == 4 then -- ./compiler/lua54.can:296
+if t[3] == "=" then -- ./compiler/lua54.can:297
+local r = "" -- ./compiler/lua54.can:298
+if # vars > 0 then -- ./compiler/lua54.can:299
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
+t[2], -- ./compiler/lua54.can:300
+vars[1], -- ./compiler/lua54.can:300
+{ -- ./compiler/lua54.can:300
+["tag"] = "Paren", -- ./compiler/lua54.can:300
+values[1] -- ./compiler/lua54.can:300
+} -- ./compiler/lua54.can:300
+}, "Op")) -- ./compiler/lua54.can:300
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+t[2], -- ./compiler/lua54.can:302
+vars[i], -- ./compiler/lua54.can:302
+{ -- ./compiler/lua54.can:302
+["tag"] = "Paren", -- ./compiler/lua54.can:302
+values[i] -- ./compiler/lua54.can:302
+} -- ./compiler/lua54.can:302
+}, "Op")) -- ./compiler/lua54.can:302
 end -- ./compiler/lua54.can:302
-return r -- ./compiler/lua54.can:304
-else -- ./compiler/lua54.can:304
-local r = "" -- ./compiler/lua54.can:306
-if # vars > 0 then -- ./compiler/lua54.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
-t[3], -- ./compiler/lua54.can:308
-{ -- ./compiler/lua54.can:308
-["tag"] = "Paren", -- ./compiler/lua54.can:308
-values[1] -- ./compiler/lua54.can:308
-}, -- ./compiler/lua54.can:308
-vars[1] -- ./compiler/lua54.can:308
-}, "Op")) -- ./compiler/lua54.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
-t[3], -- ./compiler/lua54.can:310
-{ -- ./compiler/lua54.can:310
-["tag"] = "Paren", -- ./compiler/lua54.can:310
-values[i] -- ./compiler/lua54.can:310
-}, -- ./compiler/lua54.can:310
-vars[i] -- ./compiler/lua54.can:310
-}, "Op")) -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-if # destructuringVars > 0 then -- ./compiler/lua54.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:302
+if # destructuringVars > 0 then -- ./compiler/lua54.can:305
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
+end -- ./compiler/lua54.can:308
+return r -- ./compiler/lua54.can:310
+else -- ./compiler/lua54.can:310
+local r = "" -- ./compiler/lua54.can:312
+if # vars > 0 then -- ./compiler/lua54.can:313
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
+t[3], -- ./compiler/lua54.can:314
+{ -- ./compiler/lua54.can:314
+["tag"] = "Paren", -- ./compiler/lua54.can:314
+values[1] -- ./compiler/lua54.can:314
+}, -- ./compiler/lua54.can:314
+vars[1] -- ./compiler/lua54.can:314
+}, "Op")) -- ./compiler/lua54.can:314
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+t[3], -- ./compiler/lua54.can:316
+{ -- ./compiler/lua54.can:316
+["tag"] = "Paren", -- ./compiler/lua54.can:316
+values[i] -- ./compiler/lua54.can:316
+}, -- ./compiler/lua54.can:316
+vars[i] -- ./compiler/lua54.can:316
+}, "Op")) -- ./compiler/lua54.can:316
 end -- ./compiler/lua54.can:316
-return r -- ./compiler/lua54.can:318
-end -- ./compiler/lua54.can:318
-else -- ./compiler/lua54.can:318
-local r = "" -- ./compiler/lua54.can:321
-if # vars > 0 then -- ./compiler/lua54.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
-t[2], -- ./compiler/lua54.can:323
-vars[1], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Op", -- ./compiler/lua54.can:323
-t[4], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Paren", -- ./compiler/lua54.can:323
-values[1] -- ./compiler/lua54.can:323
-}, -- ./compiler/lua54.can:323
-vars[1] -- ./compiler/lua54.can:323
-} -- ./compiler/lua54.can:323
-}, "Op")) -- ./compiler/lua54.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
-t[2], -- ./compiler/lua54.can:325
-vars[i], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Op", -- ./compiler/lua54.can:325
-t[4], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Paren", -- ./compiler/lua54.can:325
-values[i] -- ./compiler/lua54.can:325
-}, -- ./compiler/lua54.can:325
-vars[i] -- ./compiler/lua54.can:325
-} -- ./compiler/lua54.can:325
-}, "Op")) -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-if # destructuringVars > 0 then -- ./compiler/lua54.can:328
-local destructured = { -- ./compiler/lua54.can:329
-["rightOp"] = t[2], -- ./compiler/lua54.can:329
-["leftOp"] = t[4] -- ./compiler/lua54.can:329
+end -- ./compiler/lua54.can:316
+if # destructuringVars > 0 then -- ./compiler/lua54.can:319
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
+end -- ./compiler/lua54.can:322
+return r -- ./compiler/lua54.can:324
+end -- ./compiler/lua54.can:324
+else -- ./compiler/lua54.can:324
+local r = "" -- ./compiler/lua54.can:327
+if # vars > 0 then -- ./compiler/lua54.can:328
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
+t[2], -- ./compiler/lua54.can:329
+vars[1], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Op", -- ./compiler/lua54.can:329
+t[4], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Paren", -- ./compiler/lua54.can:329
+values[1] -- ./compiler/lua54.can:329
+}, -- ./compiler/lua54.can:329
+vars[1] -- ./compiler/lua54.can:329
 } -- ./compiler/lua54.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:329
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+t[2], -- ./compiler/lua54.can:331
+vars[i], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Op", -- ./compiler/lua54.can:331
+t[4], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Paren", -- ./compiler/lua54.can:331
+values[i] -- ./compiler/lua54.can:331
+}, -- ./compiler/lua54.can:331
+vars[i] -- ./compiler/lua54.can:331
+} -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:331
 end -- ./compiler/lua54.can:331
-return r -- ./compiler/lua54.can:333
-end -- ./compiler/lua54.can:333
-end, -- ./compiler/lua54.can:333
-["While"] = function(t) -- ./compiler/lua54.can:337
-local r = "" -- ./compiler/lua54.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
-if # lets > 0 then -- ./compiler/lua54.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
-if # lets > 0 then -- ./compiler/lua54.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
-end -- ./compiler/lua54.can:349
-if hasContinue then -- ./compiler/lua54.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
-end -- ./compiler/lua54.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
-if hasContinue then -- ./compiler/lua54.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
-end -- ./compiler/lua54.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
-if # lets > 0 then -- ./compiler/lua54.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
-end -- ./compiler/lua54.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
-end -- ./compiler/lua54.can:363
-return r -- ./compiler/lua54.can:365
-end, -- ./compiler/lua54.can:365
-["Repeat"] = function(t) -- ./compiler/lua54.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
-local r = "repeat" .. indent() -- ./compiler/lua54.can:370
-if hasContinue then -- ./compiler/lua54.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
-end -- ./compiler/lua54.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
-if hasContinue then -- ./compiler/lua54.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
-end -- ./compiler/lua54.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
-return r -- ./compiler/lua54.can:379
-end, -- ./compiler/lua54.can:379
-["If"] = function(t) -- ./compiler/lua54.can:382
-local r = "" -- ./compiler/lua54.can:383
-local toClose = 0 -- ./compiler/lua54.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
-if # lets > 0 then -- ./compiler/lua54.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
-toClose = toClose + (1) -- ./compiler/lua54.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
-if # lets > 0 then -- ./compiler/lua54.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
-toClose = toClose + (1) -- ./compiler/lua54.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
-end -- ./compiler/lua54.can:400
-else -- ./compiler/lua54.can:400
-r = r .. ("else") -- ./compiler/lua54.can:403
-end -- ./compiler/lua54.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
-end -- ./compiler/lua54.can:405
-if # t % 2 == 1 then -- ./compiler/lua54.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
-end -- ./compiler/lua54.can:408
-r = r .. ("end") -- ./compiler/lua54.can:410
-for i = 1, toClose do -- ./compiler/lua54.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
-end -- ./compiler/lua54.can:412
-return r -- ./compiler/lua54.can:414
-end, -- ./compiler/lua54.can:414
-["Fornum"] = function(t) -- ./compiler/lua54.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
-if # t == 5 then -- ./compiler/lua54.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
-if hasContinue then -- ./compiler/lua54.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
-end -- ./compiler/lua54.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
-if hasContinue then -- ./compiler/lua54.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
-end -- ./compiler/lua54.can:427
-return r .. unindent() .. "end" -- ./compiler/lua54.can:429
-else -- ./compiler/lua54.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
-if hasContinue then -- ./compiler/lua54.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
-end -- ./compiler/lua54.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
-if hasContinue then -- ./compiler/lua54.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
-end -- ./compiler/lua54.can:438
-return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:331
+if # destructuringVars > 0 then -- ./compiler/lua54.can:334
+local destructured = { -- ./compiler/lua54.can:335
+["rightOp"] = t[2], -- ./compiler/lua54.can:335
+["leftOp"] = t[4] -- ./compiler/lua54.can:335
+} -- ./compiler/lua54.can:335
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
+end -- ./compiler/lua54.can:337
+return r -- ./compiler/lua54.can:339
+end -- ./compiler/lua54.can:339
+end, -- ./compiler/lua54.can:339
+["While"] = function(t) -- ./compiler/lua54.can:343
+local r = "" -- ./compiler/lua54.can:344
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
+if # lets > 0 then -- ./compiler/lua54.can:347
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
+if # lets > 0 then -- ./compiler/lua54.can:354
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
+end -- ./compiler/lua54.can:355
+if hasContinue then -- ./compiler/lua54.can:357
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
+end -- ./compiler/lua54.can:358
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
+if hasContinue then -- ./compiler/lua54.can:361
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
+end -- ./compiler/lua54.can:362
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
+if # lets > 0 then -- ./compiler/lua54.can:365
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
+end -- ./compiler/lua54.can:367
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+end -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:371
+end, -- ./compiler/lua54.can:371
+["Repeat"] = function(t) -- ./compiler/lua54.can:374
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
+local r = "repeat" .. indent() -- ./compiler/lua54.can:376
+if hasContinue then -- ./compiler/lua54.can:377
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
+end -- ./compiler/lua54.can:378
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
+if hasContinue then -- ./compiler/lua54.can:381
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
+end -- ./compiler/lua54.can:382
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
+return r -- ./compiler/lua54.can:385
+end, -- ./compiler/lua54.can:385
+["If"] = function(t) -- ./compiler/lua54.can:388
+local r = "" -- ./compiler/lua54.can:389
+local toClose = 0 -- ./compiler/lua54.can:390
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
+if # lets > 0 then -- ./compiler/lua54.can:392
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
+toClose = toClose + (1) -- ./compiler/lua54.can:394
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
+if # lets > 0 then -- ./compiler/lua54.can:402
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
+toClose = toClose + (1) -- ./compiler/lua54.can:404
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
+end -- ./compiler/lua54.can:406
+else -- ./compiler/lua54.can:406
+r = r .. ("else") -- ./compiler/lua54.can:409
+end -- ./compiler/lua54.can:409
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+end -- ./compiler/lua54.can:411
+if # t % 2 == 1 then -- ./compiler/lua54.can:413
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
+end -- ./compiler/lua54.can:414
+r = r .. ("end") -- ./compiler/lua54.can:416
+for i = 1, toClose do -- ./compiler/lua54.can:417
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
+end -- ./compiler/lua54.can:418
+return r -- ./compiler/lua54.can:420
+end, -- ./compiler/lua54.can:420
+["Fornum"] = function(t) -- ./compiler/lua54.can:423
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
+if # t == 5 then -- ./compiler/lua54.can:425
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
+if hasContinue then -- ./compiler/lua54.can:428
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
+end -- ./compiler/lua54.can:429
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
+if hasContinue then -- ./compiler/lua54.can:432
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
+end -- ./compiler/lua54.can:433
+return r .. unindent() .. "end" -- ./compiler/lua54.can:435
+else -- ./compiler/lua54.can:435
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
+if hasContinue then -- ./compiler/lua54.can:439
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
 end -- ./compiler/lua54.can:440
-end, -- ./compiler/lua54.can:440
-["Forin"] = function(t) -- ./compiler/lua54.can:444
-local destructured = {} -- ./compiler/lua54.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
-if hasContinue then -- ./compiler/lua54.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
-end -- ./compiler/lua54.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
-if hasContinue then -- ./compiler/lua54.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
-end -- ./compiler/lua54.can:453
-return r .. unindent() .. "end" -- ./compiler/lua54.can:455
-end, -- ./compiler/lua54.can:455
-["Local"] = function(t) -- ./compiler/lua54.can:458
-local destructured = {} -- ./compiler/lua54.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
-if t[2][1] then -- ./compiler/lua54.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
-end -- ./compiler/lua54.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
-end, -- ./compiler/lua54.can:464
-["Let"] = function(t) -- ./compiler/lua54.can:467
-local destructured = {} -- ./compiler/lua54.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
-local r = "local " .. nameList -- ./compiler/lua54.can:470
-if t[2][1] then -- ./compiler/lua54.can:471
-if all(t[2], { -- ./compiler/lua54.can:472
-"Nil", -- ./compiler/lua54.can:472
-"Dots", -- ./compiler/lua54.can:472
-"Boolean", -- ./compiler/lua54.can:472
-"Number", -- ./compiler/lua54.can:472
-"String" -- ./compiler/lua54.can:472
-}) then -- ./compiler/lua54.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
-else -- ./compiler/lua54.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
-end, -- ./compiler/lua54.can:478
-["Localrec"] = function(t) -- ./compiler/lua54.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
-end, -- ./compiler/lua54.can:482
-["Goto"] = function(t) -- ./compiler/lua54.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
-end, -- ./compiler/lua54.can:486
-["Label"] = function(t) -- ./compiler/lua54.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
-end, -- ./compiler/lua54.can:490
-["Return"] = function(t) -- ./compiler/lua54.can:493
-local push = peek("push") -- ./compiler/lua54.can:494
-if push then -- ./compiler/lua54.can:495
-local r = "" -- ./compiler/lua54.can:496
-for _, val in ipairs(t) do -- ./compiler/lua54.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
-end -- ./compiler/lua54.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
-else -- ./compiler/lua54.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
-end -- ./compiler/lua54.can:502
-end, -- ./compiler/lua54.can:502
-["Push"] = function(t) -- ./compiler/lua54.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
-r = "" -- ./compiler/lua54.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
-end -- ./compiler/lua54.can:510
-if t[# t] then -- ./compiler/lua54.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
-else -- ./compiler/lua54.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
+if hasContinue then -- ./compiler/lua54.can:443
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
+end -- ./compiler/lua54.can:444
+return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+end -- ./compiler/lua54.can:446
+end, -- ./compiler/lua54.can:446
+["Forin"] = function(t) -- ./compiler/lua54.can:450
+local destructured = {} -- ./compiler/lua54.can:451
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
+if hasContinue then -- ./compiler/lua54.can:454
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
+end -- ./compiler/lua54.can:455
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
+if hasContinue then -- ./compiler/lua54.can:458
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
+end -- ./compiler/lua54.can:459
+return r .. unindent() .. "end" -- ./compiler/lua54.can:461
+end, -- ./compiler/lua54.can:461
+["Local"] = function(t) -- ./compiler/lua54.can:464
+local destructured = {} -- ./compiler/lua54.can:465
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
+if t[2][1] then -- ./compiler/lua54.can:467
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
+end -- ./compiler/lua54.can:468
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
+end, -- ./compiler/lua54.can:470
+["Let"] = function(t) -- ./compiler/lua54.can:473
+local destructured = {} -- ./compiler/lua54.can:474
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
+local r = "local " .. nameList -- ./compiler/lua54.can:476
+if t[2][1] then -- ./compiler/lua54.can:477
+if all(t[2], { -- ./compiler/lua54.can:478
+"Nil", -- ./compiler/lua54.can:478
+"Dots", -- ./compiler/lua54.can:478
+"Boolean", -- ./compiler/lua54.can:478
+"Number", -- ./compiler/lua54.can:478
+"String" -- ./compiler/lua54.can:478
+}) then -- ./compiler/lua54.can:478
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
+else -- ./compiler/lua54.can:479
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
+end, -- ./compiler/lua54.can:484
+["Localrec"] = function(t) -- ./compiler/lua54.can:487
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
+end, -- ./compiler/lua54.can:488
+["Goto"] = function(t) -- ./compiler/lua54.can:491
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
+end, -- ./compiler/lua54.can:492
+["Label"] = function(t) -- ./compiler/lua54.can:495
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
+end, -- ./compiler/lua54.can:496
+["Return"] = function(t) -- ./compiler/lua54.can:499
+local push = peek("push") -- ./compiler/lua54.can:500
+if push then -- ./compiler/lua54.can:501
+local r = "" -- ./compiler/lua54.can:502
+for _, val in ipairs(t) do -- ./compiler/lua54.can:503
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
+end -- ./compiler/lua54.can:504
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
+else -- ./compiler/lua54.can:506
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
+end -- ./compiler/lua54.can:508
+end, -- ./compiler/lua54.can:508
+["Push"] = function(t) -- ./compiler/lua54.can:512
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
+r = "" -- ./compiler/lua54.can:514
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
 end -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-return r -- ./compiler/lua54.can:519
-end, -- ./compiler/lua54.can:519
-["Break"] = function() -- ./compiler/lua54.can:522
-return "break" -- ./compiler/lua54.can:523
-end, -- ./compiler/lua54.can:523
-["Continue"] = function() -- ./compiler/lua54.can:526
-return "goto " .. var("continue") -- ./compiler/lua54.can:527
-end, -- ./compiler/lua54.can:527
-["Nil"] = function() -- ./compiler/lua54.can:534
-return "nil" -- ./compiler/lua54.can:535
-end, -- ./compiler/lua54.can:535
-["Dots"] = function() -- ./compiler/lua54.can:538
-return "..." -- ./compiler/lua54.can:539
-end, -- ./compiler/lua54.can:539
-["Boolean"] = function(t) -- ./compiler/lua54.can:542
-return tostring(t[1]) -- ./compiler/lua54.can:543
-end, -- ./compiler/lua54.can:543
-["Number"] = function(t) -- ./compiler/lua54.can:546
-return tostring(t[1]) -- ./compiler/lua54.can:547
-end, -- ./compiler/lua54.can:547
-["String"] = function(t) -- ./compiler/lua54.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
-end, -- ./compiler/lua54.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
-local r = "(" -- ./compiler/lua54.can:555
-local decl = {} -- ./compiler/lua54.can:556
-if t[1][1] then -- ./compiler/lua54.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
-r = r .. (id) -- ./compiler/lua54.can:563
-else -- ./compiler/lua54.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
-end -- ./compiler/lua54.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
-r = r .. (", " .. id) -- ./compiler/lua54.can:573
-else -- ./compiler/lua54.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
-r = r .. (d .. newline()) -- ./compiler/lua54.can:581
-end -- ./compiler/lua54.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
-end -- ./compiler/lua54.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
-if hasPush then -- ./compiler/lua54.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
-else -- ./compiler/lua54.can:588
-push("push", false) -- ./compiler/lua54.can:590
-end -- ./compiler/lua54.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
-end -- ./compiler/lua54.can:594
-pop("push") -- ./compiler/lua54.can:596
-return r .. unindent() .. "end" -- ./compiler/lua54.can:597
-end, -- ./compiler/lua54.can:597
-["Function"] = function(t) -- ./compiler/lua54.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
-end, -- ./compiler/lua54.can:600
-["Pair"] = function(t) -- ./compiler/lua54.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
-end, -- ./compiler/lua54.can:604
-["Table"] = function(t) -- ./compiler/lua54.can:606
-if # t == 0 then -- ./compiler/lua54.can:607
-return "{}" -- ./compiler/lua54.can:608
-elseif # t == 1 then -- ./compiler/lua54.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
-else -- ./compiler/lua54.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
-end -- ./compiler/lua54.can:612
-end, -- ./compiler/lua54.can:612
-["TableCompr"] = function(t) -- ./compiler/lua54.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
-end, -- ./compiler/lua54.can:617
-["Op"] = function(t) -- ./compiler/lua54.can:620
-local r -- ./compiler/lua54.can:621
-if # t == 2 then -- ./compiler/lua54.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+if t[# t] then -- ./compiler/lua54.can:518
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
+else -- ./compiler/lua54.can:520
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+return r -- ./compiler/lua54.can:525
+end, -- ./compiler/lua54.can:525
+["Break"] = function() -- ./compiler/lua54.can:528
+return "break" -- ./compiler/lua54.can:529
+end, -- ./compiler/lua54.can:529
+["Continue"] = function() -- ./compiler/lua54.can:532
+return "goto " .. var("continue") -- ./compiler/lua54.can:533
+end, -- ./compiler/lua54.can:533
+["Nil"] = function() -- ./compiler/lua54.can:540
+return "nil" -- ./compiler/lua54.can:541
+end, -- ./compiler/lua54.can:541
+["Dots"] = function() -- ./compiler/lua54.can:544
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
+return r -- ./compiler/lua54.can:550
+else -- ./compiler/lua54.can:550
+return "..." -- ./compiler/lua54.can:552
+end -- ./compiler/lua54.can:552
+end, -- ./compiler/lua54.can:552
+["Boolean"] = function(t) -- ./compiler/lua54.can:556
+return tostring(t[1]) -- ./compiler/lua54.can:557
+end, -- ./compiler/lua54.can:557
+["Number"] = function(t) -- ./compiler/lua54.can:560
+return tostring(t[1]) -- ./compiler/lua54.can:561
+end, -- ./compiler/lua54.can:561
+["String"] = function(t) -- ./compiler/lua54.can:564
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
+end, -- ./compiler/lua54.can:565
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
+local r = "(" -- ./compiler/lua54.can:569
+local decl = {} -- ./compiler/lua54.can:570
+if t[1][1] then -- ./compiler/lua54.can:571
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
+r = r .. (id) -- ./compiler/lua54.can:577
+else -- ./compiler/lua54.can:577
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
+end -- ./compiler/lua54.can:579
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
+r = r .. (", " .. id) -- ./compiler/lua54.can:587
+else -- ./compiler/lua54.can:587
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
+r = r .. (d .. newline()) -- ./compiler/lua54.can:595
+end -- ./compiler/lua54.can:595
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
+end -- ./compiler/lua54.can:598
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
+if hasPush then -- ./compiler/lua54.can:601
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
+else -- ./compiler/lua54.can:602
+push("push", false) -- ./compiler/lua54.can:604
+end -- ./compiler/lua54.can:604
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
+end -- ./compiler/lua54.can:608
+pop("push") -- ./compiler/lua54.can:610
+return r .. unindent() .. "end" -- ./compiler/lua54.can:611
+end, -- ./compiler/lua54.can:611
+["Function"] = function(t) -- ./compiler/lua54.can:613
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
+end, -- ./compiler/lua54.can:614
+["Pair"] = function(t) -- ./compiler/lua54.can:617
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
+end, -- ./compiler/lua54.can:618
+["Table"] = function(t) -- ./compiler/lua54.can:620
+if # t == 0 then -- ./compiler/lua54.can:621
+return "{}" -- ./compiler/lua54.can:622
+elseif # t == 1 then -- ./compiler/lua54.can:623
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
 else -- ./compiler/lua54.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
 end -- ./compiler/lua54.can:626
-else -- ./compiler/lua54.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
-else -- ./compiler/lua54.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-return r -- ./compiler/lua54.can:635
-end, -- ./compiler/lua54.can:635
-["Paren"] = function(t) -- ./compiler/lua54.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
-end, -- ./compiler/lua54.can:639
-["MethodStub"] = function(t) -- ./compiler/lua54.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
-end, -- ./compiler/lua54.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
-end, -- ./compiler/lua54.can:658
-["LetExpr"] = function(t) -- ./compiler/lua54.can:665
-return lua(t[1][1]) -- ./compiler/lua54.can:666
-end, -- ./compiler/lua54.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
-local r = "(function()" .. indent() -- ./compiler/lua54.can:672
-if hasPush then -- ./compiler/lua54.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
-else -- ./compiler/lua54.can:674
-push("push", false) -- ./compiler/lua54.can:676
-end -- ./compiler/lua54.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
-if hasPush then -- ./compiler/lua54.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
-end -- ./compiler/lua54.can:680
-pop("push") -- ./compiler/lua54.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
-return r -- ./compiler/lua54.can:684
-end, -- ./compiler/lua54.can:684
-["DoExpr"] = function(t) -- ./compiler/lua54.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
-end -- ./compiler/lua54.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
-end, -- ./compiler/lua54.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
-end, -- ./compiler/lua54.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
-end, -- ./compiler/lua54.can:699
-["IfExpr"] = function(t) -- ./compiler/lua54.can:702
-for i = 2, # t do -- ./compiler/lua54.can:703
-local block = t[i] -- ./compiler/lua54.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:626
+["TableCompr"] = function(t) -- ./compiler/lua54.can:630
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
+end, -- ./compiler/lua54.can:631
+["Op"] = function(t) -- ./compiler/lua54.can:634
+local r -- ./compiler/lua54.can:635
+if # t == 2 then -- ./compiler/lua54.can:636
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
+else -- ./compiler/lua54.can:638
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
+end -- ./compiler/lua54.can:640
+else -- ./compiler/lua54.can:640
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
+else -- ./compiler/lua54.can:644
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+return r -- ./compiler/lua54.can:649
+end, -- ./compiler/lua54.can:649
+["Paren"] = function(t) -- ./compiler/lua54.can:652
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
+end, -- ./compiler/lua54.can:653
+["MethodStub"] = function(t) -- ./compiler/lua54.can:656
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
+end, -- ./compiler/lua54.can:662
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
+end, -- ./compiler/lua54.can:672
+["LetExpr"] = function(t) -- ./compiler/lua54.can:679
+return lua(t[1][1]) -- ./compiler/lua54.can:680
+end, -- ./compiler/lua54.can:680
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
+local r = "(function()" .. indent() -- ./compiler/lua54.can:686
+if hasPush then -- ./compiler/lua54.can:687
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
+else -- ./compiler/lua54.can:688
+push("push", false) -- ./compiler/lua54.can:690
+end -- ./compiler/lua54.can:690
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
+if hasPush then -- ./compiler/lua54.can:693
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
+end -- ./compiler/lua54.can:694
+pop("push") -- ./compiler/lua54.can:696
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
+return r -- ./compiler/lua54.can:698
+end, -- ./compiler/lua54.can:698
+["DoExpr"] = function(t) -- ./compiler/lua54.can:701
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
+end -- ./compiler/lua54.can:703
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
+end, -- ./compiler/lua54.can:705
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
 end, -- ./compiler/lua54.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
 end, -- ./compiler/lua54.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
-end, -- ./compiler/lua54.can:717
-["Call"] = function(t) -- ./compiler/lua54.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
-else -- ./compiler/lua54.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
-end -- ./compiler/lua54.can:730
-else -- ./compiler/lua54.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
-end -- ./compiler/lua54.can:733
-end, -- ./compiler/lua54.can:733
-["SafeCall"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
-else -- ./compiler/lua54.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
-end -- ./compiler/lua54.can:741
-end, -- ./compiler/lua54.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
-if start == nil then start = 1 end -- ./compiler/lua54.can:746
-local r -- ./compiler/lua54.can:747
-if t[start] then -- ./compiler/lua54.can:748
-r = lua(t[start]) -- ./compiler/lua54.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
-end -- ./compiler/lua54.can:751
+["IfExpr"] = function(t) -- ./compiler/lua54.can:716
+for i = 2, # t do -- ./compiler/lua54.can:717
+local block = t[i] -- ./compiler/lua54.can:718
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
+end, -- ./compiler/lua54.can:723
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
+end, -- ./compiler/lua54.can:727
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
+end, -- ./compiler/lua54.can:731
+["Call"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
+local replacement = macro["replacement"] -- ./compiler/lua54.can:742
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
+macroargs["..."] = (function() -- ./compiler/lua54.can:746
+local self = {} -- ./compiler/lua54.can:746
+for j = i + 1, # t do -- ./compiler/lua54.can:746
+self[#self+1] = t[j] -- ./compiler/lua54.can:746
+end -- ./compiler/lua54.can:746
+return self -- ./compiler/lua54.can:746
+end)() -- ./compiler/lua54.can:746
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
+if t[i + 1] == nil then -- ./compiler/lua54.can:748
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
+end -- ./compiler/lua54.can:749
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
 else -- ./compiler/lua54.can:751
-r = "" -- ./compiler/lua54.can:754
-end -- ./compiler/lua54.can:754
-return r -- ./compiler/lua54.can:756
-end, -- ./compiler/lua54.can:756
-["Id"] = function(t) -- ./compiler/lua54.can:759
-return t[1] -- ./compiler/lua54.can:760
-end, -- ./compiler/lua54.can:760
-["AttributeId"] = function(t) -- ./compiler/lua54.can:763
-if t[2] then -- ./compiler/lua54.can:764
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
-else -- ./compiler/lua54.can:765
-return t[1] -- ./compiler/lua54.can:767
-end -- ./compiler/lua54.can:767
-end, -- ./compiler/lua54.can:767
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
-if t["id"] then -- ./compiler/lua54.can:772
-return t["id"] -- ./compiler/lua54.can:773
-else -- ./compiler/lua54.can:773
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
-for j = 1, # t, 1 do -- ./compiler/lua54.can:777
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
-end -- ./compiler/lua54.can:778
-table["insert"](d, vars) -- ./compiler/lua54.can:780
-t["id"] = vars["id"] -- ./compiler/lua54.can:781
-return vars["id"] -- ./compiler/lua54.can:782
-end -- ./compiler/lua54.can:782
-end, -- ./compiler/lua54.can:782
-["Index"] = function(t) -- ./compiler/lua54.can:786
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
-else -- ./compiler/lua54.can:788
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+push("macroargs", macroargs) -- ./compiler/lua54.can:756
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
+local r = lua(replacement) -- ./compiler/lua54.can:758
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
+pop("macroargs") -- ./compiler/lua54.can:760
+return r -- ./compiler/lua54.can:761
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
+else -- ./compiler/lua54.can:764
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
+end -- ./compiler/lua54.can:766
+else -- ./compiler/lua54.can:766
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+end -- ./compiler/lua54.can:769
+end, -- ./compiler/lua54.can:769
+["SafeCall"] = function(t) -- ./compiler/lua54.can:773
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+else -- ./compiler/lua54.can:775
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+end -- ./compiler/lua54.can:777
+end, -- ./compiler/lua54.can:777
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
+if start == nil then start = 1 end -- ./compiler/lua54.can:782
+local r -- ./compiler/lua54.can:783
+if t[start] then -- ./compiler/lua54.can:784
+r = lua(t[start]) -- ./compiler/lua54.can:785
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
+end -- ./compiler/lua54.can:787
+else -- ./compiler/lua54.can:787
+r = "" -- ./compiler/lua54.can:790
 end -- ./compiler/lua54.can:790
-end, -- ./compiler/lua54.can:790
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
-local l = {} -- ./compiler/lua54.can:796
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
-table["insert"](l, 1, t) -- ./compiler/lua54.can:798
-t = t[1] -- ./compiler/lua54.can:799
-end -- ./compiler/lua54.can:799
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
-for _, e in ipairs(l) do -- ./compiler/lua54.can:802
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
-else -- ./compiler/lua54.can:805
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+return r -- ./compiler/lua54.can:792
+end, -- ./compiler/lua54.can:792
+["Id"] = function(t) -- ./compiler/lua54.can:795
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
+local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:802
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
+local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
+return r -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
-return r -- ./compiler/lua54.can:811
-else -- ./compiler/lua54.can:811
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
-end -- ./compiler/lua54.can:813
-end, -- ./compiler/lua54.can:813
-["_opid"] = { -- ./compiler/lua54.can:818
-["add"] = "+", -- ./compiler/lua54.can:819
-["sub"] = "-", -- ./compiler/lua54.can:819
-["mul"] = "*", -- ./compiler/lua54.can:819
-["div"] = "/", -- ./compiler/lua54.can:819
-["idiv"] = "//", -- ./compiler/lua54.can:820
-["mod"] = "%", -- ./compiler/lua54.can:820
-["pow"] = "^", -- ./compiler/lua54.can:820
-["concat"] = "..", -- ./compiler/lua54.can:820
-["band"] = "&", -- ./compiler/lua54.can:821
-["bor"] = "|", -- ./compiler/lua54.can:821
-["bxor"] = "~", -- ./compiler/lua54.can:821
-["shl"] = "<<", -- ./compiler/lua54.can:821
-["shr"] = ">>", -- ./compiler/lua54.can:821
-["eq"] = "==", -- ./compiler/lua54.can:822
-["ne"] = "~=", -- ./compiler/lua54.can:822
-["lt"] = "<", -- ./compiler/lua54.can:822
-["gt"] = ">", -- ./compiler/lua54.can:822
-["le"] = "<=", -- ./compiler/lua54.can:822
-["ge"] = ">=", -- ./compiler/lua54.can:822
-["and"] = "and", -- ./compiler/lua54.can:823
-["or"] = "or", -- ./compiler/lua54.can:823
-["unm"] = "-", -- ./compiler/lua54.can:823
-["len"] = "#", -- ./compiler/lua54.can:823
-["bnot"] = "~", -- ./compiler/lua54.can:823
-["not"] = "not" -- ./compiler/lua54.can:823
-} -- ./compiler/lua54.can:823
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
-end }) -- ./compiler/lua54.can:827
+return t[1] -- ./compiler/lua54.can:810
+end, -- ./compiler/lua54.can:810
+["AttributeId"] = function(t) -- ./compiler/lua54.can:813
+if t[2] then -- ./compiler/lua54.can:814
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
+else -- ./compiler/lua54.can:815
+return t[1] -- ./compiler/lua54.can:817
+end -- ./compiler/lua54.can:817
+end, -- ./compiler/lua54.can:817
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
+if t["id"] then -- ./compiler/lua54.can:822
+return t["id"] -- ./compiler/lua54.can:823
+else -- ./compiler/lua54.can:823
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
+for j = 1, # t, 1 do -- ./compiler/lua54.can:827
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
+end -- ./compiler/lua54.can:828
+table["insert"](d, vars) -- ./compiler/lua54.can:830
+t["id"] = vars["id"] -- ./compiler/lua54.can:831
+return vars["id"] -- ./compiler/lua54.can:832
+end -- ./compiler/lua54.can:832
+end, -- ./compiler/lua54.can:832
+["Index"] = function(t) -- ./compiler/lua54.can:836
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
+else -- ./compiler/lua54.can:838
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
+end -- ./compiler/lua54.can:840
+end, -- ./compiler/lua54.can:840
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
+local l = {} -- ./compiler/lua54.can:846
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
+table["insert"](l, 1, t) -- ./compiler/lua54.can:848
+t = t[1] -- ./compiler/lua54.can:849
+end -- ./compiler/lua54.can:849
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
+for _, e in ipairs(l) do -- ./compiler/lua54.can:852
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
+else -- ./compiler/lua54.can:855
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
+return r -- ./compiler/lua54.can:861
+else -- ./compiler/lua54.can:861
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
+end -- ./compiler/lua54.can:863
+end, -- ./compiler/lua54.can:863
+["_opid"] = { -- ./compiler/lua54.can:868
+["add"] = "+", -- ./compiler/lua54.can:869
+["sub"] = "-", -- ./compiler/lua54.can:869
+["mul"] = "*", -- ./compiler/lua54.can:869
+["div"] = "/", -- ./compiler/lua54.can:869
+["idiv"] = "//", -- ./compiler/lua54.can:870
+["mod"] = "%", -- ./compiler/lua54.can:870
+["pow"] = "^", -- ./compiler/lua54.can:870
+["concat"] = "..", -- ./compiler/lua54.can:870
+["band"] = "&", -- ./compiler/lua54.can:871
+["bor"] = "|", -- ./compiler/lua54.can:871
+["bxor"] = "~", -- ./compiler/lua54.can:871
+["shl"] = "<<", -- ./compiler/lua54.can:871
+["shr"] = ">>", -- ./compiler/lua54.can:871
+["eq"] = "==", -- ./compiler/lua54.can:872
+["ne"] = "~=", -- ./compiler/lua54.can:872
+["lt"] = "<", -- ./compiler/lua54.can:872
+["gt"] = ">", -- ./compiler/lua54.can:872
+["le"] = "<=", -- ./compiler/lua54.can:872
+["ge"] = ">=", -- ./compiler/lua54.can:872
+["and"] = "and", -- ./compiler/lua54.can:873
+["or"] = "or", -- ./compiler/lua54.can:873
+["unm"] = "-", -- ./compiler/lua54.can:873
+["len"] = "#", -- ./compiler/lua54.can:873
+["bnot"] = "~", -- ./compiler/lua54.can:873
+["not"] = "not" -- ./compiler/lua54.can:873
+} -- ./compiler/lua54.can:873
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
+end }) -- ./compiler/lua54.can:877
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -3687,11 +3940,11 @@ tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
 addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
 return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
 end -- ./compiler/luajit.can:29
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
-return requireStr .. code -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
+return requireStr .. code -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+local lua54 = _() or lua54 -- ./compiler/lua54.can:889
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -3707,861 +3960,921 @@ local function _() -- ./compiler/luajit.can:48
 local function _() -- ./compiler/luajit.can:50
 local function _() -- ./compiler/luajit.can:52
 local function _() -- ./compiler/luajit.can:54
-local targetName = "Lua 5.4" -- ./compiler/lua54.can:1
-return function(code, ast, options) -- ./compiler/lua54.can:3
-local lastInputPos = 1 -- ./compiler/lua54.can:5
-local prevLinePos = 1 -- ./compiler/lua54.can:6
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:7
-local lastLine = 1 -- ./compiler/lua54.can:8
-local indentLevel = 0 -- ./compiler/lua54.can:11
-local function newline() -- ./compiler/lua54.can:13
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:14
-if options["mapLines"] then -- ./compiler/lua54.can:15
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:16
+local util = require("candran.util") -- ./compiler/lua54.can:1
+local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
+return function(code, ast, options, macros) -- ./compiler/lua54.can:5
+if macros == nil then macros = { -- ./compiler/lua54.can:5
+["functions"] = {}, -- ./compiler/lua54.can:5
+["variables"] = {} -- ./compiler/lua54.can:5
+} end -- ./compiler/lua54.can:5
+local lastInputPos = 1 -- ./compiler/lua54.can:7
+local prevLinePos = 1 -- ./compiler/lua54.can:8
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
+local lastLine = 1 -- ./compiler/lua54.can:10
+local indentLevel = 0 -- ./compiler/lua54.can:13
+local function newline() -- ./compiler/lua54.can:15
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
+if options["mapLines"] then -- ./compiler/lua54.can:17
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:17
-if source and line then -- ./compiler/lua54.can:19
-lastSource = source -- ./compiler/lua54.can:20
-lastLine = tonumber(line) -- ./compiler/lua54.can:21
-else -- ./compiler/lua54.can:21
+") -- ./compiler/lua54.can:19
+if source and line then -- ./compiler/lua54.can:21
+lastSource = source -- ./compiler/lua54.can:22
+lastLine = tonumber(line) -- ./compiler/lua54.can:23
+else -- ./compiler/lua54.can:23
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:23
-lastLine = lastLine + (1) -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-end -- ./compiler/lua54.can:24
-prevLinePos = lastInputPos -- ./compiler/lua54.can:28
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:30
-end -- ./compiler/lua54.can:30
-return r -- ./compiler/lua54.can:32
+") do -- ./compiler/lua54.can:25
+lastLine = lastLine + (1) -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+end -- ./compiler/lua54.can:26
+prevLinePos = lastInputPos -- ./compiler/lua54.can:30
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
 end -- ./compiler/lua54.can:32
-local function indent() -- ./compiler/lua54.can:35
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:36
-return newline() -- ./compiler/lua54.can:37
-end -- ./compiler/lua54.can:37
-local function unindent() -- ./compiler/lua54.can:40
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:41
-return newline() -- ./compiler/lua54.can:42
-end -- ./compiler/lua54.can:42
-local states = { -- ./compiler/lua54.can:47
-["push"] = {}, -- ./compiler/lua54.can:48
-["destructuring"] = {}, -- ./compiler/lua54.can:49
-["scope"] = {} -- ./compiler/lua54.can:50
-} -- ./compiler/lua54.can:50
-local function push(name, state) -- ./compiler/lua54.can:53
-table["insert"](states[name], state) -- ./compiler/lua54.can:54
-return "" -- ./compiler/lua54.can:55
-end -- ./compiler/lua54.can:55
-local function pop(name) -- ./compiler/lua54.can:58
-table["remove"](states[name]) -- ./compiler/lua54.can:59
-return "" -- ./compiler/lua54.can:60
-end -- ./compiler/lua54.can:60
-local function set(name, state) -- ./compiler/lua54.can:63
-states[name][# states[name]] = state -- ./compiler/lua54.can:64
-return "" -- ./compiler/lua54.can:65
-end -- ./compiler/lua54.can:65
-local function peek(name) -- ./compiler/lua54.can:68
-return states[name][# states[name]] -- ./compiler/lua54.can:69
-end -- ./compiler/lua54.can:69
-local function var(name) -- ./compiler/lua54.can:74
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:75
-end -- ./compiler/lua54.can:75
-local function tmp() -- ./compiler/lua54.can:79
-local scope = peek("scope") -- ./compiler/lua54.can:80
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:81
-table["insert"](scope, var) -- ./compiler/lua54.can:82
-return var -- ./compiler/lua54.can:83
-end -- ./compiler/lua54.can:83
-local required = {} -- ./compiler/lua54.can:87
-local requireStr = "" -- ./compiler/lua54.can:88
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:90
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:91
-if not required[req] then -- ./compiler/lua54.can:92
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:93
-required[req] = true -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-end -- ./compiler/lua54.can:94
-local loop = { -- ./compiler/lua54.can:99
-"While", -- ./compiler/lua54.can:99
-"Repeat", -- ./compiler/lua54.can:99
-"Fornum", -- ./compiler/lua54.can:99
-"Forin", -- ./compiler/lua54.can:99
-"WhileExpr", -- ./compiler/lua54.can:99
-"RepeatExpr", -- ./compiler/lua54.can:99
-"FornumExpr", -- ./compiler/lua54.can:99
-"ForinExpr" -- ./compiler/lua54.can:99
-} -- ./compiler/lua54.can:99
-local func = { -- ./compiler/lua54.can:100
-"Function", -- ./compiler/lua54.can:100
-"TableCompr", -- ./compiler/lua54.can:100
-"DoExpr", -- ./compiler/lua54.can:100
-"WhileExpr", -- ./compiler/lua54.can:100
-"RepeatExpr", -- ./compiler/lua54.can:100
-"IfExpr", -- ./compiler/lua54.can:100
-"FornumExpr", -- ./compiler/lua54.can:100
-"ForinExpr" -- ./compiler/lua54.can:100
-} -- ./compiler/lua54.can:100
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:104
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:104
-local tagsCheck = {} -- ./compiler/lua54.can:105
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:106
-tagsCheck[tag] = true -- ./compiler/lua54.can:107
-end -- ./compiler/lua54.can:107
-local nofollowCheck = {} -- ./compiler/lua54.can:109
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:110
-nofollowCheck[tag] = true -- ./compiler/lua54.can:111
-end -- ./compiler/lua54.can:111
-for _, node in ipairs(list) do -- ./compiler/lua54.can:113
-if type(node) == "table" then -- ./compiler/lua54.can:114
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:115
-return node -- ./compiler/lua54.can:116
-end -- ./compiler/lua54.can:116
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:118
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:119
-if r then -- ./compiler/lua54.can:120
-return r -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-end -- ./compiler/lua54.can:120
-return nil -- ./compiler/lua54.can:124
-end -- ./compiler/lua54.can:124
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:129
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:129
-local tagsCheck = {} -- ./compiler/lua54.can:130
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:131
-tagsCheck[tag] = true -- ./compiler/lua54.can:132
-end -- ./compiler/lua54.can:132
-local nofollowCheck = {} -- ./compiler/lua54.can:134
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:135
-nofollowCheck[tag] = true -- ./compiler/lua54.can:136
-end -- ./compiler/lua54.can:136
-local found = {} -- ./compiler/lua54.can:138
-for _, node in ipairs(list) do -- ./compiler/lua54.can:139
-if type(node) == "table" then -- ./compiler/lua54.can:140
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:141
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:142
-table["insert"](found, n) -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-end -- ./compiler/lua54.can:143
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:146
-table["insert"](found, node) -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-end -- ./compiler/lua54.can:147
-return found -- ./compiler/lua54.can:151
-end -- ./compiler/lua54.can:151
-local function all(list, tags) -- ./compiler/lua54.can:155
-for _, node in ipairs(list) do -- ./compiler/lua54.can:156
-local ok = false -- ./compiler/lua54.can:157
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:158
-if node["tag"] == tag then -- ./compiler/lua54.can:159
-ok = true -- ./compiler/lua54.can:160
-break -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-end -- ./compiler/lua54.can:161
-if not ok then -- ./compiler/lua54.can:164
-return false -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-end -- ./compiler/lua54.can:165
-return true -- ./compiler/lua54.can:168
-end -- ./compiler/lua54.can:168
-local tags -- ./compiler/lua54.can:172
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:174
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:175
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:176
-end -- ./compiler/lua54.can:176
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:178
-end -- ./compiler/lua54.can:178
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:182
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:183
-end -- ./compiler/lua54.can:183
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:185
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:186
-end -- ./compiler/lua54.can:186
-local CONTINUE_START = function() -- ./compiler/lua54.can:188
-return "do" .. indent() -- ./compiler/lua54.can:189
+return r -- ./compiler/lua54.can:34
+end -- ./compiler/lua54.can:34
+local function indent() -- ./compiler/lua54.can:37
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
+return newline() -- ./compiler/lua54.can:39
+end -- ./compiler/lua54.can:39
+local function unindent() -- ./compiler/lua54.can:42
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
+return newline() -- ./compiler/lua54.can:44
+end -- ./compiler/lua54.can:44
+local states = { -- ./compiler/lua54.can:49
+["push"] = {}, -- ./compiler/lua54.can:50
+["destructuring"] = {}, -- ./compiler/lua54.can:51
+["scope"] = {}, -- ./compiler/lua54.can:52
+["macroargs"] = {} -- ./compiler/lua54.can:53
+} -- ./compiler/lua54.can:53
+local function push(name, state) -- ./compiler/lua54.can:56
+table["insert"](states[name], state) -- ./compiler/lua54.can:57
+return "" -- ./compiler/lua54.can:58
+end -- ./compiler/lua54.can:58
+local function pop(name) -- ./compiler/lua54.can:61
+table["remove"](states[name]) -- ./compiler/lua54.can:62
+return "" -- ./compiler/lua54.can:63
+end -- ./compiler/lua54.can:63
+local function set(name, state) -- ./compiler/lua54.can:66
+states[name][# states[name]] = state -- ./compiler/lua54.can:67
+return "" -- ./compiler/lua54.can:68
+end -- ./compiler/lua54.can:68
+local function peek(name) -- ./compiler/lua54.can:71
+return states[name][# states[name]] -- ./compiler/lua54.can:72
+end -- ./compiler/lua54.can:72
+local function var(name) -- ./compiler/lua54.can:77
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
+end -- ./compiler/lua54.can:78
+local function tmp() -- ./compiler/lua54.can:82
+local scope = peek("scope") -- ./compiler/lua54.can:83
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
+table["insert"](scope, var) -- ./compiler/lua54.can:85
+return var -- ./compiler/lua54.can:86
+end -- ./compiler/lua54.can:86
+local nomacro = { -- ./compiler/lua54.can:90
+["variables"] = {}, -- ./compiler/lua54.can:90
+["functions"] = {} -- ./compiler/lua54.can:90
+} -- ./compiler/lua54.can:90
+local required = {} -- ./compiler/lua54.can:93
+local requireStr = "" -- ./compiler/lua54.can:94
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
+if not required[req] then -- ./compiler/lua54.can:98
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
+required[req] = true -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+end -- ./compiler/lua54.can:100
+local loop = { -- ./compiler/lua54.can:105
+"While", -- ./compiler/lua54.can:105
+"Repeat", -- ./compiler/lua54.can:105
+"Fornum", -- ./compiler/lua54.can:105
+"Forin", -- ./compiler/lua54.can:105
+"WhileExpr", -- ./compiler/lua54.can:105
+"RepeatExpr", -- ./compiler/lua54.can:105
+"FornumExpr", -- ./compiler/lua54.can:105
+"ForinExpr" -- ./compiler/lua54.can:105
+} -- ./compiler/lua54.can:105
+local func = { -- ./compiler/lua54.can:106
+"Function", -- ./compiler/lua54.can:106
+"TableCompr", -- ./compiler/lua54.can:106
+"DoExpr", -- ./compiler/lua54.can:106
+"WhileExpr", -- ./compiler/lua54.can:106
+"RepeatExpr", -- ./compiler/lua54.can:106
+"IfExpr", -- ./compiler/lua54.can:106
+"FornumExpr", -- ./compiler/lua54.can:106
+"ForinExpr" -- ./compiler/lua54.can:106
+} -- ./compiler/lua54.can:106
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
+local tagsCheck = {} -- ./compiler/lua54.can:111
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
+tagsCheck[tag] = true -- ./compiler/lua54.can:113
+end -- ./compiler/lua54.can:113
+local nofollowCheck = {} -- ./compiler/lua54.can:115
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
+nofollowCheck[tag] = true -- ./compiler/lua54.can:117
+end -- ./compiler/lua54.can:117
+for _, node in ipairs(list) do -- ./compiler/lua54.can:119
+if type(node) == "table" then -- ./compiler/lua54.can:120
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
+return node -- ./compiler/lua54.can:122
+end -- ./compiler/lua54.can:122
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
+if r then -- ./compiler/lua54.can:126
+return r -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+end -- ./compiler/lua54.can:126
+return nil -- ./compiler/lua54.can:130
+end -- ./compiler/lua54.can:130
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
+local tagsCheck = {} -- ./compiler/lua54.can:136
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
+tagsCheck[tag] = true -- ./compiler/lua54.can:138
+end -- ./compiler/lua54.can:138
+local nofollowCheck = {} -- ./compiler/lua54.can:140
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
+nofollowCheck[tag] = true -- ./compiler/lua54.can:142
+end -- ./compiler/lua54.can:142
+local found = {} -- ./compiler/lua54.can:144
+for _, node in ipairs(list) do -- ./compiler/lua54.can:145
+if type(node) == "table" then -- ./compiler/lua54.can:146
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
+table["insert"](found, n) -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+end -- ./compiler/lua54.can:149
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
+table["insert"](found, node) -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+end -- ./compiler/lua54.can:153
+return found -- ./compiler/lua54.can:157
+end -- ./compiler/lua54.can:157
+local function all(list, tags) -- ./compiler/lua54.can:161
+for _, node in ipairs(list) do -- ./compiler/lua54.can:162
+local ok = false -- ./compiler/lua54.can:163
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
+if node["tag"] == tag then -- ./compiler/lua54.can:165
+ok = true -- ./compiler/lua54.can:166
+break -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+end -- ./compiler/lua54.can:167
+if not ok then -- ./compiler/lua54.can:170
+return false -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+end -- ./compiler/lua54.can:171
+return true -- ./compiler/lua54.can:174
+end -- ./compiler/lua54.can:174
+local tags -- ./compiler/lua54.can:178
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
+end -- ./compiler/lua54.can:182
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+end -- ./compiler/lua54.can:184
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
 end -- ./compiler/lua54.can:189
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:191
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:192
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
 end -- ./compiler/lua54.can:192
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:194
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:194
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:194
-local vars = {} -- ./compiler/lua54.can:195
-local values = {} -- ./compiler/lua54.can:196
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:197
-for _, v in ipairs(list) do -- ./compiler/lua54.can:198
-local var, val -- ./compiler/lua54.can:199
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:200
-var = v -- ./compiler/lua54.can:201
-val = { -- ./compiler/lua54.can:202
-["tag"] = "Index", -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "Id", -- ./compiler/lua54.can:202
-list["id"] -- ./compiler/lua54.can:202
-}, -- ./compiler/lua54.can:202
-{ -- ./compiler/lua54.can:202
-["tag"] = "String", -- ./compiler/lua54.can:202
-v[1] -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-} -- ./compiler/lua54.can:202
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:203
-var = v[2] -- ./compiler/lua54.can:204
-val = { -- ./compiler/lua54.can:205
-["tag"] = "Index", -- ./compiler/lua54.can:205
-{ -- ./compiler/lua54.can:205
-["tag"] = "Id", -- ./compiler/lua54.can:205
-list["id"] -- ./compiler/lua54.can:205
-}, -- ./compiler/lua54.can:205
-v[1] -- ./compiler/lua54.can:205
-} -- ./compiler/lua54.can:205
-else -- ./compiler/lua54.can:205
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:207
-end -- ./compiler/lua54.can:207
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:209
-val = { -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["rightOp"], -- ./compiler/lua54.can:210
-var, -- ./compiler/lua54.can:210
-{ -- ./compiler/lua54.can:210
-["tag"] = "Op", -- ./compiler/lua54.can:210
-destructured["leftOp"], -- ./compiler/lua54.can:210
-val, -- ./compiler/lua54.can:210
-var -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-} -- ./compiler/lua54.can:210
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:211
-val = { -- ./compiler/lua54.can:212
-["tag"] = "Op", -- ./compiler/lua54.can:212
-destructured["rightOp"], -- ./compiler/lua54.can:212
-var, -- ./compiler/lua54.can:212
-val -- ./compiler/lua54.can:212
-} -- ./compiler/lua54.can:212
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:213
-val = { -- ./compiler/lua54.can:214
-["tag"] = "Op", -- ./compiler/lua54.can:214
-destructured["leftOp"], -- ./compiler/lua54.can:214
-val, -- ./compiler/lua54.can:214
-var -- ./compiler/lua54.can:214
-} -- ./compiler/lua54.can:214
-end -- ./compiler/lua54.can:214
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:216
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-end -- ./compiler/lua54.can:217
-if # vars > 0 then -- ./compiler/lua54.can:220
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:221
-if newlineAfter then -- ./compiler/lua54.can:222
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:223
-else -- ./compiler/lua54.can:223
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:225
-end -- ./compiler/lua54.can:225
-else -- ./compiler/lua54.can:225
-return "" -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-end -- ./compiler/lua54.can:228
-tags = setmetatable({ -- ./compiler/lua54.can:233
-["Block"] = function(t) -- ./compiler/lua54.can:235
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:236
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:237
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:238
-hasPush = false -- ./compiler/lua54.can:239
-end -- ./compiler/lua54.can:239
-local r = push("scope", {}) -- ./compiler/lua54.can:241
-if hasPush then -- ./compiler/lua54.can:242
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:243
-end -- ./compiler/lua54.can:243
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:245
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:246
-end -- ./compiler/lua54.can:246
-if t[# t] then -- ./compiler/lua54.can:248
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:249
+local CONTINUE_START = function() -- ./compiler/lua54.can:194
+return "do" .. indent() -- ./compiler/lua54.can:195
+end -- ./compiler/lua54.can:195
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
+end -- ./compiler/lua54.can:198
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
+local vars = {} -- ./compiler/lua54.can:201
+local values = {} -- ./compiler/lua54.can:202
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
+for _, v in ipairs(list) do -- ./compiler/lua54.can:204
+local var, val -- ./compiler/lua54.can:205
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
+var = v -- ./compiler/lua54.can:207
+val = { -- ./compiler/lua54.can:208
+["tag"] = "Index", -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "Id", -- ./compiler/lua54.can:208
+list["id"] -- ./compiler/lua54.can:208
+}, -- ./compiler/lua54.can:208
+{ -- ./compiler/lua54.can:208
+["tag"] = "String", -- ./compiler/lua54.can:208
+v[1] -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+} -- ./compiler/lua54.can:208
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
+var = v[2] -- ./compiler/lua54.can:210
+val = { -- ./compiler/lua54.can:211
+["tag"] = "Index", -- ./compiler/lua54.can:211
+{ -- ./compiler/lua54.can:211
+["tag"] = "Id", -- ./compiler/lua54.can:211
+list["id"] -- ./compiler/lua54.can:211
+}, -- ./compiler/lua54.can:211
+v[1] -- ./compiler/lua54.can:211
+} -- ./compiler/lua54.can:211
+else -- ./compiler/lua54.can:211
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
+end -- ./compiler/lua54.can:213
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
+val = { -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["rightOp"], -- ./compiler/lua54.can:216
+var, -- ./compiler/lua54.can:216
+{ -- ./compiler/lua54.can:216
+["tag"] = "Op", -- ./compiler/lua54.can:216
+destructured["leftOp"], -- ./compiler/lua54.can:216
+val, -- ./compiler/lua54.can:216
+var -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+} -- ./compiler/lua54.can:216
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+val = { -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["rightOp"], -- ./compiler/lua54.can:218
+var, -- ./compiler/lua54.can:218
+val -- ./compiler/lua54.can:218
+} -- ./compiler/lua54.can:218
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+val = { -- ./compiler/lua54.can:220
+["tag"] = "Op", -- ./compiler/lua54.can:220
+destructured["leftOp"], -- ./compiler/lua54.can:220
+val, -- ./compiler/lua54.can:220
+var -- ./compiler/lua54.can:220
+} -- ./compiler/lua54.can:220
+end -- ./compiler/lua54.can:220
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+end -- ./compiler/lua54.can:223
+if # vars > 0 then -- ./compiler/lua54.can:226
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
+if newlineAfter then -- ./compiler/lua54.can:228
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
+else -- ./compiler/lua54.can:229
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
+end -- ./compiler/lua54.can:231
+else -- ./compiler/lua54.can:231
+return "" -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+end -- ./compiler/lua54.can:234
+tags = setmetatable({ -- ./compiler/lua54.can:239
+["Block"] = function(t) -- ./compiler/lua54.can:241
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
+hasPush = false -- ./compiler/lua54.can:245
+end -- ./compiler/lua54.can:245
+local r = push("scope", {}) -- ./compiler/lua54.can:247
+if hasPush then -- ./compiler/lua54.can:248
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
 end -- ./compiler/lua54.can:249
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:251
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:252
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
 end -- ./compiler/lua54.can:252
-return r .. pop("scope") -- ./compiler/lua54.can:254
-end, -- ./compiler/lua54.can:254
-["Do"] = function(t) -- ./compiler/lua54.can:260
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:261
-end, -- ./compiler/lua54.can:261
-["Set"] = function(t) -- ./compiler/lua54.can:264
-local expr = t[# t] -- ./compiler/lua54.can:266
-local vars, values = {}, {} -- ./compiler/lua54.can:267
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:268
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:269
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:270
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:271
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:272
-else -- ./compiler/lua54.can:272
-table["insert"](vars, n) -- ./compiler/lua54.can:274
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-end -- ./compiler/lua54.can:275
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:279
-local r = "" -- ./compiler/lua54.can:280
-if # vars > 0 then -- ./compiler/lua54.can:281
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:282
-end -- ./compiler/lua54.can:282
-if # destructuringVars > 0 then -- ./compiler/lua54.can:284
-local destructured = {} -- ./compiler/lua54.can:285
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:286
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:287
-end -- ./compiler/lua54.can:287
-return r -- ./compiler/lua54.can:289
-elseif # t == 4 then -- ./compiler/lua54.can:290
-if t[3] == "=" then -- ./compiler/lua54.can:291
-local r = "" -- ./compiler/lua54.can:292
-if # vars > 0 then -- ./compiler/lua54.can:293
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:294
-t[2], -- ./compiler/lua54.can:294
-vars[1], -- ./compiler/lua54.can:294
-{ -- ./compiler/lua54.can:294
-["tag"] = "Paren", -- ./compiler/lua54.can:294
-values[1] -- ./compiler/lua54.can:294
-} -- ./compiler/lua54.can:294
-}, "Op")) -- ./compiler/lua54.can:294
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:295
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:296
-t[2], -- ./compiler/lua54.can:296
-vars[i], -- ./compiler/lua54.can:296
-{ -- ./compiler/lua54.can:296
-["tag"] = "Paren", -- ./compiler/lua54.can:296
-values[i] -- ./compiler/lua54.can:296
-} -- ./compiler/lua54.can:296
-}, "Op")) -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-end -- ./compiler/lua54.can:296
-if # destructuringVars > 0 then -- ./compiler/lua54.can:299
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:300
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:301
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:302
+if t[# t] then -- ./compiler/lua54.can:254
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
+end -- ./compiler/lua54.can:255
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
+end -- ./compiler/lua54.can:258
+return r .. pop("scope") -- ./compiler/lua54.can:260
+end, -- ./compiler/lua54.can:260
+["Do"] = function(t) -- ./compiler/lua54.can:266
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
+end, -- ./compiler/lua54.can:267
+["Set"] = function(t) -- ./compiler/lua54.can:270
+local expr = t[# t] -- ./compiler/lua54.can:272
+local vars, values = {}, {} -- ./compiler/lua54.can:273
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
+else -- ./compiler/lua54.can:278
+table["insert"](vars, n) -- ./compiler/lua54.can:280
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+end -- ./compiler/lua54.can:281
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
+local r = "" -- ./compiler/lua54.can:286
+if # vars > 0 then -- ./compiler/lua54.can:287
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
+end -- ./compiler/lua54.can:288
+if # destructuringVars > 0 then -- ./compiler/lua54.can:290
+local destructured = {} -- ./compiler/lua54.can:291
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
+end -- ./compiler/lua54.can:293
+return r -- ./compiler/lua54.can:295
+elseif # t == 4 then -- ./compiler/lua54.can:296
+if t[3] == "=" then -- ./compiler/lua54.can:297
+local r = "" -- ./compiler/lua54.can:298
+if # vars > 0 then -- ./compiler/lua54.can:299
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
+t[2], -- ./compiler/lua54.can:300
+vars[1], -- ./compiler/lua54.can:300
+{ -- ./compiler/lua54.can:300
+["tag"] = "Paren", -- ./compiler/lua54.can:300
+values[1] -- ./compiler/lua54.can:300
+} -- ./compiler/lua54.can:300
+}, "Op")) -- ./compiler/lua54.can:300
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+t[2], -- ./compiler/lua54.can:302
+vars[i], -- ./compiler/lua54.can:302
+{ -- ./compiler/lua54.can:302
+["tag"] = "Paren", -- ./compiler/lua54.can:302
+values[i] -- ./compiler/lua54.can:302
+} -- ./compiler/lua54.can:302
+}, "Op")) -- ./compiler/lua54.can:302
 end -- ./compiler/lua54.can:302
-return r -- ./compiler/lua54.can:304
-else -- ./compiler/lua54.can:304
-local r = "" -- ./compiler/lua54.can:306
-if # vars > 0 then -- ./compiler/lua54.can:307
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:308
-t[3], -- ./compiler/lua54.can:308
-{ -- ./compiler/lua54.can:308
-["tag"] = "Paren", -- ./compiler/lua54.can:308
-values[1] -- ./compiler/lua54.can:308
-}, -- ./compiler/lua54.can:308
-vars[1] -- ./compiler/lua54.can:308
-}, "Op")) -- ./compiler/lua54.can:308
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:309
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:310
-t[3], -- ./compiler/lua54.can:310
-{ -- ./compiler/lua54.can:310
-["tag"] = "Paren", -- ./compiler/lua54.can:310
-values[i] -- ./compiler/lua54.can:310
-}, -- ./compiler/lua54.can:310
-vars[i] -- ./compiler/lua54.can:310
-}, "Op")) -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-end -- ./compiler/lua54.can:310
-if # destructuringVars > 0 then -- ./compiler/lua54.can:313
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:314
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:315
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:316
+end -- ./compiler/lua54.can:302
+if # destructuringVars > 0 then -- ./compiler/lua54.can:305
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
+end -- ./compiler/lua54.can:308
+return r -- ./compiler/lua54.can:310
+else -- ./compiler/lua54.can:310
+local r = "" -- ./compiler/lua54.can:312
+if # vars > 0 then -- ./compiler/lua54.can:313
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
+t[3], -- ./compiler/lua54.can:314
+{ -- ./compiler/lua54.can:314
+["tag"] = "Paren", -- ./compiler/lua54.can:314
+values[1] -- ./compiler/lua54.can:314
+}, -- ./compiler/lua54.can:314
+vars[1] -- ./compiler/lua54.can:314
+}, "Op")) -- ./compiler/lua54.can:314
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+t[3], -- ./compiler/lua54.can:316
+{ -- ./compiler/lua54.can:316
+["tag"] = "Paren", -- ./compiler/lua54.can:316
+values[i] -- ./compiler/lua54.can:316
+}, -- ./compiler/lua54.can:316
+vars[i] -- ./compiler/lua54.can:316
+}, "Op")) -- ./compiler/lua54.can:316
 end -- ./compiler/lua54.can:316
-return r -- ./compiler/lua54.can:318
-end -- ./compiler/lua54.can:318
-else -- ./compiler/lua54.can:318
-local r = "" -- ./compiler/lua54.can:321
-if # vars > 0 then -- ./compiler/lua54.can:322
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:323
-t[2], -- ./compiler/lua54.can:323
-vars[1], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Op", -- ./compiler/lua54.can:323
-t[4], -- ./compiler/lua54.can:323
-{ -- ./compiler/lua54.can:323
-["tag"] = "Paren", -- ./compiler/lua54.can:323
-values[1] -- ./compiler/lua54.can:323
-}, -- ./compiler/lua54.can:323
-vars[1] -- ./compiler/lua54.can:323
-} -- ./compiler/lua54.can:323
-}, "Op")) -- ./compiler/lua54.can:323
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:324
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:325
-t[2], -- ./compiler/lua54.can:325
-vars[i], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Op", -- ./compiler/lua54.can:325
-t[4], -- ./compiler/lua54.can:325
-{ -- ./compiler/lua54.can:325
-["tag"] = "Paren", -- ./compiler/lua54.can:325
-values[i] -- ./compiler/lua54.can:325
-}, -- ./compiler/lua54.can:325
-vars[i] -- ./compiler/lua54.can:325
-} -- ./compiler/lua54.can:325
-}, "Op")) -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-end -- ./compiler/lua54.can:325
-if # destructuringVars > 0 then -- ./compiler/lua54.can:328
-local destructured = { -- ./compiler/lua54.can:329
-["rightOp"] = t[2], -- ./compiler/lua54.can:329
-["leftOp"] = t[4] -- ./compiler/lua54.can:329
+end -- ./compiler/lua54.can:316
+if # destructuringVars > 0 then -- ./compiler/lua54.can:319
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
+end -- ./compiler/lua54.can:322
+return r -- ./compiler/lua54.can:324
+end -- ./compiler/lua54.can:324
+else -- ./compiler/lua54.can:324
+local r = "" -- ./compiler/lua54.can:327
+if # vars > 0 then -- ./compiler/lua54.can:328
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
+t[2], -- ./compiler/lua54.can:329
+vars[1], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Op", -- ./compiler/lua54.can:329
+t[4], -- ./compiler/lua54.can:329
+{ -- ./compiler/lua54.can:329
+["tag"] = "Paren", -- ./compiler/lua54.can:329
+values[1] -- ./compiler/lua54.can:329
+}, -- ./compiler/lua54.can:329
+vars[1] -- ./compiler/lua54.can:329
 } -- ./compiler/lua54.can:329
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:330
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:329
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+t[2], -- ./compiler/lua54.can:331
+vars[i], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Op", -- ./compiler/lua54.can:331
+t[4], -- ./compiler/lua54.can:331
+{ -- ./compiler/lua54.can:331
+["tag"] = "Paren", -- ./compiler/lua54.can:331
+values[i] -- ./compiler/lua54.can:331
+}, -- ./compiler/lua54.can:331
+vars[i] -- ./compiler/lua54.can:331
+} -- ./compiler/lua54.can:331
+}, "Op")) -- ./compiler/lua54.can:331
 end -- ./compiler/lua54.can:331
-return r -- ./compiler/lua54.can:333
-end -- ./compiler/lua54.can:333
-end, -- ./compiler/lua54.can:333
-["While"] = function(t) -- ./compiler/lua54.can:337
-local r = "" -- ./compiler/lua54.can:338
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:339
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:340
-if # lets > 0 then -- ./compiler/lua54.can:341
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:342
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:343
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-end -- ./compiler/lua54.can:344
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:347
-if # lets > 0 then -- ./compiler/lua54.can:348
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:349
-end -- ./compiler/lua54.can:349
-if hasContinue then -- ./compiler/lua54.can:351
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:352
-end -- ./compiler/lua54.can:352
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:354
-if hasContinue then -- ./compiler/lua54.can:355
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:356
-end -- ./compiler/lua54.can:356
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:358
-if # lets > 0 then -- ./compiler/lua54.can:359
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:360
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:361
-end -- ./compiler/lua54.can:361
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:363
-end -- ./compiler/lua54.can:363
-return r -- ./compiler/lua54.can:365
-end, -- ./compiler/lua54.can:365
-["Repeat"] = function(t) -- ./compiler/lua54.can:368
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:369
-local r = "repeat" .. indent() -- ./compiler/lua54.can:370
-if hasContinue then -- ./compiler/lua54.can:371
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:372
-end -- ./compiler/lua54.can:372
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:374
-if hasContinue then -- ./compiler/lua54.can:375
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:376
-end -- ./compiler/lua54.can:376
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:378
-return r -- ./compiler/lua54.can:379
-end, -- ./compiler/lua54.can:379
-["If"] = function(t) -- ./compiler/lua54.can:382
-local r = "" -- ./compiler/lua54.can:383
-local toClose = 0 -- ./compiler/lua54.can:384
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:385
-if # lets > 0 then -- ./compiler/lua54.can:386
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:387
-toClose = toClose + (1) -- ./compiler/lua54.can:388
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:389
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-end -- ./compiler/lua54.can:390
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:393
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:394
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:395
-if # lets > 0 then -- ./compiler/lua54.can:396
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:397
-toClose = toClose + (1) -- ./compiler/lua54.can:398
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:399
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:400
-end -- ./compiler/lua54.can:400
-else -- ./compiler/lua54.can:400
-r = r .. ("else") -- ./compiler/lua54.can:403
-end -- ./compiler/lua54.can:403
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:405
-end -- ./compiler/lua54.can:405
-if # t % 2 == 1 then -- ./compiler/lua54.can:407
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:408
-end -- ./compiler/lua54.can:408
-r = r .. ("end") -- ./compiler/lua54.can:410
-for i = 1, toClose do -- ./compiler/lua54.can:411
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:412
-end -- ./compiler/lua54.can:412
-return r -- ./compiler/lua54.can:414
-end, -- ./compiler/lua54.can:414
-["Fornum"] = function(t) -- ./compiler/lua54.can:417
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:418
-if # t == 5 then -- ./compiler/lua54.can:419
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:420
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:421
-if hasContinue then -- ./compiler/lua54.can:422
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:423
-end -- ./compiler/lua54.can:423
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:425
-if hasContinue then -- ./compiler/lua54.can:426
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:427
-end -- ./compiler/lua54.can:427
-return r .. unindent() .. "end" -- ./compiler/lua54.can:429
-else -- ./compiler/lua54.can:429
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:431
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:432
-if hasContinue then -- ./compiler/lua54.can:433
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:434
-end -- ./compiler/lua54.can:434
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:436
-if hasContinue then -- ./compiler/lua54.can:437
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:438
-end -- ./compiler/lua54.can:438
-return r .. unindent() .. "end" -- ./compiler/lua54.can:440
+end -- ./compiler/lua54.can:331
+if # destructuringVars > 0 then -- ./compiler/lua54.can:334
+local destructured = { -- ./compiler/lua54.can:335
+["rightOp"] = t[2], -- ./compiler/lua54.can:335
+["leftOp"] = t[4] -- ./compiler/lua54.can:335
+} -- ./compiler/lua54.can:335
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
+end -- ./compiler/lua54.can:337
+return r -- ./compiler/lua54.can:339
+end -- ./compiler/lua54.can:339
+end, -- ./compiler/lua54.can:339
+["While"] = function(t) -- ./compiler/lua54.can:343
+local r = "" -- ./compiler/lua54.can:344
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
+if # lets > 0 then -- ./compiler/lua54.can:347
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+end -- ./compiler/lua54.can:350
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
+if # lets > 0 then -- ./compiler/lua54.can:354
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
+end -- ./compiler/lua54.can:355
+if hasContinue then -- ./compiler/lua54.can:357
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
+end -- ./compiler/lua54.can:358
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
+if hasContinue then -- ./compiler/lua54.can:361
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
+end -- ./compiler/lua54.can:362
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
+if # lets > 0 then -- ./compiler/lua54.can:365
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
+end -- ./compiler/lua54.can:367
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+end -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:371
+end, -- ./compiler/lua54.can:371
+["Repeat"] = function(t) -- ./compiler/lua54.can:374
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
+local r = "repeat" .. indent() -- ./compiler/lua54.can:376
+if hasContinue then -- ./compiler/lua54.can:377
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
+end -- ./compiler/lua54.can:378
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
+if hasContinue then -- ./compiler/lua54.can:381
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
+end -- ./compiler/lua54.can:382
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
+return r -- ./compiler/lua54.can:385
+end, -- ./compiler/lua54.can:385
+["If"] = function(t) -- ./compiler/lua54.can:388
+local r = "" -- ./compiler/lua54.can:389
+local toClose = 0 -- ./compiler/lua54.can:390
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
+if # lets > 0 then -- ./compiler/lua54.can:392
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
+toClose = toClose + (1) -- ./compiler/lua54.can:394
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+end -- ./compiler/lua54.can:396
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
+if # lets > 0 then -- ./compiler/lua54.can:402
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
+toClose = toClose + (1) -- ./compiler/lua54.can:404
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
+end -- ./compiler/lua54.can:406
+else -- ./compiler/lua54.can:406
+r = r .. ("else") -- ./compiler/lua54.can:409
+end -- ./compiler/lua54.can:409
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+end -- ./compiler/lua54.can:411
+if # t % 2 == 1 then -- ./compiler/lua54.can:413
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
+end -- ./compiler/lua54.can:414
+r = r .. ("end") -- ./compiler/lua54.can:416
+for i = 1, toClose do -- ./compiler/lua54.can:417
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
+end -- ./compiler/lua54.can:418
+return r -- ./compiler/lua54.can:420
+end, -- ./compiler/lua54.can:420
+["Fornum"] = function(t) -- ./compiler/lua54.can:423
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
+if # t == 5 then -- ./compiler/lua54.can:425
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
+if hasContinue then -- ./compiler/lua54.can:428
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
+end -- ./compiler/lua54.can:429
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
+if hasContinue then -- ./compiler/lua54.can:432
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
+end -- ./compiler/lua54.can:433
+return r .. unindent() .. "end" -- ./compiler/lua54.can:435
+else -- ./compiler/lua54.can:435
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
+if hasContinue then -- ./compiler/lua54.can:439
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
 end -- ./compiler/lua54.can:440
-end, -- ./compiler/lua54.can:440
-["Forin"] = function(t) -- ./compiler/lua54.can:444
-local destructured = {} -- ./compiler/lua54.can:445
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:446
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:447
-if hasContinue then -- ./compiler/lua54.can:448
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:449
-end -- ./compiler/lua54.can:449
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:451
-if hasContinue then -- ./compiler/lua54.can:452
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:453
-end -- ./compiler/lua54.can:453
-return r .. unindent() .. "end" -- ./compiler/lua54.can:455
-end, -- ./compiler/lua54.can:455
-["Local"] = function(t) -- ./compiler/lua54.can:458
-local destructured = {} -- ./compiler/lua54.can:459
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:460
-if t[2][1] then -- ./compiler/lua54.can:461
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:462
-end -- ./compiler/lua54.can:462
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:464
-end, -- ./compiler/lua54.can:464
-["Let"] = function(t) -- ./compiler/lua54.can:467
-local destructured = {} -- ./compiler/lua54.can:468
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:469
-local r = "local " .. nameList -- ./compiler/lua54.can:470
-if t[2][1] then -- ./compiler/lua54.can:471
-if all(t[2], { -- ./compiler/lua54.can:472
-"Nil", -- ./compiler/lua54.can:472
-"Dots", -- ./compiler/lua54.can:472
-"Boolean", -- ./compiler/lua54.can:472
-"Number", -- ./compiler/lua54.can:472
-"String" -- ./compiler/lua54.can:472
-}) then -- ./compiler/lua54.can:472
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:473
-else -- ./compiler/lua54.can:473
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-end -- ./compiler/lua54.can:475
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:478
-end, -- ./compiler/lua54.can:478
-["Localrec"] = function(t) -- ./compiler/lua54.can:481
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:482
-end, -- ./compiler/lua54.can:482
-["Goto"] = function(t) -- ./compiler/lua54.can:485
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:486
-end, -- ./compiler/lua54.can:486
-["Label"] = function(t) -- ./compiler/lua54.can:489
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:490
-end, -- ./compiler/lua54.can:490
-["Return"] = function(t) -- ./compiler/lua54.can:493
-local push = peek("push") -- ./compiler/lua54.can:494
-if push then -- ./compiler/lua54.can:495
-local r = "" -- ./compiler/lua54.can:496
-for _, val in ipairs(t) do -- ./compiler/lua54.can:497
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:498
-end -- ./compiler/lua54.can:498
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:500
-else -- ./compiler/lua54.can:500
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:502
-end -- ./compiler/lua54.can:502
-end, -- ./compiler/lua54.can:502
-["Push"] = function(t) -- ./compiler/lua54.can:506
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:507
-r = "" -- ./compiler/lua54.can:508
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:509
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:510
-end -- ./compiler/lua54.can:510
-if t[# t] then -- ./compiler/lua54.can:512
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:513
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:514
-else -- ./compiler/lua54.can:514
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:516
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
+if hasContinue then -- ./compiler/lua54.can:443
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
+end -- ./compiler/lua54.can:444
+return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+end -- ./compiler/lua54.can:446
+end, -- ./compiler/lua54.can:446
+["Forin"] = function(t) -- ./compiler/lua54.can:450
+local destructured = {} -- ./compiler/lua54.can:451
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
+if hasContinue then -- ./compiler/lua54.can:454
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
+end -- ./compiler/lua54.can:455
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
+if hasContinue then -- ./compiler/lua54.can:458
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
+end -- ./compiler/lua54.can:459
+return r .. unindent() .. "end" -- ./compiler/lua54.can:461
+end, -- ./compiler/lua54.can:461
+["Local"] = function(t) -- ./compiler/lua54.can:464
+local destructured = {} -- ./compiler/lua54.can:465
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
+if t[2][1] then -- ./compiler/lua54.can:467
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
+end -- ./compiler/lua54.can:468
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
+end, -- ./compiler/lua54.can:470
+["Let"] = function(t) -- ./compiler/lua54.can:473
+local destructured = {} -- ./compiler/lua54.can:474
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
+local r = "local " .. nameList -- ./compiler/lua54.can:476
+if t[2][1] then -- ./compiler/lua54.can:477
+if all(t[2], { -- ./compiler/lua54.can:478
+"Nil", -- ./compiler/lua54.can:478
+"Dots", -- ./compiler/lua54.can:478
+"Boolean", -- ./compiler/lua54.can:478
+"Number", -- ./compiler/lua54.can:478
+"String" -- ./compiler/lua54.can:478
+}) then -- ./compiler/lua54.can:478
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
+else -- ./compiler/lua54.can:479
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+end -- ./compiler/lua54.can:481
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
+end, -- ./compiler/lua54.can:484
+["Localrec"] = function(t) -- ./compiler/lua54.can:487
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
+end, -- ./compiler/lua54.can:488
+["Goto"] = function(t) -- ./compiler/lua54.can:491
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
+end, -- ./compiler/lua54.can:492
+["Label"] = function(t) -- ./compiler/lua54.can:495
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
+end, -- ./compiler/lua54.can:496
+["Return"] = function(t) -- ./compiler/lua54.can:499
+local push = peek("push") -- ./compiler/lua54.can:500
+if push then -- ./compiler/lua54.can:501
+local r = "" -- ./compiler/lua54.can:502
+for _, val in ipairs(t) do -- ./compiler/lua54.can:503
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
+end -- ./compiler/lua54.can:504
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
+else -- ./compiler/lua54.can:506
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
+end -- ./compiler/lua54.can:508
+end, -- ./compiler/lua54.can:508
+["Push"] = function(t) -- ./compiler/lua54.can:512
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
+r = "" -- ./compiler/lua54.can:514
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
 end -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-return r -- ./compiler/lua54.can:519
-end, -- ./compiler/lua54.can:519
-["Break"] = function() -- ./compiler/lua54.can:522
-return "break" -- ./compiler/lua54.can:523
-end, -- ./compiler/lua54.can:523
-["Continue"] = function() -- ./compiler/lua54.can:526
-return "goto " .. var("continue") -- ./compiler/lua54.can:527
-end, -- ./compiler/lua54.can:527
-["Nil"] = function() -- ./compiler/lua54.can:534
-return "nil" -- ./compiler/lua54.can:535
-end, -- ./compiler/lua54.can:535
-["Dots"] = function() -- ./compiler/lua54.can:538
-return "..." -- ./compiler/lua54.can:539
-end, -- ./compiler/lua54.can:539
-["Boolean"] = function(t) -- ./compiler/lua54.can:542
-return tostring(t[1]) -- ./compiler/lua54.can:543
-end, -- ./compiler/lua54.can:543
-["Number"] = function(t) -- ./compiler/lua54.can:546
-return tostring(t[1]) -- ./compiler/lua54.can:547
-end, -- ./compiler/lua54.can:547
-["String"] = function(t) -- ./compiler/lua54.can:550
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:551
-end, -- ./compiler/lua54.can:551
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:554
-local r = "(" -- ./compiler/lua54.can:555
-local decl = {} -- ./compiler/lua54.can:556
-if t[1][1] then -- ./compiler/lua54.can:557
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:558
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:559
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:560
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:561
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:562
-r = r .. (id) -- ./compiler/lua54.can:563
-else -- ./compiler/lua54.can:563
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:565
-end -- ./compiler/lua54.can:565
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:567
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:568
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:569
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:570
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:571
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:572
-r = r .. (", " .. id) -- ./compiler/lua54.can:573
-else -- ./compiler/lua54.can:573
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-end -- ./compiler/lua54.can:575
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:579
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:580
-r = r .. (d .. newline()) -- ./compiler/lua54.can:581
-end -- ./compiler/lua54.can:581
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:583
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:584
-end -- ./compiler/lua54.can:584
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:586
-if hasPush then -- ./compiler/lua54.can:587
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:588
-else -- ./compiler/lua54.can:588
-push("push", false) -- ./compiler/lua54.can:590
-end -- ./compiler/lua54.can:590
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:592
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:593
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:594
-end -- ./compiler/lua54.can:594
-pop("push") -- ./compiler/lua54.can:596
-return r .. unindent() .. "end" -- ./compiler/lua54.can:597
-end, -- ./compiler/lua54.can:597
-["Function"] = function(t) -- ./compiler/lua54.can:599
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:600
-end, -- ./compiler/lua54.can:600
-["Pair"] = function(t) -- ./compiler/lua54.can:603
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:604
-end, -- ./compiler/lua54.can:604
-["Table"] = function(t) -- ./compiler/lua54.can:606
-if # t == 0 then -- ./compiler/lua54.can:607
-return "{}" -- ./compiler/lua54.can:608
-elseif # t == 1 then -- ./compiler/lua54.can:609
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:610
-else -- ./compiler/lua54.can:610
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:612
-end -- ./compiler/lua54.can:612
-end, -- ./compiler/lua54.can:612
-["TableCompr"] = function(t) -- ./compiler/lua54.can:616
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:617
-end, -- ./compiler/lua54.can:617
-["Op"] = function(t) -- ./compiler/lua54.can:620
-local r -- ./compiler/lua54.can:621
-if # t == 2 then -- ./compiler/lua54.can:622
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:623
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:624
+if t[# t] then -- ./compiler/lua54.can:518
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
+else -- ./compiler/lua54.can:520
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+end -- ./compiler/lua54.can:522
+return r -- ./compiler/lua54.can:525
+end, -- ./compiler/lua54.can:525
+["Break"] = function() -- ./compiler/lua54.can:528
+return "break" -- ./compiler/lua54.can:529
+end, -- ./compiler/lua54.can:529
+["Continue"] = function() -- ./compiler/lua54.can:532
+return "goto " .. var("continue") -- ./compiler/lua54.can:533
+end, -- ./compiler/lua54.can:533
+["Nil"] = function() -- ./compiler/lua54.can:540
+return "nil" -- ./compiler/lua54.can:541
+end, -- ./compiler/lua54.can:541
+["Dots"] = function() -- ./compiler/lua54.can:544
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
+return r -- ./compiler/lua54.can:550
+else -- ./compiler/lua54.can:550
+return "..." -- ./compiler/lua54.can:552
+end -- ./compiler/lua54.can:552
+end, -- ./compiler/lua54.can:552
+["Boolean"] = function(t) -- ./compiler/lua54.can:556
+return tostring(t[1]) -- ./compiler/lua54.can:557
+end, -- ./compiler/lua54.can:557
+["Number"] = function(t) -- ./compiler/lua54.can:560
+return tostring(t[1]) -- ./compiler/lua54.can:561
+end, -- ./compiler/lua54.can:561
+["String"] = function(t) -- ./compiler/lua54.can:564
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
+end, -- ./compiler/lua54.can:565
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
+local r = "(" -- ./compiler/lua54.can:569
+local decl = {} -- ./compiler/lua54.can:570
+if t[1][1] then -- ./compiler/lua54.can:571
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
+r = r .. (id) -- ./compiler/lua54.can:577
+else -- ./compiler/lua54.can:577
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
+end -- ./compiler/lua54.can:579
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
+r = r .. (", " .. id) -- ./compiler/lua54.can:587
+else -- ./compiler/lua54.can:587
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+end -- ./compiler/lua54.can:589
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
+r = r .. (d .. newline()) -- ./compiler/lua54.can:595
+end -- ./compiler/lua54.can:595
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
+end -- ./compiler/lua54.can:598
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
+if hasPush then -- ./compiler/lua54.can:601
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
+else -- ./compiler/lua54.can:602
+push("push", false) -- ./compiler/lua54.can:604
+end -- ./compiler/lua54.can:604
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
+end -- ./compiler/lua54.can:608
+pop("push") -- ./compiler/lua54.can:610
+return r .. unindent() .. "end" -- ./compiler/lua54.can:611
+end, -- ./compiler/lua54.can:611
+["Function"] = function(t) -- ./compiler/lua54.can:613
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
+end, -- ./compiler/lua54.can:614
+["Pair"] = function(t) -- ./compiler/lua54.can:617
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
+end, -- ./compiler/lua54.can:618
+["Table"] = function(t) -- ./compiler/lua54.can:620
+if # t == 0 then -- ./compiler/lua54.can:621
+return "{}" -- ./compiler/lua54.can:622
+elseif # t == 1 then -- ./compiler/lua54.can:623
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
 else -- ./compiler/lua54.can:624
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
 end -- ./compiler/lua54.can:626
-else -- ./compiler/lua54.can:626
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:629
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:630
-else -- ./compiler/lua54.can:630
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-end -- ./compiler/lua54.can:632
-return r -- ./compiler/lua54.can:635
-end, -- ./compiler/lua54.can:635
-["Paren"] = function(t) -- ./compiler/lua54.can:638
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:639
-end, -- ./compiler/lua54.can:639
-["MethodStub"] = function(t) -- ./compiler/lua54.can:642
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:648
-end, -- ./compiler/lua54.can:648
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:651
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:658
-end, -- ./compiler/lua54.can:658
-["LetExpr"] = function(t) -- ./compiler/lua54.can:665
-return lua(t[1][1]) -- ./compiler/lua54.can:666
-end, -- ./compiler/lua54.can:666
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:670
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:671
-local r = "(function()" .. indent() -- ./compiler/lua54.can:672
-if hasPush then -- ./compiler/lua54.can:673
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:674
-else -- ./compiler/lua54.can:674
-push("push", false) -- ./compiler/lua54.can:676
-end -- ./compiler/lua54.can:676
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:678
-if hasPush then -- ./compiler/lua54.can:679
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:680
-end -- ./compiler/lua54.can:680
-pop("push") -- ./compiler/lua54.can:682
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:683
-return r -- ./compiler/lua54.can:684
-end, -- ./compiler/lua54.can:684
-["DoExpr"] = function(t) -- ./compiler/lua54.can:687
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:688
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:689
-end -- ./compiler/lua54.can:689
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:691
-end, -- ./compiler/lua54.can:691
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:694
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:695
-end, -- ./compiler/lua54.can:695
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:698
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:699
-end, -- ./compiler/lua54.can:699
-["IfExpr"] = function(t) -- ./compiler/lua54.can:702
-for i = 2, # t do -- ./compiler/lua54.can:703
-local block = t[i] -- ./compiler/lua54.can:704
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:705
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-end -- ./compiler/lua54.can:706
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:709
+end, -- ./compiler/lua54.can:626
+["TableCompr"] = function(t) -- ./compiler/lua54.can:630
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
+end, -- ./compiler/lua54.can:631
+["Op"] = function(t) -- ./compiler/lua54.can:634
+local r -- ./compiler/lua54.can:635
+if # t == 2 then -- ./compiler/lua54.can:636
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
+else -- ./compiler/lua54.can:638
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
+end -- ./compiler/lua54.can:640
+else -- ./compiler/lua54.can:640
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
+else -- ./compiler/lua54.can:644
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+end -- ./compiler/lua54.can:646
+return r -- ./compiler/lua54.can:649
+end, -- ./compiler/lua54.can:649
+["Paren"] = function(t) -- ./compiler/lua54.can:652
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
+end, -- ./compiler/lua54.can:653
+["MethodStub"] = function(t) -- ./compiler/lua54.can:656
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
+end, -- ./compiler/lua54.can:662
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
+end, -- ./compiler/lua54.can:672
+["LetExpr"] = function(t) -- ./compiler/lua54.can:679
+return lua(t[1][1]) -- ./compiler/lua54.can:680
+end, -- ./compiler/lua54.can:680
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
+local r = "(function()" .. indent() -- ./compiler/lua54.can:686
+if hasPush then -- ./compiler/lua54.can:687
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
+else -- ./compiler/lua54.can:688
+push("push", false) -- ./compiler/lua54.can:690
+end -- ./compiler/lua54.can:690
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
+if hasPush then -- ./compiler/lua54.can:693
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
+end -- ./compiler/lua54.can:694
+pop("push") -- ./compiler/lua54.can:696
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
+return r -- ./compiler/lua54.can:698
+end, -- ./compiler/lua54.can:698
+["DoExpr"] = function(t) -- ./compiler/lua54.can:701
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
+end -- ./compiler/lua54.can:703
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
+end, -- ./compiler/lua54.can:705
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
 end, -- ./compiler/lua54.can:709
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:713
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
 end, -- ./compiler/lua54.can:713
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:716
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:717
-end, -- ./compiler/lua54.can:717
-["Call"] = function(t) -- ./compiler/lua54.can:723
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:724
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:725
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:726
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:727
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:728
-else -- ./compiler/lua54.can:728
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:730
-end -- ./compiler/lua54.can:730
-else -- ./compiler/lua54.can:730
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:733
-end -- ./compiler/lua54.can:733
-end, -- ./compiler/lua54.can:733
-["SafeCall"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:738
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:739
-else -- ./compiler/lua54.can:739
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:741
-end -- ./compiler/lua54.can:741
-end, -- ./compiler/lua54.can:741
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:746
-if start == nil then start = 1 end -- ./compiler/lua54.can:746
-local r -- ./compiler/lua54.can:747
-if t[start] then -- ./compiler/lua54.can:748
-r = lua(t[start]) -- ./compiler/lua54.can:749
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:750
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:751
-end -- ./compiler/lua54.can:751
+["IfExpr"] = function(t) -- ./compiler/lua54.can:716
+for i = 2, # t do -- ./compiler/lua54.can:717
+local block = t[i] -- ./compiler/lua54.can:718
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+end -- ./compiler/lua54.can:720
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
+end, -- ./compiler/lua54.can:723
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
+end, -- ./compiler/lua54.can:727
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
+end, -- ./compiler/lua54.can:731
+["Call"] = function(t) -- ./compiler/lua54.can:737
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
+local replacement = macro["replacement"] -- ./compiler/lua54.can:742
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
+macroargs["..."] = (function() -- ./compiler/lua54.can:746
+local self = {} -- ./compiler/lua54.can:746
+for j = i + 1, # t do -- ./compiler/lua54.can:746
+self[#self+1] = t[j] -- ./compiler/lua54.can:746
+end -- ./compiler/lua54.can:746
+return self -- ./compiler/lua54.can:746
+end)() -- ./compiler/lua54.can:746
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
+if t[i + 1] == nil then -- ./compiler/lua54.can:748
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
+end -- ./compiler/lua54.can:749
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
 else -- ./compiler/lua54.can:751
-r = "" -- ./compiler/lua54.can:754
-end -- ./compiler/lua54.can:754
-return r -- ./compiler/lua54.can:756
-end, -- ./compiler/lua54.can:756
-["Id"] = function(t) -- ./compiler/lua54.can:759
-return t[1] -- ./compiler/lua54.can:760
-end, -- ./compiler/lua54.can:760
-["AttributeId"] = function(t) -- ./compiler/lua54.can:763
-if t[2] then -- ./compiler/lua54.can:764
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:765
-else -- ./compiler/lua54.can:765
-return t[1] -- ./compiler/lua54.can:767
-end -- ./compiler/lua54.can:767
-end, -- ./compiler/lua54.can:767
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:771
-if t["id"] then -- ./compiler/lua54.can:772
-return t["id"] -- ./compiler/lua54.can:773
-else -- ./compiler/lua54.can:773
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:775
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:776
-for j = 1, # t, 1 do -- ./compiler/lua54.can:777
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:778
-end -- ./compiler/lua54.can:778
-table["insert"](d, vars) -- ./compiler/lua54.can:780
-t["id"] = vars["id"] -- ./compiler/lua54.can:781
-return vars["id"] -- ./compiler/lua54.can:782
-end -- ./compiler/lua54.can:782
-end, -- ./compiler/lua54.can:782
-["Index"] = function(t) -- ./compiler/lua54.can:786
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:787
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:788
-else -- ./compiler/lua54.can:788
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:790
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+end -- ./compiler/lua54.can:753
+push("macroargs", macroargs) -- ./compiler/lua54.can:756
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
+local r = lua(replacement) -- ./compiler/lua54.can:758
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
+pop("macroargs") -- ./compiler/lua54.can:760
+return r -- ./compiler/lua54.can:761
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
+else -- ./compiler/lua54.can:764
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
+end -- ./compiler/lua54.can:766
+else -- ./compiler/lua54.can:766
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+end -- ./compiler/lua54.can:769
+end, -- ./compiler/lua54.can:769
+["SafeCall"] = function(t) -- ./compiler/lua54.can:773
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+else -- ./compiler/lua54.can:775
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+end -- ./compiler/lua54.can:777
+end, -- ./compiler/lua54.can:777
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
+if start == nil then start = 1 end -- ./compiler/lua54.can:782
+local r -- ./compiler/lua54.can:783
+if t[start] then -- ./compiler/lua54.can:784
+r = lua(t[start]) -- ./compiler/lua54.can:785
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
+end -- ./compiler/lua54.can:787
+else -- ./compiler/lua54.can:787
+r = "" -- ./compiler/lua54.can:790
 end -- ./compiler/lua54.can:790
-end, -- ./compiler/lua54.can:790
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:794
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:795
-local l = {} -- ./compiler/lua54.can:796
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:797
-table["insert"](l, 1, t) -- ./compiler/lua54.can:798
-t = t[1] -- ./compiler/lua54.can:799
-end -- ./compiler/lua54.can:799
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:801
-for _, e in ipairs(l) do -- ./compiler/lua54.can:802
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:803
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:804
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:805
-else -- ./compiler/lua54.can:805
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:807
+return r -- ./compiler/lua54.can:792
+end, -- ./compiler/lua54.can:792
+["Id"] = function(t) -- ./compiler/lua54.can:795
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
+local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:802
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
+local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
+return r -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
 end -- ./compiler/lua54.can:807
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:810
-return r -- ./compiler/lua54.can:811
-else -- ./compiler/lua54.can:811
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:813
-end -- ./compiler/lua54.can:813
-end, -- ./compiler/lua54.can:813
-["_opid"] = { -- ./compiler/lua54.can:818
-["add"] = "+", -- ./compiler/lua54.can:819
-["sub"] = "-", -- ./compiler/lua54.can:819
-["mul"] = "*", -- ./compiler/lua54.can:819
-["div"] = "/", -- ./compiler/lua54.can:819
-["idiv"] = "//", -- ./compiler/lua54.can:820
-["mod"] = "%", -- ./compiler/lua54.can:820
-["pow"] = "^", -- ./compiler/lua54.can:820
-["concat"] = "..", -- ./compiler/lua54.can:820
-["band"] = "&", -- ./compiler/lua54.can:821
-["bor"] = "|", -- ./compiler/lua54.can:821
-["bxor"] = "~", -- ./compiler/lua54.can:821
-["shl"] = "<<", -- ./compiler/lua54.can:821
-["shr"] = ">>", -- ./compiler/lua54.can:821
-["eq"] = "==", -- ./compiler/lua54.can:822
-["ne"] = "~=", -- ./compiler/lua54.can:822
-["lt"] = "<", -- ./compiler/lua54.can:822
-["gt"] = ">", -- ./compiler/lua54.can:822
-["le"] = "<=", -- ./compiler/lua54.can:822
-["ge"] = ">=", -- ./compiler/lua54.can:822
-["and"] = "and", -- ./compiler/lua54.can:823
-["or"] = "or", -- ./compiler/lua54.can:823
-["unm"] = "-", -- ./compiler/lua54.can:823
-["len"] = "#", -- ./compiler/lua54.can:823
-["bnot"] = "~", -- ./compiler/lua54.can:823
-["not"] = "not" -- ./compiler/lua54.can:823
-} -- ./compiler/lua54.can:823
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:826
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:827
-end }) -- ./compiler/lua54.can:827
+return t[1] -- ./compiler/lua54.can:810
+end, -- ./compiler/lua54.can:810
+["AttributeId"] = function(t) -- ./compiler/lua54.can:813
+if t[2] then -- ./compiler/lua54.can:814
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
+else -- ./compiler/lua54.can:815
+return t[1] -- ./compiler/lua54.can:817
+end -- ./compiler/lua54.can:817
+end, -- ./compiler/lua54.can:817
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
+if t["id"] then -- ./compiler/lua54.can:822
+return t["id"] -- ./compiler/lua54.can:823
+else -- ./compiler/lua54.can:823
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
+for j = 1, # t, 1 do -- ./compiler/lua54.can:827
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
+end -- ./compiler/lua54.can:828
+table["insert"](d, vars) -- ./compiler/lua54.can:830
+t["id"] = vars["id"] -- ./compiler/lua54.can:831
+return vars["id"] -- ./compiler/lua54.can:832
+end -- ./compiler/lua54.can:832
+end, -- ./compiler/lua54.can:832
+["Index"] = function(t) -- ./compiler/lua54.can:836
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
+else -- ./compiler/lua54.can:838
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
+end -- ./compiler/lua54.can:840
+end, -- ./compiler/lua54.can:840
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
+local l = {} -- ./compiler/lua54.can:846
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
+table["insert"](l, 1, t) -- ./compiler/lua54.can:848
+t = t[1] -- ./compiler/lua54.can:849
+end -- ./compiler/lua54.can:849
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
+for _, e in ipairs(l) do -- ./compiler/lua54.can:852
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
+else -- ./compiler/lua54.can:855
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+end -- ./compiler/lua54.can:857
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
+return r -- ./compiler/lua54.can:861
+else -- ./compiler/lua54.can:861
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
+end -- ./compiler/lua54.can:863
+end, -- ./compiler/lua54.can:863
+["_opid"] = { -- ./compiler/lua54.can:868
+["add"] = "+", -- ./compiler/lua54.can:869
+["sub"] = "-", -- ./compiler/lua54.can:869
+["mul"] = "*", -- ./compiler/lua54.can:869
+["div"] = "/", -- ./compiler/lua54.can:869
+["idiv"] = "//", -- ./compiler/lua54.can:870
+["mod"] = "%", -- ./compiler/lua54.can:870
+["pow"] = "^", -- ./compiler/lua54.can:870
+["concat"] = "..", -- ./compiler/lua54.can:870
+["band"] = "&", -- ./compiler/lua54.can:871
+["bor"] = "|", -- ./compiler/lua54.can:871
+["bxor"] = "~", -- ./compiler/lua54.can:871
+["shl"] = "<<", -- ./compiler/lua54.can:871
+["shr"] = ">>", -- ./compiler/lua54.can:871
+["eq"] = "==", -- ./compiler/lua54.can:872
+["ne"] = "~=", -- ./compiler/lua54.can:872
+["lt"] = "<", -- ./compiler/lua54.can:872
+["gt"] = ">", -- ./compiler/lua54.can:872
+["le"] = "<=", -- ./compiler/lua54.can:872
+["ge"] = ">=", -- ./compiler/lua54.can:872
+["and"] = "and", -- ./compiler/lua54.can:873
+["or"] = "or", -- ./compiler/lua54.can:873
+["unm"] = "-", -- ./compiler/lua54.can:873
+["len"] = "#", -- ./compiler/lua54.can:873
+["bnot"] = "~", -- ./compiler/lua54.can:873
+["not"] = "not" -- ./compiler/lua54.can:873
+} -- ./compiler/lua54.can:873
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
+end }) -- ./compiler/lua54.can:877
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -4648,11 +4961,11 @@ end -- ./compiler/lua51.can:26
 tags["Label"] = function() -- ./compiler/lua51.can:28
 error("target " .. targetName .. " does not support goto labels") -- ./compiler/lua51.can:29
 end -- ./compiler/lua51.can:29
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:833
-return requireStr .. code -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-end -- ./compiler/lua54.can:834
-local lua54 = _() or lua54 -- ./compiler/lua54.can:839
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
+return requireStr .. code -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+end -- ./compiler/lua54.can:884
+local lua54 = _() or lua54 -- ./compiler/lua54.can:889
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -6060,343 +6373,370 @@ end -- ./candran/can-parser/parser.lua:303
 t["is_short"] = true -- ./candran/can-parser/parser.lua:305
 return t -- ./candran/can-parser/parser.lua:306
 end -- ./candran/can-parser/parser.lua:306
-local function statToExpr(t) -- ./candran/can-parser/parser.lua:309
-t["tag"] = t["tag"] .. "Expr" -- ./candran/can-parser/parser.lua:310
+local function markImplicit(t) -- ./candran/can-parser/parser.lua:309
+t["implicit"] = true -- ./candran/can-parser/parser.lua:310
 return t -- ./candran/can-parser/parser.lua:311
 end -- ./candran/can-parser/parser.lua:311
-local function fixStructure(t) -- ./candran/can-parser/parser.lua:314
-local i = 1 -- ./candran/can-parser/parser.lua:315
-while i <= # t do -- ./candran/can-parser/parser.lua:316
-if type(t[i]) == "table" then -- ./candran/can-parser/parser.lua:317
-fixStructure(t[i]) -- ./candran/can-parser/parser.lua:318
-for j = # t[i], 1, - 1 do -- ./candran/can-parser/parser.lua:319
-local stat = t[i][j] -- ./candran/can-parser/parser.lua:320
-if type(stat) == "table" and stat["move_up_block"] and stat["move_up_block"] > 0 then -- ./candran/can-parser/parser.lua:321
-table["remove"](t[i], j) -- ./candran/can-parser/parser.lua:322
-table["insert"](t, i + 1, stat) -- ./candran/can-parser/parser.lua:323
-if t["tag"] == "Block" or t["tag"] == "Do" then -- ./candran/can-parser/parser.lua:324
-stat["move_up_block"] = stat["move_up_block"] - 1 -- ./candran/can-parser/parser.lua:325
-end -- ./candran/can-parser/parser.lua:325
-end -- ./candran/can-parser/parser.lua:325
-end -- ./candran/can-parser/parser.lua:325
-end -- ./candran/can-parser/parser.lua:325
-i = i + 1 -- ./candran/can-parser/parser.lua:330
+local function statToExpr(t) -- ./candran/can-parser/parser.lua:314
+t["tag"] = t["tag"] .. "Expr" -- ./candran/can-parser/parser.lua:315
+return t -- ./candran/can-parser/parser.lua:316
+end -- ./candran/can-parser/parser.lua:316
+local function fixStructure(t) -- ./candran/can-parser/parser.lua:319
+local i = 1 -- ./candran/can-parser/parser.lua:320
+while i <= # t do -- ./candran/can-parser/parser.lua:321
+if type(t[i]) == "table" then -- ./candran/can-parser/parser.lua:322
+fixStructure(t[i]) -- ./candran/can-parser/parser.lua:323
+for j = # t[i], 1, - 1 do -- ./candran/can-parser/parser.lua:324
+local stat = t[i][j] -- ./candran/can-parser/parser.lua:325
+if type(stat) == "table" and stat["move_up_block"] and stat["move_up_block"] > 0 then -- ./candran/can-parser/parser.lua:326
+table["remove"](t[i], j) -- ./candran/can-parser/parser.lua:327
+table["insert"](t, i + 1, stat) -- ./candran/can-parser/parser.lua:328
+if t["tag"] == "Block" or t["tag"] == "Do" then -- ./candran/can-parser/parser.lua:329
+stat["move_up_block"] = stat["move_up_block"] - 1 -- ./candran/can-parser/parser.lua:330
 end -- ./candran/can-parser/parser.lua:330
-return t -- ./candran/can-parser/parser.lua:332
-end -- ./candran/can-parser/parser.lua:332
-local function searchEndRec(block, isRecCall) -- ./candran/can-parser/parser.lua:335
-for i, stat in ipairs(block) do -- ./candran/can-parser/parser.lua:336
-if stat["tag"] == "Set" or stat["tag"] == "Push" or stat["tag"] == "Return" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:338
-local exprlist -- ./candran/can-parser/parser.lua:339
-if stat["tag"] == "Set" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:341
-exprlist = stat[# stat] -- ./candran/can-parser/parser.lua:342
-elseif stat["tag"] == "Push" or stat["tag"] == "Return" then -- ./candran/can-parser/parser.lua:343
-exprlist = stat -- ./candran/can-parser/parser.lua:344
-end -- ./candran/can-parser/parser.lua:344
-local last = exprlist[# exprlist] -- ./candran/can-parser/parser.lua:347
-if last["tag"] == "Function" and last["is_short"] and not last["is_method"] and # last[1] == 1 then -- ./candran/can-parser/parser.lua:351
-local p = i -- ./candran/can-parser/parser.lua:352
-for j, fstat in ipairs(last[2]) do -- ./candran/can-parser/parser.lua:353
-p = i + j -- ./candran/can-parser/parser.lua:354
-table["insert"](block, p, fstat) -- ./candran/can-parser/parser.lua:355
-if stat["move_up_block"] then -- ./candran/can-parser/parser.lua:357
-fstat["move_up_block"] = (fstat["move_up_block"] or 0) + stat["move_up_block"] -- ./candran/can-parser/parser.lua:358
-end -- ./candran/can-parser/parser.lua:358
-if block["is_singlestatblock"] then -- ./candran/can-parser/parser.lua:361
-fstat["move_up_block"] = (fstat["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:362
-end -- ./candran/can-parser/parser.lua:362
-end -- ./candran/can-parser/parser.lua:362
-exprlist[# exprlist] = last[1] -- ./candran/can-parser/parser.lua:366
-exprlist[# exprlist]["tag"] = "Paren" -- ./candran/can-parser/parser.lua:367
-if not isRecCall then -- ./candran/can-parser/parser.lua:369
-for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:370
-block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:371
-end -- ./candran/can-parser/parser.lua:371
-end -- ./candran/can-parser/parser.lua:371
-return block, i -- ./candran/can-parser/parser.lua:375
-elseif last["tag"]:match("Expr$") then -- ./candran/can-parser/parser.lua:378
-local r = searchEndRec({ last }) -- ./candran/can-parser/parser.lua:379
-if r then -- ./candran/can-parser/parser.lua:380
-for j = 2, # r, 1 do -- ./candran/can-parser/parser.lua:381
-table["insert"](block, i + j - 1, r[j]) -- ./candran/can-parser/parser.lua:382
-end -- ./candran/can-parser/parser.lua:382
-return block, i -- ./candran/can-parser/parser.lua:384
-end -- ./candran/can-parser/parser.lua:384
-elseif last["tag"] == "Function" then -- ./candran/can-parser/parser.lua:386
-local r = searchEndRec(last[2]) -- ./candran/can-parser/parser.lua:387
-if r then -- ./candran/can-parser/parser.lua:388
+end -- ./candran/can-parser/parser.lua:330
+end -- ./candran/can-parser/parser.lua:330
+end -- ./candran/can-parser/parser.lua:330
+i = i + 1 -- ./candran/can-parser/parser.lua:335
+end -- ./candran/can-parser/parser.lua:335
+return t -- ./candran/can-parser/parser.lua:337
+end -- ./candran/can-parser/parser.lua:337
+local function searchEndRec(block, isRecCall) -- ./candran/can-parser/parser.lua:340
+for i, stat in ipairs(block) do -- ./candran/can-parser/parser.lua:341
+if stat["tag"] == "Set" or stat["tag"] == "Push" or stat["tag"] == "Return" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:343
+local exprlist -- ./candran/can-parser/parser.lua:344
+if stat["tag"] == "Set" or stat["tag"] == "Local" or stat["tag"] == "Let" or stat["tag"] == "Localrec" then -- ./candran/can-parser/parser.lua:346
+exprlist = stat[# stat] -- ./candran/can-parser/parser.lua:347
+elseif stat["tag"] == "Push" or stat["tag"] == "Return" then -- ./candran/can-parser/parser.lua:348
+exprlist = stat -- ./candran/can-parser/parser.lua:349
+end -- ./candran/can-parser/parser.lua:349
+local last = exprlist[# exprlist] -- ./candran/can-parser/parser.lua:352
+if last["tag"] == "Function" and last["is_short"] and not last["is_method"] and # last[1] == 1 then -- ./candran/can-parser/parser.lua:356
+local p = i -- ./candran/can-parser/parser.lua:357
+for j, fstat in ipairs(last[2]) do -- ./candran/can-parser/parser.lua:358
+p = i + j -- ./candran/can-parser/parser.lua:359
+table["insert"](block, p, fstat) -- ./candran/can-parser/parser.lua:360
+if stat["move_up_block"] then -- ./candran/can-parser/parser.lua:362
+fstat["move_up_block"] = (fstat["move_up_block"] or 0) + stat["move_up_block"] -- ./candran/can-parser/parser.lua:363
+end -- ./candran/can-parser/parser.lua:363
+if block["is_singlestatblock"] then -- ./candran/can-parser/parser.lua:366
+fstat["move_up_block"] = (fstat["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:367
+end -- ./candran/can-parser/parser.lua:367
+end -- ./candran/can-parser/parser.lua:367
+exprlist[# exprlist] = last[1] -- ./candran/can-parser/parser.lua:371
+exprlist[# exprlist]["tag"] = "Paren" -- ./candran/can-parser/parser.lua:372
+if not isRecCall then -- ./candran/can-parser/parser.lua:374
+for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:375
+block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:376
+end -- ./candran/can-parser/parser.lua:376
+end -- ./candran/can-parser/parser.lua:376
+return block, i -- ./candran/can-parser/parser.lua:380
+elseif last["tag"]:match("Expr$") then -- ./candran/can-parser/parser.lua:383
+local r = searchEndRec({ last }) -- ./candran/can-parser/parser.lua:384
+if r then -- ./candran/can-parser/parser.lua:385
+for j = 2, # r, 1 do -- ./candran/can-parser/parser.lua:386
+table["insert"](block, i + j - 1, r[j]) -- ./candran/can-parser/parser.lua:387
+end -- ./candran/can-parser/parser.lua:387
 return block, i -- ./candran/can-parser/parser.lua:389
 end -- ./candran/can-parser/parser.lua:389
-end -- ./candran/can-parser/parser.lua:389
-elseif stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Do") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:394
-local blocks -- ./candran/can-parser/parser.lua:395
-if stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:397
-blocks = stat -- ./candran/can-parser/parser.lua:398
-elseif stat["tag"]:match("^Do") then -- ./candran/can-parser/parser.lua:399
-blocks = { stat } -- ./candran/can-parser/parser.lua:400
-end -- ./candran/can-parser/parser.lua:400
-for _, iblock in ipairs(blocks) do -- ./candran/can-parser/parser.lua:403
-if iblock["tag"] == "Block" then -- ./candran/can-parser/parser.lua:404
-local oldLen = # iblock -- ./candran/can-parser/parser.lua:405
-local newiBlock, newEnd = searchEndRec(iblock, true) -- ./candran/can-parser/parser.lua:406
-if newiBlock then -- ./candran/can-parser/parser.lua:407
-local p = i -- ./candran/can-parser/parser.lua:408
-for j = newEnd + (# iblock - oldLen) + 1, # iblock, 1 do -- ./candran/can-parser/parser.lua:409
-p = p + 1 -- ./candran/can-parser/parser.lua:410
-table["insert"](block, p, iblock[j]) -- ./candran/can-parser/parser.lua:411
-iblock[j] = nil -- ./candran/can-parser/parser.lua:412
-end -- ./candran/can-parser/parser.lua:412
-if not isRecCall then -- ./candran/can-parser/parser.lua:415
-for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:416
-block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:417
+elseif last["tag"] == "Function" then -- ./candran/can-parser/parser.lua:391
+local r = searchEndRec(last[2]) -- ./candran/can-parser/parser.lua:392
+if r then -- ./candran/can-parser/parser.lua:393
+return block, i -- ./candran/can-parser/parser.lua:394
+end -- ./candran/can-parser/parser.lua:394
+end -- ./candran/can-parser/parser.lua:394
+elseif stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Do") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:399
+local blocks -- ./candran/can-parser/parser.lua:400
+if stat["tag"]:match("^If") or stat["tag"]:match("^While") or stat["tag"]:match("^Repeat") or stat["tag"]:match("^Fornum") or stat["tag"]:match("^Forin") then -- ./candran/can-parser/parser.lua:402
+blocks = stat -- ./candran/can-parser/parser.lua:403
+elseif stat["tag"]:match("^Do") then -- ./candran/can-parser/parser.lua:404
+blocks = { stat } -- ./candran/can-parser/parser.lua:405
+end -- ./candran/can-parser/parser.lua:405
+for _, iblock in ipairs(blocks) do -- ./candran/can-parser/parser.lua:408
+if iblock["tag"] == "Block" then -- ./candran/can-parser/parser.lua:409
+local oldLen = # iblock -- ./candran/can-parser/parser.lua:410
+local newiBlock, newEnd = searchEndRec(iblock, true) -- ./candran/can-parser/parser.lua:411
+if newiBlock then -- ./candran/can-parser/parser.lua:412
+local p = i -- ./candran/can-parser/parser.lua:413
+for j = newEnd + (# iblock - oldLen) + 1, # iblock, 1 do -- ./candran/can-parser/parser.lua:414
+p = p + 1 -- ./candran/can-parser/parser.lua:415
+table["insert"](block, p, iblock[j]) -- ./candran/can-parser/parser.lua:416
+iblock[j] = nil -- ./candran/can-parser/parser.lua:417
 end -- ./candran/can-parser/parser.lua:417
-end -- ./candran/can-parser/parser.lua:417
-return block, i -- ./candran/can-parser/parser.lua:421
-end -- ./candran/can-parser/parser.lua:421
-end -- ./candran/can-parser/parser.lua:421
-end -- ./candran/can-parser/parser.lua:421
-end -- ./candran/can-parser/parser.lua:421
-end -- ./candran/can-parser/parser.lua:421
-return nil -- ./candran/can-parser/parser.lua:427
-end -- ./candran/can-parser/parser.lua:427
-local function searchEnd(s, p, t) -- ./candran/can-parser/parser.lua:430
-local r = searchEndRec(fixStructure(t)) -- ./candran/can-parser/parser.lua:431
-if not r then -- ./candran/can-parser/parser.lua:432
-return false -- ./candran/can-parser/parser.lua:433
-end -- ./candran/can-parser/parser.lua:433
-return true, r -- ./candran/can-parser/parser.lua:435
-end -- ./candran/can-parser/parser.lua:435
-local function expectBlockOrSingleStatWithStartEnd(start, startLabel, stopLabel, canFollow) -- ./candran/can-parser/parser.lua:438
-if canFollow then -- ./candran/can-parser/parser.lua:439
-return (- start * V("SingleStatBlock") * canFollow ^ - 1) + (expect(start, startLabel) * ((V("Block") * (canFollow + kw("end"))) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:442
-else -- ./candran/can-parser/parser.lua:442
-return (- start * V("SingleStatBlock")) + (expect(start, startLabel) * ((V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:446
-end -- ./candran/can-parser/parser.lua:446
-end -- ./candran/can-parser/parser.lua:446
-local function expectBlockWithEnd(label) -- ./candran/can-parser/parser.lua:450
-return (V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(label)) -- ./candran/can-parser/parser.lua:452
-end -- ./candran/can-parser/parser.lua:452
-local function maybeBlockWithEnd() -- ./candran/can-parser/parser.lua:455
-return (V("BlockNoErr") * kw("end")) + Cmt(V("BlockNoErr"), searchEnd) -- ./candran/can-parser/parser.lua:457
+if not isRecCall then -- ./candran/can-parser/parser.lua:420
+for j = p + 1, # block, 1 do -- ./candran/can-parser/parser.lua:421
+block[j]["move_up_block"] = (block[j]["move_up_block"] or 0) + 1 -- ./candran/can-parser/parser.lua:422
+end -- ./candran/can-parser/parser.lua:422
+end -- ./candran/can-parser/parser.lua:422
+return block, i -- ./candran/can-parser/parser.lua:426
+end -- ./candran/can-parser/parser.lua:426
+end -- ./candran/can-parser/parser.lua:426
+end -- ./candran/can-parser/parser.lua:426
+end -- ./candran/can-parser/parser.lua:426
+end -- ./candran/can-parser/parser.lua:426
+return nil -- ./candran/can-parser/parser.lua:432
+end -- ./candran/can-parser/parser.lua:432
+local function searchEnd(s, p, t) -- ./candran/can-parser/parser.lua:435
+local r = searchEndRec(fixStructure(t)) -- ./candran/can-parser/parser.lua:436
+if not r then -- ./candran/can-parser/parser.lua:437
+return false -- ./candran/can-parser/parser.lua:438
+end -- ./candran/can-parser/parser.lua:438
+return true, r -- ./candran/can-parser/parser.lua:440
+end -- ./candran/can-parser/parser.lua:440
+local function expectBlockOrSingleStatWithStartEnd(start, startLabel, stopLabel, canFollow) -- ./candran/can-parser/parser.lua:443
+if canFollow then -- ./candran/can-parser/parser.lua:444
+return (- start * V("SingleStatBlock") * canFollow ^ - 1) + (expect(start, startLabel) * ((V("Block") * (canFollow + kw("end"))) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:447
+else -- ./candran/can-parser/parser.lua:447
+return (- start * V("SingleStatBlock")) + (expect(start, startLabel) * ((V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(stopLabel)))) -- ./candran/can-parser/parser.lua:451
+end -- ./candran/can-parser/parser.lua:451
+end -- ./candran/can-parser/parser.lua:451
+local function expectBlockWithEnd(label) -- ./candran/can-parser/parser.lua:455
+return (V("Block") * kw("end")) + (Cmt(V("Block"), searchEnd) + throw(label)) -- ./candran/can-parser/parser.lua:457
 end -- ./candran/can-parser/parser.lua:457
-local function maybe(patt) -- ./candran/can-parser/parser.lua:460
-return # patt / 0 * patt -- ./candran/can-parser/parser.lua:461
-end -- ./candran/can-parser/parser.lua:461
-local function setAttribute(attribute) -- ./candran/can-parser/parser.lua:464
-return function(assign) -- ./candran/can-parser/parser.lua:465
-assign[1]["tag"] = "AttributeNameList" -- ./candran/can-parser/parser.lua:466
-for _, id in ipairs(assign[1]) do -- ./candran/can-parser/parser.lua:467
-if id["tag"] == "Id" then -- ./candran/can-parser/parser.lua:468
-id["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:469
-id[2] = attribute -- ./candran/can-parser/parser.lua:470
-elseif id["tag"] == "DestructuringId" then -- ./candran/can-parser/parser.lua:471
-for _, did in ipairs(id) do -- ./candran/can-parser/parser.lua:472
-did["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:473
-did[2] = attribute -- ./candran/can-parser/parser.lua:474
-end -- ./candran/can-parser/parser.lua:474
-end -- ./candran/can-parser/parser.lua:474
-end -- ./candran/can-parser/parser.lua:474
-return assign -- ./candran/can-parser/parser.lua:478
-end -- ./candran/can-parser/parser.lua:478
-end -- ./candran/can-parser/parser.lua:478
-local stacks = { ["lexpr"] = {} } -- ./candran/can-parser/parser.lua:483
-local function push(f) -- ./candran/can-parser/parser.lua:485
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:486
-table["insert"](stacks[f], true) -- ./candran/can-parser/parser.lua:487
-return true -- ./candran/can-parser/parser.lua:488
-end) -- ./candran/can-parser/parser.lua:488
-end -- ./candran/can-parser/parser.lua:488
-local function pop(f) -- ./candran/can-parser/parser.lua:491
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:492
-table["remove"](stacks[f]) -- ./candran/can-parser/parser.lua:493
-return true -- ./candran/can-parser/parser.lua:494
-end) -- ./candran/can-parser/parser.lua:494
-end -- ./candran/can-parser/parser.lua:494
-local function when(f) -- ./candran/can-parser/parser.lua:497
-return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:498
-return # stacks[f] > 0 -- ./candran/can-parser/parser.lua:499
+local function maybeBlockWithEnd() -- ./candran/can-parser/parser.lua:460
+return (V("BlockNoErr") * kw("end")) + Cmt(V("BlockNoErr"), searchEnd) -- ./candran/can-parser/parser.lua:462
+end -- ./candran/can-parser/parser.lua:462
+local function maybe(patt) -- ./candran/can-parser/parser.lua:465
+return # patt / 0 * patt -- ./candran/can-parser/parser.lua:466
+end -- ./candran/can-parser/parser.lua:466
+local function setAttribute(attribute) -- ./candran/can-parser/parser.lua:469
+return function(assign) -- ./candran/can-parser/parser.lua:470
+assign[1]["tag"] = "AttributeNameList" -- ./candran/can-parser/parser.lua:471
+for _, id in ipairs(assign[1]) do -- ./candran/can-parser/parser.lua:472
+if id["tag"] == "Id" then -- ./candran/can-parser/parser.lua:473
+id["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:474
+id[2] = attribute -- ./candran/can-parser/parser.lua:475
+elseif id["tag"] == "DestructuringId" then -- ./candran/can-parser/parser.lua:476
+for _, did in ipairs(id) do -- ./candran/can-parser/parser.lua:477
+did["tag"] = "AttributeId" -- ./candran/can-parser/parser.lua:478
+did[2] = attribute -- ./candran/can-parser/parser.lua:479
+end -- ./candran/can-parser/parser.lua:479
+end -- ./candran/can-parser/parser.lua:479
+end -- ./candran/can-parser/parser.lua:479
+return assign -- ./candran/can-parser/parser.lua:483
+end -- ./candran/can-parser/parser.lua:483
+end -- ./candran/can-parser/parser.lua:483
+local stacks = { ["lexpr"] = {} } -- ./candran/can-parser/parser.lua:488
+local function push(f) -- ./candran/can-parser/parser.lua:490
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:491
+table["insert"](stacks[f], true) -- ./candran/can-parser/parser.lua:492
+return true -- ./candran/can-parser/parser.lua:493
+end) -- ./candran/can-parser/parser.lua:493
+end -- ./candran/can-parser/parser.lua:493
+local function pop(f) -- ./candran/can-parser/parser.lua:496
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:497
+table["remove"](stacks[f]) -- ./candran/can-parser/parser.lua:498
+return true -- ./candran/can-parser/parser.lua:499
 end) -- ./candran/can-parser/parser.lua:499
 end -- ./candran/can-parser/parser.lua:499
-local function set(f, patt) -- ./candran/can-parser/parser.lua:502
-return push(f) * patt * pop(f) -- ./candran/can-parser/parser.lua:503
-end -- ./candran/can-parser/parser.lua:503
-local G = { -- ./candran/can-parser/parser.lua:507
-V("Lua"), -- ./candran/can-parser/parser.lua:507
-["Lua"] = (V("Shebang") ^ - 1 * V("Skip") * V("Block") * expect(P(- 1), "Extra")) / fixStructure, -- ./candran/can-parser/parser.lua:508
+local function when(f) -- ./candran/can-parser/parser.lua:502
+return Cmt(P(""), function() -- ./candran/can-parser/parser.lua:503
+return # stacks[f] > 0 -- ./candran/can-parser/parser.lua:504
+end) -- ./candran/can-parser/parser.lua:504
+end -- ./candran/can-parser/parser.lua:504
+local function set(f, patt) -- ./candran/can-parser/parser.lua:507
+return push(f) * patt * pop(f) -- ./candran/can-parser/parser.lua:508
+end -- ./candran/can-parser/parser.lua:508
+local G = { -- ./candran/can-parser/parser.lua:512
+V("Lua"), -- ./candran/can-parser/parser.lua:512
+["Lua"] = (V("Shebang") ^ - 1 * V("Skip") * V("Block") * expect(P(- 1), "Extra")) / fixStructure, -- ./candran/can-parser/parser.lua:513
 ["Shebang"] = P("#!") * (P(1) - P("\
-")) ^ 0, -- ./candran/can-parser/parser.lua:509
-["Block"] = tagC("Block", (V("Stat") + - V("BlockEnd") * throw("InvalidStat")) ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:511
-["Stat"] = V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat") + V("LocalStat") + V("FuncStat") + V("BreakStat") + V("LabelStat") + V("GoToStat") + V("LetStat") + V("ConstStat") + V("CloseStat") + V("FuncCall") + V("Assignment") + V("ContinueStat") + V("PushStat") + sym(";"), -- ./candran/can-parser/parser.lua:517
-["BlockEnd"] = P("return") + "end" + "elseif" + "else" + "until" + "]" + - 1 + V("ImplicitPushStat") + V("Assignment"), -- ./candran/can-parser/parser.lua:518
-["SingleStatBlock"] = tagC("Block", V("Stat") + V("RetStat") + V("ImplicitPushStat")) / function(t) -- ./candran/can-parser/parser.lua:520
-t["is_singlestatblock"] = true -- ./candran/can-parser/parser.lua:520
-return t -- ./candran/can-parser/parser.lua:520
-end, -- ./candran/can-parser/parser.lua:520
-["BlockNoErr"] = tagC("Block", V("Stat") ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:521
-["IfStat"] = tagC("If", V("IfPart")), -- ./candran/can-parser/parser.lua:523
-["IfPart"] = kw("if") * set("lexpr", expect(V("Expr"), "ExprIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:524
-["ElseIfPart"] = kw("elseif") * set("lexpr", expect(V("Expr"), "ExprEIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenEIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:525
-["ElsePart"] = kw("else") * expectBlockWithEnd("EndIf"), -- ./candran/can-parser/parser.lua:526
-["DoStat"] = kw("do") * expectBlockWithEnd("EndDo") / tagDo, -- ./candran/can-parser/parser.lua:528
-["WhileStat"] = tagC("While", kw("while") * set("lexpr", expect(V("Expr"), "ExprWhile")) * V("WhileBody")), -- ./candran/can-parser/parser.lua:529
-["WhileBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoWhile", "EndWhile"), -- ./candran/can-parser/parser.lua:530
-["RepeatStat"] = tagC("Repeat", kw("repeat") * V("Block") * expect(kw("until"), "UntilRep") * expect(V("Expr"), "ExprRep")), -- ./candran/can-parser/parser.lua:531
-["ForStat"] = kw("for") * expect(V("ForNum") + V("ForIn"), "ForRange"), -- ./candran/can-parser/parser.lua:533
-["ForNum"] = tagC("Fornum", V("Id") * sym("=") * V("NumRange") * V("ForBody")), -- ./candran/can-parser/parser.lua:534
-["NumRange"] = expect(V("Expr"), "ExprFor1") * expect(sym(","), "CommaFor") * expect(V("Expr"), "ExprFor2") * (sym(",") * expect(V("Expr"), "ExprFor3")) ^ - 1, -- ./candran/can-parser/parser.lua:536
-["ForIn"] = tagC("Forin", V("DestructuringNameList") * expect(kw("in"), "InFor") * expect(V("ExprList"), "EListFor") * V("ForBody")), -- ./candran/can-parser/parser.lua:537
-["ForBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoFor", "EndFor"), -- ./candran/can-parser/parser.lua:538
-["LocalStat"] = kw("local") * expect(V("LocalFunc") + V("LocalAssign"), "DefLocal"), -- ./candran/can-parser/parser.lua:540
-["LocalFunc"] = tagC("Localrec", kw("function") * expect(V("Id"), "NameLFunc") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:541
-["LocalAssign"] = tagC("Local", V("AttributeNameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:543
-["LetStat"] = kw("let") * expect(V("LetAssign"), "DefLet"), -- ./candran/can-parser/parser.lua:545
-["LetAssign"] = tagC("Let", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Let", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:547
-["ConstStat"] = kw("const") * expect(V("AttributeAssign") / setAttribute("const"), "DefConst"), -- ./candran/can-parser/parser.lua:549
-["CloseStat"] = kw("close") * expect(V("AttributeAssign") / setAttribute("close"), "DefClose"), -- ./candran/can-parser/parser.lua:550
-["AttributeAssign"] = tagC("Local", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:552
-["Assignment"] = tagC("Set", (V("VarList") + V("DestructuringNameList")) * V("BinOp") ^ - 1 * (P("=") / "=") * ((V("BinOp") - P("-")) + # (P("-") * V("Space")) * V("BinOp")) ^ - 1 * V("Skip") * expect(V("ExprList"), "EListAssign")), -- ./candran/can-parser/parser.lua:554
-["FuncStat"] = tagC("Set", kw("function") * expect(V("FuncName"), "FuncName") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:556
-["FuncName"] = Cf(V("Id") * (sym(".") * expect(V("StrId"), "NameFunc1")) ^ 0, insertIndex) * (sym(":") * expect(V("StrId"), "NameFunc2")) ^ - 1 / markMethod, -- ./candran/can-parser/parser.lua:558
-["FuncBody"] = tagC("Function", V("FuncParams") * expectBlockWithEnd("EndFunc")), -- ./candran/can-parser/parser.lua:559
-["FuncParams"] = expect(sym("("), "OParenPList") * V("ParList") * expect(sym(")"), "CParenPList"), -- ./candran/can-parser/parser.lua:560
-["ParList"] = V("NamedParList") * (sym(",") * expect(tagC("Dots", sym("...")), "ParList")) ^ - 1 / addDots + Ct(tagC("Dots", sym("..."))) + Ct(Cc()), -- ./candran/can-parser/parser.lua:563
-["ShortFuncDef"] = tagC("Function", V("ShortFuncParams") * maybeBlockWithEnd()) / fixShortFunc, -- ./candran/can-parser/parser.lua:565
-["ShortFuncParams"] = (sym(":") / ":") ^ - 1 * sym("(") * V("ParList") * sym(")"), -- ./candran/can-parser/parser.lua:566
-["NamedParList"] = tagC("NamedParList", commaSep(V("NamedPar"))), -- ./candran/can-parser/parser.lua:568
-["NamedPar"] = tagC("ParPair", V("ParKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:570
-["ParKey"] = V("Id") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:571
-["LabelStat"] = tagC("Label", sym("::") * expect(V("Name"), "Label") * expect(sym("::"), "CloseLabel")), -- ./candran/can-parser/parser.lua:573
-["GoToStat"] = tagC("Goto", kw("goto") * expect(V("Name"), "Goto")), -- ./candran/can-parser/parser.lua:574
-["BreakStat"] = tagC("Break", kw("break")), -- ./candran/can-parser/parser.lua:575
-["ContinueStat"] = tagC("Continue", kw("continue")), -- ./candran/can-parser/parser.lua:576
-["RetStat"] = tagC("Return", kw("return") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:577
-["PushStat"] = tagC("Push", kw("push") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:579
-["ImplicitPushStat"] = tagC("Push", commaSep(V("Expr"), "RetList")), -- ./candran/can-parser/parser.lua:580
-["NameList"] = tagC("NameList", commaSep(V("Id"))), -- ./candran/can-parser/parser.lua:582
-["DestructuringNameList"] = tagC("NameList", commaSep(V("DestructuringId"))), -- ./candran/can-parser/parser.lua:583
-["AttributeNameList"] = tagC("AttributeNameList", commaSep(V("AttributeId"))), -- ./candran/can-parser/parser.lua:584
-["VarList"] = tagC("VarList", commaSep(V("VarExpr"))), -- ./candran/can-parser/parser.lua:585
-["ExprList"] = tagC("ExpList", commaSep(V("Expr"), "ExprList")), -- ./candran/can-parser/parser.lua:586
-["DestructuringId"] = tagC("DestructuringId", sym("{") * V("DestructuringIdFieldList") * expect(sym("}"), "CBraceDestructuring")) + V("Id"), -- ./candran/can-parser/parser.lua:588
-["DestructuringIdFieldList"] = sepBy(V("DestructuringIdField"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:589
-["DestructuringIdField"] = tagC("Pair", V("FieldKey") * expect(sym("="), "DestructuringEqField") * expect(V("Id"), "DestructuringExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:591
-["Expr"] = V("OrExpr"), -- ./candran/can-parser/parser.lua:593
-["OrExpr"] = chainOp(V("AndExpr"), V("OrOp"), "OrExpr"), -- ./candran/can-parser/parser.lua:594
-["AndExpr"] = chainOp(V("RelExpr"), V("AndOp"), "AndExpr"), -- ./candran/can-parser/parser.lua:595
-["RelExpr"] = chainOp(V("BOrExpr"), V("RelOp"), "RelExpr"), -- ./candran/can-parser/parser.lua:596
-["BOrExpr"] = chainOp(V("BXorExpr"), V("BOrOp"), "BOrExpr"), -- ./candran/can-parser/parser.lua:597
-["BXorExpr"] = chainOp(V("BAndExpr"), V("BXorOp"), "BXorExpr"), -- ./candran/can-parser/parser.lua:598
-["BAndExpr"] = chainOp(V("ShiftExpr"), V("BAndOp"), "BAndExpr"), -- ./candran/can-parser/parser.lua:599
-["ShiftExpr"] = chainOp(V("ConcatExpr"), V("ShiftOp"), "ShiftExpr"), -- ./candran/can-parser/parser.lua:600
-["ConcatExpr"] = V("AddExpr") * (V("ConcatOp") * expect(V("ConcatExpr"), "ConcatExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:601
-["AddExpr"] = chainOp(V("MulExpr"), V("AddOp"), "AddExpr"), -- ./candran/can-parser/parser.lua:602
-["MulExpr"] = chainOp(V("UnaryExpr"), V("MulOp"), "MulExpr"), -- ./candran/can-parser/parser.lua:603
-["UnaryExpr"] = V("UnaryOp") * expect(V("UnaryExpr"), "UnaryExpr") / unaryOp + V("PowExpr"), -- ./candran/can-parser/parser.lua:605
-["PowExpr"] = V("SimpleExpr") * (V("PowOp") * expect(V("UnaryExpr"), "PowExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:606
-["SimpleExpr"] = tagC("Number", V("Number")) + tagC("Nil", kw("nil")) + tagC("Boolean", kw("false") * Cc(false)) + tagC("Boolean", kw("true") * Cc(true)) + tagC("Dots", sym("...")) + V("FuncDef") + (when("lexpr") * tagC("LetExpr", maybe(V("DestructuringNameList")) * sym("=") * - sym("=") * expect(V("ExprList"), "EListLAssign"))) + V("ShortFuncDef") + V("SuffixedExpr") + V("StatExpr"), -- ./candran/can-parser/parser.lua:616
-["StatExpr"] = (V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat")) / statToExpr, -- ./candran/can-parser/parser.lua:618
-["FuncCall"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:620
-return exp["tag"] == "Call" or exp["tag"] == "SafeCall", exp -- ./candran/can-parser/parser.lua:620
-end), -- ./candran/can-parser/parser.lua:620
-["VarExpr"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:621
-return exp["tag"] == "Id" or exp["tag"] == "Index", exp -- ./candran/can-parser/parser.lua:621
-end), -- ./candran/can-parser/parser.lua:621
-["SuffixedExpr"] = Cf(V("PrimaryExpr") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr") * - V("Call") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr"), makeSuffixedExpr), -- ./candran/can-parser/parser.lua:625
-["PrimaryExpr"] = V("SelfId") * (V("SelfCall") + V("SelfIndex")) + V("Id") + tagC("Paren", sym("(") * expect(V("Expr"), "ExprParen") * expect(sym(")"), "CParenExpr")), -- ./candran/can-parser/parser.lua:628
-["NoCallPrimaryExpr"] = tagC("String", V("String")) + V("Table") + V("TableCompr"), -- ./candran/can-parser/parser.lua:629
-["Index"] = tagC("DotIndex", sym("." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("ArrayIndex", sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")) + tagC("SafeDotIndex", sym("?." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("SafeArrayIndex", sym("?[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")), -- ./candran/can-parser/parser.lua:633
-["MethodStub"] = tagC("MethodStub", sym(":" * - P(":")) * expect(V("StrId"), "NameMeth")) + tagC("SafeMethodStub", sym("?:" * - P(":")) * expect(V("StrId"), "NameMeth")), -- ./candran/can-parser/parser.lua:635
-["Call"] = tagC("Call", V("FuncArgs")) + tagC("SafeCall", P("?") * V("FuncArgs")), -- ./candran/can-parser/parser.lua:637
-["SelfCall"] = tagC("MethodStub", V("StrId")) * V("Call"), -- ./candran/can-parser/parser.lua:638
-["SelfIndex"] = tagC("DotIndex", V("StrId")), -- ./candran/can-parser/parser.lua:639
-["FuncDef"] = (kw("function") * V("FuncBody")), -- ./candran/can-parser/parser.lua:641
-["FuncArgs"] = sym("(") * commaSep(V("Expr"), "ArgList") ^ - 1 * expect(sym(")"), "CParenArgs") + V("Table") + tagC("String", V("String")), -- ./candran/can-parser/parser.lua:644
-["Table"] = tagC("Table", sym("{") * V("FieldList") ^ - 1 * expect(sym("}"), "CBraceTable")), -- ./candran/can-parser/parser.lua:646
-["FieldList"] = sepBy(V("Field"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:647
-["Field"] = tagC("Pair", V("FieldKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Expr"), -- ./candran/can-parser/parser.lua:649
-["FieldKey"] = sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprFKey") * expect(sym("]"), "CBracketFKey") + V("StrId") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:651
-["FieldSep"] = sym(",") + sym(";"), -- ./candran/can-parser/parser.lua:652
-["TableCompr"] = tagC("TableCompr", sym("[") * V("Block") * expect(sym("]"), "CBracketTableCompr")), -- ./candran/can-parser/parser.lua:654
-["SelfId"] = tagC("Id", sym("@") / "self"), -- ./candran/can-parser/parser.lua:656
-["Id"] = tagC("Id", V("Name")) + V("SelfId"), -- ./candran/can-parser/parser.lua:657
-["AttributeSelfId"] = tagC("AttributeId", sym("@") / "self" * V("Attribute") ^ - 1), -- ./candran/can-parser/parser.lua:658
-["AttributeId"] = tagC("AttributeId", V("Name") * V("Attribute") ^ - 1) + V("AttributeSelfId"), -- ./candran/can-parser/parser.lua:659
-["StrId"] = tagC("String", V("Name")), -- ./candran/can-parser/parser.lua:660
-["Attribute"] = sym("<") * expect(kw("const") / "const" + kw("close") / "close", "UnknownAttribute") * expect(sym(">"), "CBracketAttribute"), -- ./candran/can-parser/parser.lua:662
-["Skip"] = (V("Space") + V("Comment")) ^ 0, -- ./candran/can-parser/parser.lua:665
-["Space"] = space ^ 1, -- ./candran/can-parser/parser.lua:666
-["Comment"] = P("--") * V("LongStr") / function() -- ./candran/can-parser/parser.lua:667
-return  -- ./candran/can-parser/parser.lua:667
+")) ^ 0, -- ./candran/can-parser/parser.lua:514
+["Block"] = tagC("Block", (V("Stat") + - V("BlockEnd") * throw("InvalidStat")) ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:516
+["Stat"] = V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat") + V("LocalStat") + V("FuncStat") + V("BreakStat") + V("LabelStat") + V("GoToStat") + V("LetStat") + V("ConstStat") + V("CloseStat") + V("FuncCall") + V("Assignment") + V("ContinueStat") + V("PushStat") + sym(";"), -- ./candran/can-parser/parser.lua:522
+["BlockEnd"] = P("return") + "end" + "elseif" + "else" + "until" + "]" + - 1 + V("ImplicitPushStat") + V("Assignment"), -- ./candran/can-parser/parser.lua:523
+["SingleStatBlock"] = tagC("Block", V("Stat") + V("RetStat") + V("ImplicitPushStat")) / function(t) -- ./candran/can-parser/parser.lua:525
+t["is_singlestatblock"] = true -- ./candran/can-parser/parser.lua:525
+return t -- ./candran/can-parser/parser.lua:525
+end, -- ./candran/can-parser/parser.lua:525
+["BlockNoErr"] = tagC("Block", V("Stat") ^ 0 * ((V("RetStat") + V("ImplicitPushStat")) * sym(";") ^ - 1) ^ - 1), -- ./candran/can-parser/parser.lua:526
+["IfStat"] = tagC("If", V("IfPart")), -- ./candran/can-parser/parser.lua:528
+["IfPart"] = kw("if") * set("lexpr", expect(V("Expr"), "ExprIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:529
+["ElseIfPart"] = kw("elseif") * set("lexpr", expect(V("Expr"), "ExprEIf")) * expectBlockOrSingleStatWithStartEnd(kw("then"), "ThenEIf", "EndIf", V("ElseIfPart") + V("ElsePart")), -- ./candran/can-parser/parser.lua:530
+["ElsePart"] = kw("else") * expectBlockWithEnd("EndIf"), -- ./candran/can-parser/parser.lua:531
+["DoStat"] = kw("do") * expectBlockWithEnd("EndDo") / tagDo, -- ./candran/can-parser/parser.lua:533
+["WhileStat"] = tagC("While", kw("while") * set("lexpr", expect(V("Expr"), "ExprWhile")) * V("WhileBody")), -- ./candran/can-parser/parser.lua:534
+["WhileBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoWhile", "EndWhile"), -- ./candran/can-parser/parser.lua:535
+["RepeatStat"] = tagC("Repeat", kw("repeat") * V("Block") * expect(kw("until"), "UntilRep") * expect(V("Expr"), "ExprRep")), -- ./candran/can-parser/parser.lua:536
+["ForStat"] = kw("for") * expect(V("ForNum") + V("ForIn"), "ForRange"), -- ./candran/can-parser/parser.lua:538
+["ForNum"] = tagC("Fornum", V("Id") * sym("=") * V("NumRange") * V("ForBody")), -- ./candran/can-parser/parser.lua:539
+["NumRange"] = expect(V("Expr"), "ExprFor1") * expect(sym(","), "CommaFor") * expect(V("Expr"), "ExprFor2") * (sym(",") * expect(V("Expr"), "ExprFor3")) ^ - 1, -- ./candran/can-parser/parser.lua:541
+["ForIn"] = tagC("Forin", V("DestructuringNameList") * expect(kw("in"), "InFor") * expect(V("ExprList"), "EListFor") * V("ForBody")), -- ./candran/can-parser/parser.lua:542
+["ForBody"] = expectBlockOrSingleStatWithStartEnd(kw("do"), "DoFor", "EndFor"), -- ./candran/can-parser/parser.lua:543
+["LocalStat"] = kw("local") * expect(V("LocalFunc") + V("LocalAssign"), "DefLocal"), -- ./candran/can-parser/parser.lua:545
+["LocalFunc"] = tagC("Localrec", kw("function") * expect(V("Id"), "NameLFunc") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:546
+["LocalAssign"] = tagC("Local", V("AttributeNameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:548
+["LetStat"] = kw("let") * expect(V("LetAssign"), "DefLet"), -- ./candran/can-parser/parser.lua:550
+["LetAssign"] = tagC("Let", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Let", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:552
+["ConstStat"] = kw("const") * expect(V("AttributeAssign") / setAttribute("const"), "DefConst"), -- ./candran/can-parser/parser.lua:554
+["CloseStat"] = kw("close") * expect(V("AttributeAssign") / setAttribute("close"), "DefClose"), -- ./candran/can-parser/parser.lua:555
+["AttributeAssign"] = tagC("Local", V("NameList") * (sym("=") * expect(V("ExprList"), "EListLAssign") + Ct(Cc()))) + tagC("Local", V("DestructuringNameList") * sym("=") * expect(V("ExprList"), "EListLAssign")), -- ./candran/can-parser/parser.lua:557
+["Assignment"] = tagC("Set", (V("VarList") + V("DestructuringNameList")) * V("BinOp") ^ - 1 * (P("=") / "=") * ((V("BinOp") - P("-")) + # (P("-") * V("Space")) * V("BinOp")) ^ - 1 * V("Skip") * expect(V("ExprList"), "EListAssign")), -- ./candran/can-parser/parser.lua:559
+["FuncStat"] = tagC("Set", kw("function") * expect(V("FuncName"), "FuncName") * V("FuncBody")) / fixFuncStat, -- ./candran/can-parser/parser.lua:561
+["FuncName"] = Cf(V("Id") * (sym(".") * expect(V("StrId"), "NameFunc1")) ^ 0, insertIndex) * (sym(":") * expect(V("StrId"), "NameFunc2")) ^ - 1 / markMethod, -- ./candran/can-parser/parser.lua:563
+["FuncBody"] = tagC("Function", V("FuncParams") * expectBlockWithEnd("EndFunc")), -- ./candran/can-parser/parser.lua:564
+["FuncParams"] = expect(sym("("), "OParenPList") * V("ParList") * expect(sym(")"), "CParenPList"), -- ./candran/can-parser/parser.lua:565
+["ParList"] = V("NamedParList") * (sym(",") * expect(tagC("Dots", sym("...")), "ParList")) ^ - 1 / addDots + Ct(tagC("Dots", sym("..."))) + Ct(Cc()), -- ./candran/can-parser/parser.lua:568
+["ShortFuncDef"] = tagC("Function", V("ShortFuncParams") * maybeBlockWithEnd()) / fixShortFunc, -- ./candran/can-parser/parser.lua:570
+["ShortFuncParams"] = (sym(":") / ":") ^ - 1 * sym("(") * V("ParList") * sym(")"), -- ./candran/can-parser/parser.lua:571
+["NamedParList"] = tagC("NamedParList", commaSep(V("NamedPar"))), -- ./candran/can-parser/parser.lua:573
+["NamedPar"] = tagC("ParPair", V("ParKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:575
+["ParKey"] = V("Id") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:576
+["LabelStat"] = tagC("Label", sym("::") * expect(V("Name"), "Label") * expect(sym("::"), "CloseLabel")), -- ./candran/can-parser/parser.lua:578
+["GoToStat"] = tagC("Goto", kw("goto") * expect(V("Name"), "Goto")), -- ./candran/can-parser/parser.lua:579
+["BreakStat"] = tagC("Break", kw("break")), -- ./candran/can-parser/parser.lua:580
+["ContinueStat"] = tagC("Continue", kw("continue")), -- ./candran/can-parser/parser.lua:581
+["RetStat"] = tagC("Return", kw("return") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:582
+["PushStat"] = tagC("Push", kw("push") * commaSep(V("Expr"), "RetList") ^ - 1), -- ./candran/can-parser/parser.lua:584
+["ImplicitPushStat"] = tagC("Push", commaSep(V("Expr"), "RetList")) / markImplicit, -- ./candran/can-parser/parser.lua:585
+["NameList"] = tagC("NameList", commaSep(V("Id"))), -- ./candran/can-parser/parser.lua:587
+["DestructuringNameList"] = tagC("NameList", commaSep(V("DestructuringId"))), -- ./candran/can-parser/parser.lua:588
+["AttributeNameList"] = tagC("AttributeNameList", commaSep(V("AttributeId"))), -- ./candran/can-parser/parser.lua:589
+["VarList"] = tagC("VarList", commaSep(V("VarExpr"))), -- ./candran/can-parser/parser.lua:590
+["ExprList"] = tagC("ExpList", commaSep(V("Expr"), "ExprList")), -- ./candran/can-parser/parser.lua:591
+["DestructuringId"] = tagC("DestructuringId", sym("{") * V("DestructuringIdFieldList") * expect(sym("}"), "CBraceDestructuring")) + V("Id"), -- ./candran/can-parser/parser.lua:593
+["DestructuringIdFieldList"] = sepBy(V("DestructuringIdField"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:594
+["DestructuringIdField"] = tagC("Pair", V("FieldKey") * expect(sym("="), "DestructuringEqField") * expect(V("Id"), "DestructuringExprField")) + V("Id"), -- ./candran/can-parser/parser.lua:596
+["Expr"] = V("OrExpr"), -- ./candran/can-parser/parser.lua:598
+["OrExpr"] = chainOp(V("AndExpr"), V("OrOp"), "OrExpr"), -- ./candran/can-parser/parser.lua:599
+["AndExpr"] = chainOp(V("RelExpr"), V("AndOp"), "AndExpr"), -- ./candran/can-parser/parser.lua:600
+["RelExpr"] = chainOp(V("BOrExpr"), V("RelOp"), "RelExpr"), -- ./candran/can-parser/parser.lua:601
+["BOrExpr"] = chainOp(V("BXorExpr"), V("BOrOp"), "BOrExpr"), -- ./candran/can-parser/parser.lua:602
+["BXorExpr"] = chainOp(V("BAndExpr"), V("BXorOp"), "BXorExpr"), -- ./candran/can-parser/parser.lua:603
+["BAndExpr"] = chainOp(V("ShiftExpr"), V("BAndOp"), "BAndExpr"), -- ./candran/can-parser/parser.lua:604
+["ShiftExpr"] = chainOp(V("ConcatExpr"), V("ShiftOp"), "ShiftExpr"), -- ./candran/can-parser/parser.lua:605
+["ConcatExpr"] = V("AddExpr") * (V("ConcatOp") * expect(V("ConcatExpr"), "ConcatExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:606
+["AddExpr"] = chainOp(V("MulExpr"), V("AddOp"), "AddExpr"), -- ./candran/can-parser/parser.lua:607
+["MulExpr"] = chainOp(V("UnaryExpr"), V("MulOp"), "MulExpr"), -- ./candran/can-parser/parser.lua:608
+["UnaryExpr"] = V("UnaryOp") * expect(V("UnaryExpr"), "UnaryExpr") / unaryOp + V("PowExpr"), -- ./candran/can-parser/parser.lua:610
+["PowExpr"] = V("SimpleExpr") * (V("PowOp") * expect(V("UnaryExpr"), "PowExpr")) ^ - 1 / binaryOp, -- ./candran/can-parser/parser.lua:611
+["SimpleExpr"] = tagC("Number", V("Number")) + tagC("Nil", kw("nil")) + tagC("Boolean", kw("false") * Cc(false)) + tagC("Boolean", kw("true") * Cc(true)) + tagC("Dots", sym("...")) + V("FuncDef") + (when("lexpr") * tagC("LetExpr", maybe(V("DestructuringNameList")) * sym("=") * - sym("=") * expect(V("ExprList"), "EListLAssign"))) + V("ShortFuncDef") + V("SuffixedExpr") + V("StatExpr"), -- ./candran/can-parser/parser.lua:621
+["StatExpr"] = (V("IfStat") + V("DoStat") + V("WhileStat") + V("RepeatStat") + V("ForStat")) / statToExpr, -- ./candran/can-parser/parser.lua:623
+["FuncCall"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:625
+return exp["tag"] == "Call" or exp["tag"] == "SafeCall", exp -- ./candran/can-parser/parser.lua:625
+end), -- ./candran/can-parser/parser.lua:625
+["VarExpr"] = Cmt(V("SuffixedExpr"), function(s, i, exp) -- ./candran/can-parser/parser.lua:626
+return exp["tag"] == "Id" or exp["tag"] == "Index", exp -- ./candran/can-parser/parser.lua:626
+end), -- ./candran/can-parser/parser.lua:626
+["SuffixedExpr"] = Cf(V("PrimaryExpr") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr") * - V("Call") * (V("Index") + V("MethodStub") + V("Call")) ^ 0 + V("NoCallPrimaryExpr"), makeSuffixedExpr), -- ./candran/can-parser/parser.lua:630
+["PrimaryExpr"] = V("SelfId") * (V("SelfCall") + V("SelfIndex")) + V("Id") + tagC("Paren", sym("(") * expect(V("Expr"), "ExprParen") * expect(sym(")"), "CParenExpr")), -- ./candran/can-parser/parser.lua:633
+["NoCallPrimaryExpr"] = tagC("String", V("String")) + V("Table") + V("TableCompr"), -- ./candran/can-parser/parser.lua:634
+["Index"] = tagC("DotIndex", sym("." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("ArrayIndex", sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")) + tagC("SafeDotIndex", sym("?." * - P(".")) * expect(V("StrId"), "NameIndex")) + tagC("SafeArrayIndex", sym("?[" * - P(S("=["))) * expect(V("Expr"), "ExprIndex") * expect(sym("]"), "CBracketIndex")), -- ./candran/can-parser/parser.lua:638
+["MethodStub"] = tagC("MethodStub", sym(":" * - P(":")) * expect(V("StrId"), "NameMeth")) + tagC("SafeMethodStub", sym("?:" * - P(":")) * expect(V("StrId"), "NameMeth")), -- ./candran/can-parser/parser.lua:640
+["Call"] = tagC("Call", V("FuncArgs")) + tagC("SafeCall", P("?") * V("FuncArgs")), -- ./candran/can-parser/parser.lua:642
+["SelfCall"] = tagC("MethodStub", V("StrId")) * V("Call"), -- ./candran/can-parser/parser.lua:643
+["SelfIndex"] = tagC("DotIndex", V("StrId")), -- ./candran/can-parser/parser.lua:644
+["FuncDef"] = (kw("function") * V("FuncBody")), -- ./candran/can-parser/parser.lua:646
+["FuncArgs"] = sym("(") * commaSep(V("Expr"), "ArgList") ^ - 1 * expect(sym(")"), "CParenArgs") + V("Table") + tagC("String", V("String")), -- ./candran/can-parser/parser.lua:649
+["Table"] = tagC("Table", sym("{") * V("FieldList") ^ - 1 * expect(sym("}"), "CBraceTable")), -- ./candran/can-parser/parser.lua:651
+["FieldList"] = sepBy(V("Field"), V("FieldSep")) * V("FieldSep") ^ - 1, -- ./candran/can-parser/parser.lua:652
+["Field"] = tagC("Pair", V("FieldKey") * expect(sym("="), "EqField") * expect(V("Expr"), "ExprField")) + V("Expr"), -- ./candran/can-parser/parser.lua:654
+["FieldKey"] = sym("[" * - P(S("=["))) * expect(V("Expr"), "ExprFKey") * expect(sym("]"), "CBracketFKey") + V("StrId") * # ("=" * - P("=")), -- ./candran/can-parser/parser.lua:656
+["FieldSep"] = sym(",") + sym(";"), -- ./candran/can-parser/parser.lua:657
+["TableCompr"] = tagC("TableCompr", sym("[") * V("Block") * expect(sym("]"), "CBracketTableCompr")), -- ./candran/can-parser/parser.lua:659
+["SelfId"] = tagC("Id", sym("@") / "self"), -- ./candran/can-parser/parser.lua:661
+["Id"] = tagC("Id", V("Name")) + V("SelfId"), -- ./candran/can-parser/parser.lua:662
+["AttributeSelfId"] = tagC("AttributeId", sym("@") / "self" * V("Attribute") ^ - 1), -- ./candran/can-parser/parser.lua:663
+["AttributeId"] = tagC("AttributeId", V("Name") * V("Attribute") ^ - 1) + V("AttributeSelfId"), -- ./candran/can-parser/parser.lua:664
+["StrId"] = tagC("String", V("Name")), -- ./candran/can-parser/parser.lua:665
+["Attribute"] = sym("<") * expect(kw("const") / "const" + kw("close") / "close", "UnknownAttribute") * expect(sym(">"), "CBracketAttribute"), -- ./candran/can-parser/parser.lua:667
+["Skip"] = (V("Space") + V("Comment")) ^ 0, -- ./candran/can-parser/parser.lua:670
+["Space"] = space ^ 1, -- ./candran/can-parser/parser.lua:671
+["Comment"] = P("--") * V("LongStr") / function() -- ./candran/can-parser/parser.lua:672
+return  -- ./candran/can-parser/parser.lua:672
 end + P("--") * (P(1) - P("\
-")) ^ 0, -- ./candran/can-parser/parser.lua:668
-["Name"] = token(- V("Reserved") * C(V("Ident"))), -- ./candran/can-parser/parser.lua:670
-["Reserved"] = V("Keywords") * - V("IdRest"), -- ./candran/can-parser/parser.lua:671
-["Keywords"] = P("and") + "break" + "do" + "elseif" + "else" + "end" + "false" + "for" + "function" + "goto" + "if" + "in" + "local" + "nil" + "not" + "or" + "repeat" + "return" + "then" + "true" + "until" + "while", -- ./candran/can-parser/parser.lua:675
-["Ident"] = V("IdStart") * V("IdRest") ^ 0, -- ./candran/can-parser/parser.lua:676
-["IdStart"] = alpha + P("_"), -- ./candran/can-parser/parser.lua:677
-["IdRest"] = alnum + P("_"), -- ./candran/can-parser/parser.lua:678
-["Number"] = token(C(V("Hex") + V("Float") + V("Int"))), -- ./candran/can-parser/parser.lua:680
-["Hex"] = (P("0x") + "0X") * ((xdigit ^ 0 * V("DeciHex")) + (expect(xdigit ^ 1, "DigitHex") * V("DeciHex") ^ - 1)) * V("ExpoHex") ^ - 1, -- ./candran/can-parser/parser.lua:681
-["Float"] = V("Decimal") * V("Expo") ^ - 1 + V("Int") * V("Expo"), -- ./candran/can-parser/parser.lua:683
-["Decimal"] = digit ^ 1 * "." * digit ^ 0 + P(".") * - P(".") * expect(digit ^ 1, "DigitDeci"), -- ./candran/can-parser/parser.lua:685
-["DeciHex"] = P(".") * xdigit ^ 0, -- ./candran/can-parser/parser.lua:686
-["Expo"] = S("eE") * S("+-") ^ - 1 * expect(digit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:687
-["ExpoHex"] = S("pP") * S("+-") ^ - 1 * expect(xdigit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:688
-["Int"] = digit ^ 1, -- ./candran/can-parser/parser.lua:689
-["String"] = token(V("ShortStr") + V("LongStr")), -- ./candran/can-parser/parser.lua:691
+")) ^ 0, -- ./candran/can-parser/parser.lua:673
+["Name"] = token(- V("Reserved") * C(V("Ident"))), -- ./candran/can-parser/parser.lua:675
+["Reserved"] = V("Keywords") * - V("IdRest"), -- ./candran/can-parser/parser.lua:676
+["Keywords"] = P("and") + "break" + "do" + "elseif" + "else" + "end" + "false" + "for" + "function" + "goto" + "if" + "in" + "local" + "nil" + "not" + "or" + "repeat" + "return" + "then" + "true" + "until" + "while", -- ./candran/can-parser/parser.lua:680
+["Ident"] = V("IdStart") * V("IdRest") ^ 0, -- ./candran/can-parser/parser.lua:681
+["IdStart"] = alpha + P("_"), -- ./candran/can-parser/parser.lua:682
+["IdRest"] = alnum + P("_"), -- ./candran/can-parser/parser.lua:683
+["Number"] = token(C(V("Hex") + V("Float") + V("Int"))), -- ./candran/can-parser/parser.lua:685
+["Hex"] = (P("0x") + "0X") * ((xdigit ^ 0 * V("DeciHex")) + (expect(xdigit ^ 1, "DigitHex") * V("DeciHex") ^ - 1)) * V("ExpoHex") ^ - 1, -- ./candran/can-parser/parser.lua:686
+["Float"] = V("Decimal") * V("Expo") ^ - 1 + V("Int") * V("Expo"), -- ./candran/can-parser/parser.lua:688
+["Decimal"] = digit ^ 1 * "." * digit ^ 0 + P(".") * - P(".") * expect(digit ^ 1, "DigitDeci"), -- ./candran/can-parser/parser.lua:690
+["DeciHex"] = P(".") * xdigit ^ 0, -- ./candran/can-parser/parser.lua:691
+["Expo"] = S("eE") * S("+-") ^ - 1 * expect(digit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:692
+["ExpoHex"] = S("pP") * S("+-") ^ - 1 * expect(xdigit ^ 1, "DigitExpo"), -- ./candran/can-parser/parser.lua:693
+["Int"] = digit ^ 1, -- ./candran/can-parser/parser.lua:694
+["String"] = token(V("ShortStr") + V("LongStr")), -- ./candran/can-parser/parser.lua:696
 ["ShortStr"] = P("\"") * Cs((V("EscSeq") + (P(1) - S("\"\
 "))) ^ 0) * expect(P("\""), "Quote") + P("'") * Cs((V("EscSeq") + (P(1) - S("'\
-"))) ^ 0) * expect(P("'"), "Quote"), -- ./candran/can-parser/parser.lua:693
-["EscSeq"] = P("\\") / "" * (P("a") / "" + P("b") / "" + P("f") / "" + P("n") / "\
-" + P("r") / "\r" + P("t") / "	" + P("v") / "" + P("\
+"))) ^ 0) * expect(P("'"), "Quote"), -- ./candran/can-parser/parser.lua:698
+["EscSeq"] = P("\\") / "" * (P("a") / "\7" + P("b") / "\8" + P("f") / "\12" + P("n") / "\
+" + P("r") / "\13" + P("t") / "\9" + P("v") / "\11" + P("\
 ") / "\
-" + P("\r") / "\
-" + P("\\") / "\\" + P("\"") / "\"" + P("'") / "'" + P("z") * space ^ 0 / "" + digit * digit ^ - 2 / tonumber / string["char"] + P("x") * expect(C(xdigit * xdigit), "HexEsc") * Cc(16) / tonumber / string["char"] + P("u") * expect("{", "OBraceUEsc") * expect(C(xdigit ^ 1), "DigitUEsc") * Cc(16) * expect("}", "CBraceUEsc") / tonumber / (utf8 and utf8["char"] or string["char"]) + throw("EscSeq")), -- ./candran/can-parser/parser.lua:723
-["LongStr"] = V("Open") * C((P(1) - V("CloseEq")) ^ 0) * expect(V("Close"), "CloseLStr") / function(s, eqs) -- ./candran/can-parser/parser.lua:726
-return s -- ./candran/can-parser/parser.lua:726
-end, -- ./candran/can-parser/parser.lua:726
+" + P("\13") / "\
+" + P("\\") / "\\" + P("\"") / "\"" + P("'") / "'" + P("z") * space ^ 0 / "" + digit * digit ^ - 2 / tonumber / string["char"] + P("x") * expect(C(xdigit * xdigit), "HexEsc") * Cc(16) / tonumber / string["char"] + P("u") * expect("{", "OBraceUEsc") * expect(C(xdigit ^ 1), "DigitUEsc") * Cc(16) * expect("}", "CBraceUEsc") / tonumber / (utf8 and utf8["char"] or string["char"]) + throw("EscSeq")), -- ./candran/can-parser/parser.lua:728
+["LongStr"] = V("Open") * C((P(1) - V("CloseEq")) ^ 0) * expect(V("Close"), "CloseLStr") / function(s, eqs) -- ./candran/can-parser/parser.lua:731
+return s -- ./candran/can-parser/parser.lua:731
+end, -- ./candran/can-parser/parser.lua:731
 ["Open"] = "[" * Cg(V("Equals"), "openEq") * "[" * P("\
-") ^ - 1, -- ./candran/can-parser/parser.lua:727
-["Close"] = "]" * C(V("Equals")) * "]", -- ./candran/can-parser/parser.lua:728
-["Equals"] = P("=") ^ 0, -- ./candran/can-parser/parser.lua:729
-["CloseEq"] = Cmt(V("Close") * Cb("openEq"), function(s, i, closeEq, openEq) -- ./candran/can-parser/parser.lua:730
-return # openEq == # closeEq -- ./candran/can-parser/parser.lua:730
-end), -- ./candran/can-parser/parser.lua:730
-["OrOp"] = kw("or") / "or", -- ./candran/can-parser/parser.lua:732
-["AndOp"] = kw("and") / "and", -- ./candran/can-parser/parser.lua:733
-["RelOp"] = sym("~=") / "ne" + sym("==") / "eq" + sym("<=") / "le" + sym(">=") / "ge" + sym("<") / "lt" + sym(">") / "gt", -- ./candran/can-parser/parser.lua:739
-["BOrOp"] = sym("|") / "bor", -- ./candran/can-parser/parser.lua:740
-["BXorOp"] = sym("~" * - P("=")) / "bxor", -- ./candran/can-parser/parser.lua:741
-["BAndOp"] = sym("&") / "band", -- ./candran/can-parser/parser.lua:742
-["ShiftOp"] = sym("<<") / "shl" + sym(">>") / "shr", -- ./candran/can-parser/parser.lua:744
-["ConcatOp"] = sym("..") / "concat", -- ./candran/can-parser/parser.lua:745
-["AddOp"] = sym("+") / "add" + sym("-") / "sub", -- ./candran/can-parser/parser.lua:747
-["MulOp"] = sym("*") / "mul" + sym("//") / "idiv" + sym("/") / "div" + sym("%") / "mod", -- ./candran/can-parser/parser.lua:751
-["UnaryOp"] = kw("not") / "not" + sym("-") / "unm" + sym("#") / "len" + sym("~") / "bnot", -- ./candran/can-parser/parser.lua:755
-["PowOp"] = sym("^") / "pow", -- ./candran/can-parser/parser.lua:756
-["BinOp"] = V("OrOp") + V("AndOp") + V("BOrOp") + V("BXorOp") + V("BAndOp") + V("ShiftOp") + V("ConcatOp") + V("AddOp") + V("MulOp") + V("PowOp") -- ./candran/can-parser/parser.lua:757
-} -- ./candran/can-parser/parser.lua:757
-local parser = {} -- ./candran/can-parser/parser.lua:760
-local validator = require("candran.can-parser.validator") -- ./candran/can-parser/parser.lua:762
-local validate = validator["validate"] -- ./candran/can-parser/parser.lua:763
-local syntaxerror = validator["syntaxerror"] -- ./candran/can-parser/parser.lua:764
-parser["parse"] = function(subject, filename) -- ./candran/can-parser/parser.lua:766
-local errorinfo = { -- ./candran/can-parser/parser.lua:767
-["subject"] = subject, -- ./candran/can-parser/parser.lua:767
-["filename"] = filename -- ./candran/can-parser/parser.lua:767
-} -- ./candran/can-parser/parser.lua:767
-lpeg["setmaxstack"](1000) -- ./candran/can-parser/parser.lua:768
-local ast, label, errpos = lpeg["match"](G, subject, nil, errorinfo) -- ./candran/can-parser/parser.lua:769
-if not ast then -- ./candran/can-parser/parser.lua:770
-local errmsg = labels[label][2] -- ./candran/can-parser/parser.lua:771
-return ast, syntaxerror(errorinfo, errpos, errmsg) -- ./candran/can-parser/parser.lua:772
-end -- ./candran/can-parser/parser.lua:772
-return validate(ast, errorinfo) -- ./candran/can-parser/parser.lua:774
-end -- ./candran/can-parser/parser.lua:774
-return parser -- ./candran/can-parser/parser.lua:777
+") ^ - 1, -- ./candran/can-parser/parser.lua:732
+["Close"] = "]" * C(V("Equals")) * "]", -- ./candran/can-parser/parser.lua:733
+["Equals"] = P("=") ^ 0, -- ./candran/can-parser/parser.lua:734
+["CloseEq"] = Cmt(V("Close") * Cb("openEq"), function(s, i, closeEq, openEq) -- ./candran/can-parser/parser.lua:735
+return # openEq == # closeEq -- ./candran/can-parser/parser.lua:735
+end), -- ./candran/can-parser/parser.lua:735
+["OrOp"] = kw("or") / "or", -- ./candran/can-parser/parser.lua:737
+["AndOp"] = kw("and") / "and", -- ./candran/can-parser/parser.lua:738
+["RelOp"] = sym("~=") / "ne" + sym("==") / "eq" + sym("<=") / "le" + sym(">=") / "ge" + sym("<") / "lt" + sym(">") / "gt", -- ./candran/can-parser/parser.lua:744
+["BOrOp"] = sym("|") / "bor", -- ./candran/can-parser/parser.lua:745
+["BXorOp"] = sym("~" * - P("=")) / "bxor", -- ./candran/can-parser/parser.lua:746
+["BAndOp"] = sym("&") / "band", -- ./candran/can-parser/parser.lua:747
+["ShiftOp"] = sym("<<") / "shl" + sym(">>") / "shr", -- ./candran/can-parser/parser.lua:749
+["ConcatOp"] = sym("..") / "concat", -- ./candran/can-parser/parser.lua:750
+["AddOp"] = sym("+") / "add" + sym("-") / "sub", -- ./candran/can-parser/parser.lua:752
+["MulOp"] = sym("*") / "mul" + sym("//") / "idiv" + sym("/") / "div" + sym("%") / "mod", -- ./candran/can-parser/parser.lua:756
+["UnaryOp"] = kw("not") / "not" + sym("-") / "unm" + sym("#") / "len" + sym("~") / "bnot", -- ./candran/can-parser/parser.lua:760
+["PowOp"] = sym("^") / "pow", -- ./candran/can-parser/parser.lua:761
+["BinOp"] = V("OrOp") + V("AndOp") + V("BOrOp") + V("BXorOp") + V("BAndOp") + V("ShiftOp") + V("ConcatOp") + V("AddOp") + V("MulOp") + V("PowOp") -- ./candran/can-parser/parser.lua:762
+} -- ./candran/can-parser/parser.lua:762
+local macroidentifier = { -- ./candran/can-parser/parser.lua:766
+expect(V("MacroIdentifier"), "InvalidStat") * expect(P(- 1), "Extra"), -- ./candran/can-parser/parser.lua:767
+["MacroIdentifier"] = tagC("MacroFunction", V("Id") * sym("(") * V("MacroFunctionArgs") * expect(sym(")"), "CParenPList")) + V("Id"), -- ./candran/can-parser/parser.lua:770
+["MacroFunctionArgs"] = V("NameList") * (sym(",") * expect(tagC("Dots", sym("...")), "ParList")) ^ - 1 / addDots + Ct(tagC("Dots", sym("..."))) + Ct(Cc()) -- ./candran/can-parser/parser.lua:774
+} -- ./candran/can-parser/parser.lua:774
+for k, v in pairs(G) do -- ./candran/can-parser/parser.lua:777
+if macroidentifier[k] == nil then -- ./candran/can-parser/parser.lua:777
+macroidentifier[k] = v -- ./candran/can-parser/parser.lua:777
 end -- ./candran/can-parser/parser.lua:777
-local parser = _() or parser -- ./candran/can-parser/parser.lua:781
-package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:782
+end -- ./candran/can-parser/parser.lua:777
+local parser = {} -- ./candran/can-parser/parser.lua:779
+local validator = require("candran.can-parser.validator") -- ./candran/can-parser/parser.lua:781
+local validate = validator["validate"] -- ./candran/can-parser/parser.lua:782
+local syntaxerror = validator["syntaxerror"] -- ./candran/can-parser/parser.lua:783
+parser["parse"] = function(subject, filename) -- ./candran/can-parser/parser.lua:785
+local errorinfo = { -- ./candran/can-parser/parser.lua:786
+["subject"] = subject, -- ./candran/can-parser/parser.lua:786
+["filename"] = filename -- ./candran/can-parser/parser.lua:786
+} -- ./candran/can-parser/parser.lua:786
+lpeg["setmaxstack"](1000) -- ./candran/can-parser/parser.lua:787
+local ast, label, errpos = lpeg["match"](G, subject, nil, errorinfo) -- ./candran/can-parser/parser.lua:788
+if not ast then -- ./candran/can-parser/parser.lua:789
+local errmsg = labels[label][2] -- ./candran/can-parser/parser.lua:790
+return ast, syntaxerror(errorinfo, errpos, errmsg) -- ./candran/can-parser/parser.lua:791
+end -- ./candran/can-parser/parser.lua:791
+return validate(ast, errorinfo) -- ./candran/can-parser/parser.lua:793
+end -- ./candran/can-parser/parser.lua:793
+parser["parsemacroidentifier"] = function(subject, filename) -- ./candran/can-parser/parser.lua:796
+local errorinfo = { -- ./candran/can-parser/parser.lua:797
+["subject"] = subject, -- ./candran/can-parser/parser.lua:797
+["filename"] = filename -- ./candran/can-parser/parser.lua:797
+} -- ./candran/can-parser/parser.lua:797
+lpeg["setmaxstack"](1000) -- ./candran/can-parser/parser.lua:798
+local ast, label, errpos = lpeg["match"](macroidentifier, subject, nil, errorinfo) -- ./candran/can-parser/parser.lua:799
+if not ast then -- ./candran/can-parser/parser.lua:800
+local errmsg = labels[label][2] -- ./candran/can-parser/parser.lua:801
+return ast, syntaxerror(errorinfo, errpos, errmsg) -- ./candran/can-parser/parser.lua:802
+end -- ./candran/can-parser/parser.lua:802
+return ast -- ./candran/can-parser/parser.lua:804
+end -- ./candran/can-parser/parser.lua:804
+return parser -- ./candran/can-parser/parser.lua:807
+end -- ./candran/can-parser/parser.lua:807
+local parser = _() or parser -- ./candran/can-parser/parser.lua:811
+package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:812
 local unpack = unpack or table["unpack"] -- candran.can:15
 local candran = { ["VERSION"] = "0.14.0" } -- candran.can:18
 package["loaded"]["candran"] = candran -- candran.can:20
@@ -6421,254 +6761,282 @@ candran["default"]["target"] = "lua52" -- candran.can:41
 elseif _VERSION == "Lua 5.3" then -- candran.can:42
 candran["default"]["target"] = "lua53" -- candran.can:43
 end -- candran.can:43
-candran["preprocess"] = function(input, options) -- candran.can:52
-if options == nil then options = {} end -- candran.can:52
-options = util["merge"](candran["default"], options) -- candran.can:53
-local preprocessor = "" -- candran.can:56
-local i = 0 -- candran.can:57
-local inLongString = false -- candran.can:58
-local inComment = false -- candran.can:59
+candran["preprocess"] = function(input, options) -- candran.can:53
+if options == nil then options = {} end -- candran.can:53
+options = util["merge"](candran["default"], options) -- candran.can:54
+local macros = { -- candran.can:55
+["functions"] = {}, -- candran.can:56
+["variables"] = {} -- candran.can:57
+} -- candran.can:57
+local preprocessor = "" -- candran.can:61
+local i = 0 -- candran.can:62
+local inLongString = false -- candran.can:63
+local inComment = false -- candran.can:64
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:60
-i = i + (1) -- candran.can:61
-if inComment then -- candran.can:63
-inComment = not line:match("%]%]") -- candran.can:64
-elseif inLongString then -- candran.can:65
-inLongString = not line:match("%]%]") -- candran.can:66
-else -- candran.can:66
-if line:match("[^%-]%[%[") then -- candran.can:68
-inLongString = true -- candran.can:69
-elseif line:match("%-%-%[%[") then -- candran.can:70
-inComment = true -- candran.can:71
-end -- candran.can:71
-end -- candran.can:71
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:74
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:75
-else -- candran.can:75
-local l = line:sub(1, - 2) -- candran.can:77
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:78
+)") do -- candran.can:65
+i = i + (1) -- candran.can:66
+if inComment then -- candran.can:68
+inComment = not line:match("%]%]") -- candran.can:69
+elseif inLongString then -- candran.can:70
+inLongString = not line:match("%]%]") -- candran.can:71
+else -- candran.can:71
+if line:match("[^%-]%[%[") then -- candran.can:73
+inLongString = true -- candran.can:74
+elseif line:match("%-%-%[%[") then -- candran.can:75
+inComment = true -- candran.can:76
+end -- candran.can:76
+end -- candran.can:76
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:79
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:80
+else -- candran.can:80
+local l = line:sub(1, - 2) -- candran.can:82
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:83
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:79
-else -- candran.can:79
+") -- candran.can:84
+else -- candran.can:84
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:81
-end -- candran.can:81
-end -- candran.can:81
-end -- candran.can:81
-preprocessor = preprocessor .. ("return output") -- candran.can:85
-local env = util["merge"](_G, options) -- candran.can:88
-env["candran"] = candran -- candran.can:90
-env["output"] = "" -- candran.can:92
-env["import"] = function(modpath, margs) -- candran.can:99
-if margs == nil then margs = {} end -- candran.can:99
-local filepath = assert(util["search"](modpath, { -- candran.can:100
-"can", -- candran.can:100
-"lua" -- candran.can:100
-}), "No module named \"" .. modpath .. "\"") -- candran.can:100
-local f = io["open"](filepath) -- candran.can:103
-if not f then -- candran.can:104
-error("can't open the module file to import") -- candran.can:104
-end -- candran.can:104
-margs = util["merge"](options, { -- candran.can:106
-["chunkname"] = filepath, -- candran.can:106
-["loadLocal"] = true, -- candran.can:106
-["loadPackage"] = true -- candran.can:106
-}, margs) -- candran.can:106
-local modcontent = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:107
-f:close() -- candran.can:108
-local modname = modpath:match("[^%.]+$") -- candran.can:111
+") -- candran.can:86
+end -- candran.can:86
+end -- candran.can:86
+end -- candran.can:86
+preprocessor = preprocessor .. ("return output") -- candran.can:90
+local env = util["merge"](_G, options) -- candran.can:93
+env["candran"] = candran -- candran.can:95
+env["output"] = "" -- candran.can:97
+env["import"] = function(modpath, margs) -- candran.can:104
+if margs == nil then margs = {} end -- candran.can:104
+local filepath = assert(util["search"](modpath, { -- candran.can:105
+"can", -- candran.can:105
+"lua" -- candran.can:105
+}), "No module named \"" .. modpath .. "\"") -- candran.can:105
+local f = io["open"](filepath) -- candran.can:108
+if not f then -- candran.can:109
+error("can't open the module file to import") -- candran.can:109
+end -- candran.can:109
+margs = util["merge"](options, { -- candran.can:111
+["chunkname"] = filepath, -- candran.can:111
+["loadLocal"] = true, -- candran.can:111
+["loadPackage"] = true -- candran.can:111
+}, margs) -- candran.can:111
+local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:112
+macros = util["recmerge"](macros, modmacros) -- candran.can:113
+f:close() -- candran.can:114
+local modname = modpath:match("[^%.]+$") -- candran.can:117
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:120
-end -- candran.can:120
-env["include"] = function(file) -- candran.can:125
-local f = io["open"](file) -- candran.can:126
-if not f then -- candran.can:127
-error("can't open the file " .. file .. " to include") -- candran.can:127
-end -- candran.can:127
-env["write"](f:read("*a")) -- candran.can:128
-f:close() -- candran.can:129
-end -- candran.can:129
-env["write"] = function(...) -- candran.can:133
-env["output"] = env["output"] .. (table["concat"]({ ... }, "	") .. "\
-") -- candran.can:134
-end -- candran.can:134
-env["placeholder"] = function(name) -- candran.can:138
-if env[name] then -- candran.can:139
-env["write"](env[name]) -- candran.can:140
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:126
+end -- candran.can:126
+env["include"] = function(file) -- candran.can:131
+local f = io["open"](file) -- candran.can:132
+if not f then -- candran.can:133
+error("can't open the file " .. file .. " to include") -- candran.can:133
+end -- candran.can:133
+env["write"](f:read("*a")) -- candran.can:134
+f:close() -- candran.can:135
+end -- candran.can:135
+env["write"] = function(...) -- candran.can:139
+env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
+") -- candran.can:140
 end -- candran.can:140
-end -- candran.can:140
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:145
-if not preprocess then -- candran.can:146
-return nil, "in preprocessor: " .. err -- candran.can:147
-end -- candran.can:147
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:150
-if not preprocess then -- candran.can:151
-return nil, "in preprocessor: " .. err -- candran.can:152
-end -- candran.can:152
-local success, output = pcall(preprocess) -- candran.can:156
-if not success then -- candran.can:157
-return nil, "in preprocessor: " .. output -- candran.can:158
+env["placeholder"] = function(name) -- candran.can:144
+if env[name] then -- candran.can:145
+env["write"](env[name]) -- candran.can:146
+end -- candran.can:146
+end -- candran.can:146
+env["define"] = function(identifier, replacement) -- candran.can:149
+local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:151
+if not iast then -- candran.can:152
+return error(("in macro identifier: %s"):format(ierr)) -- candran.can:153
+end -- candran.can:153
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:156
+if not rast then -- candran.can:157
+return error(("in macro replacement: %s"):format(rerr)) -- candran.can:158
 end -- candran.can:158
-return output -- candran.can:161
-end -- candran.can:161
-candran["compile"] = function(input, options) -- candran.can:170
-if options == nil then options = {} end -- candran.can:170
-options = util["merge"](candran["default"], options) -- candran.can:171
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:173
-if not ast then -- candran.can:175
-return nil, errmsg -- candran.can:176
-end -- candran.can:176
-return require("compiler." .. options["target"])(input, ast, options) -- candran.can:179
-end -- candran.can:179
-candran["make"] = function(code, options) -- candran.can:188
-local r, err = candran["preprocess"](code, options) -- candran.can:189
-if r then -- candran.can:190
-r, err = candran["compile"](r, options) -- candran.can:191
-if r then -- candran.can:192
-return r -- candran.can:193
-end -- candran.can:193
-end -- candran.can:193
-return r, err -- candran.can:196
-end -- candran.can:196
-local errorRewritingActive = false -- candran.can:199
-local codeCache = {} -- candran.can:200
-candran["loadfile"] = function(filepath, env, options) -- candran.can:203
-local f, err = io["open"](filepath) -- candran.can:204
-if not f then -- candran.can:205
-return nil, ("cannot open %s"):format(err) -- candran.can:206
-end -- candran.can:206
-local content = f:read("*a") -- candran.can:208
-f:close() -- candran.can:209
-return candran["load"](content, filepath, env, options) -- candran.can:211
-end -- candran.can:211
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:216
-if options == nil then options = {} end -- candran.can:216
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:217
-local code, err = candran["make"](chunk, options) -- candran.can:219
-if not code then -- candran.can:220
-return code, err -- candran.can:221
-end -- candran.can:221
-codeCache[options["chunkname"]] = code -- candran.can:224
-local f -- candran.can:225
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:226
-if f == nil then -- candran.can:231
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:232
-end -- candran.can:232
-if options["rewriteErrors"] == false then -- candran.can:235
-return f -- candran.can:236
-else -- candran.can:236
-return function(...) -- candran.can:238
-if not errorRewritingActive then -- candran.can:239
-errorRewritingActive = true -- candran.can:240
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:241
-errorRewritingActive = false -- candran.can:242
-if t[1] == false then -- candran.can:243
-error(t[2], 0) -- candran.can:244
-end -- candran.can:244
-return unpack(t, 2) -- candran.can:246
-else -- candran.can:246
-return f(...) -- candran.can:248
-end -- candran.can:248
-end -- candran.can:248
-end -- candran.can:248
-end -- candran.can:248
-candran["dofile"] = function(filename, options) -- candran.can:256
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:257
-if f == nil then -- candran.can:259
-error(err) -- candran.can:260
-else -- candran.can:260
-return f() -- candran.can:262
-end -- candran.can:262
-end -- candran.can:262
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:268
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:161
+rast = rast[1][1] -- candran.can:162
+end -- candran.can:162
+if iast["tag"] == "MacroFunction" then -- candran.can:165
+macros["functions"][iast[1][1]] = { -- candran.can:166
+["args"] = iast[2], -- candran.can:166
+["replacement"] = rast -- candran.can:166
+} -- candran.can:166
+elseif iast["tag"] == "Id" then -- candran.can:167
+macros["variables"][iast[1]] = rast -- candran.can:168
+else -- candran.can:168
+error(("invalid macro type %s"):format(iast["tag"])) -- candran.can:170
+end -- candran.can:170
+end -- candran.can:170
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:175
+if not preprocess then -- candran.can:176
+return nil, "in preprocessor: " .. err -- candran.can:177
+end -- candran.can:177
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:180
+if not preprocess then -- candran.can:181
+return nil, "in preprocessor: " .. err -- candran.can:182
+end -- candran.can:182
+local success, output = pcall(preprocess) -- candran.can:186
+if not success then -- candran.can:187
+return nil, "in preprocessor: " .. output -- candran.can:188
+end -- candran.can:188
+return output, macros -- candran.can:191
+end -- candran.can:191
+candran["compile"] = function(input, options, macros) -- candran.can:201
+if options == nil then options = {} end -- candran.can:201
+options = util["merge"](candran["default"], options) -- candran.can:202
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:204
+if not ast then -- candran.can:206
+return nil, errmsg -- candran.can:207
+end -- candran.can:207
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:210
+end -- candran.can:210
+candran["make"] = function(code, options) -- candran.can:219
+local r, err = candran["preprocess"](code, options) -- candran.can:220
+if r then -- candran.can:221
+r, err = candran["compile"](r, options, err) -- candran.can:222
+if r then -- candran.can:223
+return r -- candran.can:224
+end -- candran.can:224
+end -- candran.can:224
+return r, err -- candran.can:227
+end -- candran.can:227
+local errorRewritingActive = false -- candran.can:230
+local codeCache = {} -- candran.can:231
+candran["loadfile"] = function(filepath, env, options) -- candran.can:234
+local f, err = io["open"](filepath) -- candran.can:235
+if not f then -- candran.can:236
+return nil, ("cannot open %s"):format(err) -- candran.can:237
+end -- candran.can:237
+local content = f:read("*a") -- candran.can:239
+f:close() -- candran.can:240
+return candran["load"](content, filepath, env, options) -- candran.can:242
+end -- candran.can:242
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:247
+if options == nil then options = {} end -- candran.can:247
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:248
+local code, err = candran["make"](chunk, options) -- candran.can:250
+if not code then -- candran.can:251
+return code, err -- candran.can:252
+end -- candran.can:252
+codeCache[options["chunkname"]] = code -- candran.can:255
+local f -- candran.can:256
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:257
+if f == nil then -- candran.can:262
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:263
+end -- candran.can:263
+if options["rewriteErrors"] == false then -- candran.can:266
+return f -- candran.can:267
+else -- candran.can:267
+return function(...) -- candran.can:269
+if not errorRewritingActive then -- candran.can:270
+errorRewritingActive = true -- candran.can:271
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:272
+errorRewritingActive = false -- candran.can:273
+if t[1] == false then -- candran.can:274
+error(t[2], 0) -- candran.can:275
+end -- candran.can:275
+return unpack(t, 2) -- candran.can:277
+else -- candran.can:277
+return f(...) -- candran.can:279
+end -- candran.can:279
+end -- candran.can:279
+end -- candran.can:279
+end -- candran.can:279
+candran["dofile"] = function(filename, options) -- candran.can:287
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:288
+if f == nil then -- candran.can:290
+error(err) -- candran.can:291
+else -- candran.can:291
+return f() -- candran.can:293
+end -- candran.can:293
+end -- candran.can:293
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:299
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:269
-message = debug["traceback"](message, 2) -- candran.can:270
-end -- candran.can:270
+") then -- candran.can:300
+message = debug["traceback"](message, 2) -- candran.can:301
+end -- candran.can:301
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:272
-line = tonumber(line) -- candran.can:273
-local originalFile -- candran.can:275
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:276
-if strName then -- candran.can:277
-if codeCache[strName] then -- candran.can:278
-originalFile = codeCache[strName] -- candran.can:279
-source = strName -- candran.can:280
-end -- candran.can:280
-else -- candran.can:280
-do -- candran.can:283
-local fi -- candran.can:283
-fi = io["open"](source, "r") -- candran.can:283
-if fi then -- candran.can:283
-originalFile = fi:read("*a") -- candran.can:284
-fi:close() -- candran.can:285
-end -- candran.can:285
-end -- candran.can:285
-end -- candran.can:285
-if originalFile then -- candran.can:289
-local i = 0 -- candran.can:290
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:303
+line = tonumber(line) -- candran.can:304
+local originalFile -- candran.can:306
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:307
+if strName then -- candran.can:308
+if codeCache[strName] then -- candran.can:309
+originalFile = codeCache[strName] -- candran.can:310
+source = strName -- candran.can:311
+end -- candran.can:311
+else -- candran.can:311
+do -- candran.can:314
+local fi -- candran.can:314
+fi = io["open"](source, "r") -- candran.can:314
+if fi then -- candran.can:314
+originalFile = fi:read("*a") -- candran.can:315
+fi:close() -- candran.can:316
+end -- candran.can:316
+end -- candran.can:316
+end -- candran.can:316
+if originalFile then -- candran.can:320
+local i = 0 -- candran.can:321
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:291
-i = i + 1 -- candran.can:292
-if i == line then -- candran.can:293
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:294
-if lineMap then -- candran.can:295
-if extSource ~= source then -- candran.can:296
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:297
-else -- candran.can:297
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:299
-end -- candran.can:299
-end -- candran.can:299
-break -- candran.can:302
-end -- candran.can:302
-end -- candran.can:302
-end -- candran.can:302
-end) -- candran.can:302
-end -- candran.can:302
-candran["searcher"] = function(modpath) -- candran.can:310
-local filepath = util["search"](modpath, { "can" }) -- candran.can:311
-if not filepath then -- candran.can:312
-if _VERSION == "Lua 5.4" then -- candran.can:313
-return "no candran file in package.path" -- candran.can:314
-else -- candran.can:314
+") do -- candran.can:322
+i = i + 1 -- candran.can:323
+if i == line then -- candran.can:324
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:325
+if lineMap then -- candran.can:326
+if extSource ~= source then -- candran.can:327
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:328
+else -- candran.can:328
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:330
+end -- candran.can:330
+end -- candran.can:330
+break -- candran.can:333
+end -- candran.can:333
+end -- candran.can:333
+end -- candran.can:333
+end) -- candran.can:333
+end -- candran.can:333
+candran["searcher"] = function(modpath) -- candran.can:341
+local filepath = util["search"](modpath, { "can" }) -- candran.can:342
+if not filepath then -- candran.can:343
+if _VERSION == "Lua 5.4" then -- candran.can:344
+return "no candran file in package.path" -- candran.can:345
+else -- candran.can:345
 return "\
-	no candran file in package.path" -- candran.can:316
-end -- candran.can:316
-end -- candran.can:316
-return function(modpath) -- candran.can:319
-local r, s = candran["loadfile"](filepath) -- candran.can:320
-if r then -- candran.can:321
-return r(modpath, filepath) -- candran.can:322
-else -- candran.can:322
+\9no candran file in package.path" -- candran.can:347
+end -- candran.can:347
+end -- candran.can:347
+return function(modpath) -- candran.can:350
+local r, s = candran["loadfile"](filepath) -- candran.can:351
+if r then -- candran.can:352
+return r(modpath, filepath) -- candran.can:353
+else -- candran.can:353
 error(("error loading candran module '%s' from file '%s':\
-	%s"):format(modpath, filepath, s), 0) -- candran.can:324
-end -- candran.can:324
-end, filepath -- candran.can:326
-end -- candran.can:326
-candran["setup"] = function() -- candran.can:330
-local searchers = (function() -- candran.can:331
-if _VERSION == "Lua 5.1" then -- candran.can:331
-return package["loaders"] -- candran.can:332
-else -- candran.can:332
-return package["searchers"] -- candran.can:334
-end -- candran.can:334
-end)() -- candran.can:334
-for _, s in ipairs(searchers) do -- candran.can:337
-if s == candran["searcher"] then -- candran.can:338
-return candran -- candran.can:339
-end -- candran.can:339
-end -- candran.can:339
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:343
-return candran -- candran.can:344
-end -- candran.can:344
-return candran -- candran.can:347
+\9%s"):format(modpath, filepath, s), 0) -- candran.can:355
+end -- candran.can:355
+end, filepath -- candran.can:357
+end -- candran.can:357
+candran["setup"] = function() -- candran.can:361
+local searchers = (function() -- candran.can:362
+if _VERSION == "Lua 5.1" then -- candran.can:362
+return package["loaders"] -- candran.can:363
+else -- candran.can:363
+return package["searchers"] -- candran.can:365
+end -- candran.can:365
+end)() -- candran.can:365
+for _, s in ipairs(searchers) do -- candran.can:368
+if s == candran["searcher"] then -- candran.can:369
+return candran -- candran.can:370
+end -- candran.can:370
+end -- candran.can:370
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:374
+return candran -- candran.can:375
+end -- candran.can:375
+return candran -- candran.can:378
diff --git a/candran/can-parser/parser.lua b/candran/can-parser/parser.lua
index 6efe5c7..5b44859 100644
--- a/candran/can-parser/parser.lua
+++ b/candran/can-parser/parser.lua
@@ -306,6 +306,11 @@ local function fixShortFunc (t)
     return t
 end
 
+local function markImplicit (t)
+    t.implicit = true
+    return t
+end
+
 local function statToExpr (t) -- tag a StatExpr
     t.tag = t.tag .. "Expr"
     return t
@@ -577,7 +582,7 @@ local G = { V"Lua",
   RetStat         = tagC("Return", kw("return") * commaSep(V"Expr", "RetList")^-1);
 
   PushStat         = tagC("Push", kw("push") * commaSep(V"Expr", "RetList")^-1);
-  ImplicitPushStat = tagC("Push", commaSep(V"Expr", "RetList"));
+  ImplicitPushStat = tagC("Push", commaSep(V"Expr", "RetList")) / markImplicit;
 
   NameList              = tagC("NameList", commaSep(V"Id"));
   DestructuringNameList = tagC("NameList", commaSep(V"DestructuringId")),
@@ -757,6 +762,20 @@ local G = { V"Lua",
   BinOp     = V"OrOp" + V"AndOp" + V"BOrOp" + V"BXorOp" + V"BAndOp" + V"ShiftOp" + V"ConcatOp" + V"AddOp" + V"MulOp" + V"PowOp";
 }
 
+-- used to parse macro indentifier in define() preprocessor function
+local macroidentifier = {
+  expect(V"MacroIdentifier", "InvalidStat") * expect(P(-1), "Extra"),
+
+  MacroIdentifier   = tagC("MacroFunction", V"Id" * sym("(") * V"MacroFunctionArgs" * expect(sym(")"), "CParenPList"))
+                    + V"Id";
+
+  MacroFunctionArgs = V"NameList" * (sym(",") * expect(tagC("Dots", sym("...")), "ParList"))^-1 / addDots
+                    + Ct(tagC("Dots", sym("...")))
+                    + Ct(Cc());
+
+}
+for k,v in pairs(G) do if macroidentifier[k] == nil then macroidentifier[k] = v end end -- copy other rules from main syntax
+
 local parser = {}
 
 local validator = require("candran.can-parser.validator")
@@ -774,4 +793,15 @@ function parser.parse (subject, filename)
   return validate(ast, errorinfo)
 end
 
+function parser.parsemacroidentifier (subject, filename)
+  local errorinfo = { subject = subject, filename = filename }
+  lpeg.setmaxstack(1000)
+  local ast, label, errpos = lpeg.match(macroidentifier, subject, nil, errorinfo)
+  if not ast then
+    local errmsg = labels[label][2]
+    return ast, syntaxerror(errorinfo, errpos, errmsg)
+  end
+  return ast
+end
+
 return parser
diff --git a/candran/util.can b/candran/util.can
index 2beb260..c03689b 100644
--- a/candran/util.can
+++ b/candran/util.can
@@ -27,6 +27,20 @@ function util.load(str, name, env)
 	end
 end
 
+function util.recmerge(...)
+	local r = {}
+	for _, t in ipairs({...}) do
+		for k, v in pairs(t) do
+			if type(v) == "table" then
+				r[k] = util.merge(v, r[k])
+			else
+				r[k] = v
+			end
+		end
+	end
+	return r
+end
+
 function util.merge(...)
 	local r = {}
 	for _, t in ipairs({...}) do
diff --git a/compiler/lua54.can b/compiler/lua54.can
index 6ce91a8..f8a3df8 100644
--- a/compiler/lua54.can
+++ b/compiler/lua54.can
@@ -1,6 +1,8 @@
+local util = require("candran.util")
+
 local targetName = "Lua 5.4"
 
-return function(code, ast, options)
+return function(code, ast, options, macros={functions={}, variables={}})
 	--- Line mapping
 	local lastInputPos = 1 -- last token position in the input code
 	local prevLinePos = 1 -- last token position in the previous line of code in the input code
@@ -47,7 +49,8 @@ return function(code, ast, options)
 	local states = {
 		push = {}, -- push stack variable names
 		destructuring = {}, -- list of variable that need to be assigned from a destructure {id = "parent variable", "field1", "field2"...}
-		scope = {} -- list of variables defined in the current scope
+		scope = {}, -- list of variables defined in the current scope
+		macroargs = {} -- currently defined arguemnts from a macro function
 	}
 	-- Push a new value on top of the stack "name". Returns an empty string for chaining.
 	local function push(name, state)
@@ -83,6 +86,9 @@ return function(code, ast, options)
 		return var
 	end
 
+	-- indicate if currently processing a macro, so it cannot be applied recursively
+	local nomacro = { variables = {}, functions = {} }
+
 	--- Module management
 	local required = {} -- { ["full require expression"] = true, ... }
 	local requireStr = ""
@@ -536,7 +542,15 @@ return function(code, ast, options)
 		end,
 		-- Dots
 		Dots = ()
-			return "..."
+			local macroargs = peek("macroargs")
+			if macroargs and not nomacro.variables["..."] and macroargs["..."] then
+				nomacro.variables["..."] = true
+				local r = lua(macroargs["..."], "_lhs")
+				nomacro.variables["..."] = nil
+				return r
+			else
+				return "..."
+			end
 		end,
 		-- Boolean{ <boolean> }
 		Boolean = (t)
@@ -723,6 +737,28 @@ return function(code, ast, options)
 		Call = (t)
 			if t[1].tag == "String" or t[1].tag == "Table" then
 				return "("..lua(t[1])..")("..lua(t, "_lhs", 2)..")"
+			elseif t[1].tag == "Id" and not nomacro.functions[t[1][1]] and macros.functions[t[1][1]] then
+				local macro = macros.functions[t[1][1]]
+				local replacement = macro.replacement
+				local macroargs = util.merge(peek("macroargs"))
+				for i, arg in ipairs(macro.args) do
+					if arg.tag == "Dots" then
+						macroargs["..."] = [for j=i+1, #t do t[j] end]
+					elseif arg.tag == "Id" then
+						if t[i+1] == nil then
+							error("bad argument #%s to macro %s (value expected)":format(i, t[1][1]))
+						end
+						macroargs[arg[1]] = t[i+1]
+					else
+						error("unexpected argument type %s in macro %s":format(arg.tag, t[1][1]))
+					end
+				end
+				push("macroargs", macroargs)
+				nomacro.functions[t[1][1]] = true
+				local r = lua(replacement)
+				nomacro.functions[t[1][1]] = nil
+				pop("macroargs")
+				return r
 			elseif t[1].tag == "MethodStub" then -- method call
 				if t[1][1].tag == "String" or t[1][1].tag == "Table" then
 					return "("..lua(t[1][1]).."):"..lua(t[1][2], "Id").."("..lua(t, "_lhs", 2)..")"
@@ -757,6 +793,20 @@ return function(code, ast, options)
 		end,
 		-- Id{ <string> }
 		Id = (t)
+			local macroargs = peek("macroargs")
+			if not nomacro.variables[t[1]] then
+				if macroargs and macroargs[t[1]] then -- replace with macro argument
+					nomacro.variables[t[1]] = true
+					local r = lua(macroargs[t[1]])
+					nomacro.variables[t[1]] = nil
+					return r
+				elseif macros.variables[t[1]] ~= nil then -- replace with macro variable
+					nomacro.variables[t[1]] = true
+					local r = lua(macros.variables[t[1]])
+					nomacro.variables[t[1]] = nil
+					return r
+				end
+			end
 			return t[1]
 		end,
 		-- AttributeId{ <string> <string>? }
diff --git a/test/test.lua b/test/test.lua
index 76bbcb9..0a5f635 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -151,6 +151,54 @@ return a
 #error("preprocessor should ignore long strings")
 ]])
 
+test("preprocessor macro remove function", [[
+#define("log(...)", "")
+log("test")
+return true
+]], true)
+
+test("preprocessor macro replace function", [[
+#define("log(x)", "a = x")
+log("test")
+return a
+]], "test")
+
+test("preprocessor macro identifier replace function", [[
+#define("test(x)", "x = 42")
+test(hello)
+return hello
+]], 42)
+
+test("preprocessor macro replace function with vararg", [[
+#define("log(...)", "a, b, c = ...")
+log(1, 2, 3)
+assert(a == 1)
+assert(b == 2)
+assert(c == 3)
+return true
+]], true)
+
+test("preprocessor macro replace function with vararg and arg", [[
+#define("log(x, ...)", "a, b, c = x, ...")
+log(1, 2, 3)
+assert(a == 1)
+assert(b == 2)
+assert(c == 3)
+return true
+]], true)
+
+test("preprocessor macro replace variable", [[
+#define("a", "42")
+return a
+]], 42)
+
+test("preprocessor macro prevent recursive macro", [[
+#define("f(x)", "x")
+local x = 42
+x = f(x)
+return x
+]], 42)
+
 ----------------------
 -- SYNTAX ADDITIONS --
 ----------------------

From 6a1f7450156fb70ed6ac3841b2291ecd569271c0 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 7 Jun 2021 17:16:31 +0200
Subject: [PATCH 24/43] Update README

---
 README.md | 36 ++++++++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 805972c..c9215ba 100644
--- a/README.md
+++ b/README.md
@@ -8,6 +8,13 @@ Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing L
 #import("lib.thing") -- static import
 #local debug or= false
 
+#if debug
+#	define("log(...)", "print(...)")
+#else
+#	define("log(...)", "") -- remove calls to log from the compiled code when debug is true
+#end
+log("example macro") -- preprocessor macros
+
 local function calculate(toadd=25) -- default parameters
 	local result = thing.do()
 	result += toadd
@@ -448,9 +455,34 @@ The preprocessor has access to the following variables:
 * ````include(filename)````: a function which copy the contents of the file _filename_ to the output.
 * ````write(...)````: write to the preprocessor output. For example, ````#write("hello()")```` will output ````hello()```` in the final file.
 * ```placeholder(name)```: if the variable _name_ is defined in the preprocessor environement, its content will be inserted here.
+* ```define(identifier, replacement)```: define a macro. See below.
 * each arguments passed to the preprocessor is directly available in the environment.
 * and every standard Lua library.
 
+#### Macros
+
+Using `define(identifier, replacement)` in the preprocessor, you can define macros. Both identifier and replacement are expected to be string containing Candran/Lua code.
+
+There are two types of macros: variables, which replace every instance of the given identifier with the replacement text; and functions, which will replace every call to this function with the replacement text, also replacing its arguments. The `...` will be replaced with every remaining argument. Macros can not be recursive.
+
+If the replacement text is empty, the macro will simply be removed from the compiled code.
+
+```lua
+-- Variable macro
+#define("x", 42)
+print(x) -- 42
+
+-- Function macros
+#define("f(x)", "print(x)")
+f(42) -- replaced with print(42)
+
+#define("log(s, ...)", "print(s..": ", ...)")
+log("network", "error") -- network: error
+
+#define("debug()", "")
+debug() -- not present in complied code
+```
+
 Compile targets
 ---------------
 Candran is based on the Lua 5.4 syntax, but can be compiled to Lua 5.4, Lua 5.3, Lua 5.2, LuaJIT, and Lua 5.1 compatible code.
@@ -567,8 +599,8 @@ The table returned by _require("candran")_ gives you access to:
 
 ##### Compiler & preprocessor
 * ````candran.VERSION````: Candran's version string (e.g. `"0.10.0"`).
-* ````candran.preprocess(code[, options])````: return the Candran code _code_, preprocessed with the _options_ options table; or nil, err in case of error.
-* ````candran.compile(code[, options])````: return the Candran code compiled to Lua with the _options_ option table; or nil, err in case of error.
+* ````candran.preprocess(code[, options])````: return the Candran code _code_, `macros` table. The code is preprocessed with the _options_ options table; `macros` is indented to be passed to `candran.compile` to apply the defined macros. In case of error, returns nil, error.
+* ````candran.compile(code[, options[, macros]])````: return the Candran code compiled to Lua with the _options_ option table and the macros `macros` (table returned by the preprocessor); or nil, err in case of error.
 * ````candran.make(code[, options])````: return the Candran code, preprocessed and compiled with the _options_ options table; or nil, err in case of error.
 
 ##### Code loading helpers

From 584dac17db836e39bd2f150d2280034c79538e63 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Mon, 7 Jun 2021 17:24:25 +0200
Subject: [PATCH 25/43] Typo

---
 README.md | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index c9215ba..083e23a 100644
--- a/README.md
+++ b/README.md
@@ -6,9 +6,9 @@ Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing L
 
 ````lua
 #import("lib.thing") -- static import
-#local debug or= false
+#local debug = false
 
-#if debug
+#if debug then
 #	define("log(...)", "print(...)")
 #else
 #	define("log(...)", "") -- remove calls to log from the compiled code when debug is true

From 3c84d1fbdd5f017ddea60b5f89008843906902ea Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Wed, 9 Jun 2021 13:43:52 +0200
Subject: [PATCH 26/43] Fix string.format errors on Lua 5.1 when using booleans
 or nil

---
 bin/can     | 2 +-
 bin/canc    | 2 +-
 candran.can | 4 ++--
 candran.lua | 4 ++--
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/bin/can b/bin/can
index cad0270..8c4cdc7 100644
--- a/bin/can
+++ b/bin/can
@@ -15,7 +15,7 @@ if args.help or args.h then
 	print("Default options:")
 	for opt, val in pairs(candran.default) do
 		if type(val) == "string" then val = val:gsub("\n", "\\n") end
-		print(("  %s=%q"):format(opt, val))
+		print(("  %s=%q"):format(opt, tostring(val)))
 	end
 	return
 end
diff --git a/bin/canc b/bin/canc
index b87cb8f..32265ef 100644
--- a/bin/canc
+++ b/bin/canc
@@ -23,7 +23,7 @@ if #arg < 1 or args.help or args.h then
 	print("Default options:")
 	for opt, val in pairs(candran.default) do
 		if type(val) == "string" then val = val:gsub("\n", "\\n") end
-		print(("  %s=%q"):format(opt, val))
+		print(("  %s=%q"):format(opt, tostring(val)))
 	end
 	return
 end
diff --git a/candran.can b/candran.can
index 57f115d..aa34258 100644
--- a/candran.can
+++ b/candran.can
@@ -203,7 +203,7 @@ local codeCache = {}
 function candran.loadfile(filepath, env, options)
 	local f, err = io.open(filepath)
 	if not f then
-		return nil, "cannot open %s":format(err)
+		return nil, "cannot open %s":format(tostring(err))
 	end
 	local content = f:read("*a")
 	f:close()
@@ -321,7 +321,7 @@ function candran.searcher(modpath)
 		if r then
 			return r(modpath, filepath)
 		else
-			error("error loading candran module '%s' from file '%s':\n\t%s":format(modpath, filepath, s), 0)
+			error("error loading candran module '%s' from file '%s':\n\t%s":format(modpath, filepath, tostring(s)), 0)
 		end
 	end, filepath
 end
diff --git a/candran.lua b/candran.lua
index 51a26ad..4512e48 100644
--- a/candran.lua
+++ b/candran.lua
@@ -6541,7 +6541,7 @@ local codeCache = {} -- candran.can:200
 candran["loadfile"] = function(filepath, env, options) -- candran.can:203
 local f, err = io["open"](filepath) -- candran.can:204
 if not f then -- candran.can:205
-return nil, ("cannot open %s"):format(err) -- candran.can:206
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:206
 end -- candran.can:206
 local content = f:read("*a") -- candran.can:208
 f:close() -- candran.can:209
@@ -6651,7 +6651,7 @@ if r then -- candran.can:321
 return r(modpath, filepath) -- candran.can:322
 else -- candran.can:322
 error(("error loading candran module '%s' from file '%s':\
-	%s"):format(modpath, filepath, s), 0) -- candran.can:324
+	%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:324
 end -- candran.can:324
 end, filepath -- candran.can:326
 end -- candran.can:326

From 496a4ddafd4f4056c3fc6e8fda3a31b8f5341688 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 11 Jun 2021 13:46:31 +0200
Subject: [PATCH 27/43] Add support for macro replacement using Lua functions

---
 candran.can        |   27 +-
 candran.lua        | 9173 ++++++++++++++++++++++----------------------
 compiler/lua54.can |   63 +-
 test/test.lua      |   11 +
 4 files changed, 4684 insertions(+), 4590 deletions(-)

diff --git a/candran.can b/candran.can
index b203ab1..cdb0ab7 100644
--- a/candran.can
+++ b/candran.can
@@ -150,24 +150,29 @@ function candran.preprocess(input, options={})
 		-- parse identifier
 		local iast, ierr = parser.parsemacroidentifier(identifier, options.chunkname)
 		if not iast then
-			return error("in macro identifier: %s":format(ierr))
+			return error("in macro identifier: %s":format(tostring(ierr)))
 		end
 		-- parse replacement value
-		local rast, rerr = parser.parse(replacement, options.chunkname)
-		if not rast then
-			return error("in macro replacement: %s":format(rerr))
-		end
-		-- when giving a single value as a replacement, bypass the implicit push
-		if #rast == 1 and rast[1].tag == "Push" and rast[1].implicit then
-			rast = rast[1][1]
+		if type(replacement) == "string" then
+			local rast, rerr = parser.parse(replacement, options.chunkname)
+			if not rast then
+				return error("in macro replacement: %s":format(tostring(rerr)))
+			end
+			-- when giving a single value as a replacement, bypass the implicit push
+			if #rast == 1 and rast[1].tag == "Push" and rast[1].implicit then
+				rast = rast[1][1]
+			end
+			replacement = rast
+		elseif type(replacement) ~= "function" then
+			error("bad argument #2 to 'define' (string or function expected)")
 		end
 		-- add macros
 		if iast.tag == "MacroFunction" then
-			macros.functions[iast[1][1]] = { args = iast[2], replacement = rast }
+			macros.functions[iast[1][1]] = { args = iast[2], replacement = replacement }
 		elseif iast.tag == "Id" then
-			macros.variables[iast[1]] = rast
+			macros.variables[iast[1]] = replacement
 		else
-			error("invalid macro type %s":format(iast.tag))
+			error("invalid macro type %s":format(tostring(iast.tag)))
 		end
 	end
 
diff --git a/candran.lua b/candran.lua
index fdcd523..6148a8f 100644
--- a/candran.lua
+++ b/candran.lua
@@ -144,1842 +144,1866 @@ package["loaded"]["candran.cmdline"] = cmdline or true -- ./candran/cmdline.lua:
 local function _() -- ./candran/cmdline.lua:135
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
-return function(code, ast, options, macros) -- ./compiler/lua54.can:5
-if macros == nil then macros = { -- ./compiler/lua54.can:5
-["functions"] = {}, -- ./compiler/lua54.can:5
-["variables"] = {} -- ./compiler/lua54.can:5
-} end -- ./compiler/lua54.can:5
-local lastInputPos = 1 -- ./compiler/lua54.can:7
-local prevLinePos = 1 -- ./compiler/lua54.can:8
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
-local lastLine = 1 -- ./compiler/lua54.can:10
-local indentLevel = 0 -- ./compiler/lua54.can:13
-local function newline() -- ./compiler/lua54.can:15
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
-if options["mapLines"] then -- ./compiler/lua54.can:17
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
+local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
+return function(code, ast, options, macros) -- ./compiler/lua54.can:7
+if macros == nil then macros = { -- ./compiler/lua54.can:7
+["functions"] = {}, -- ./compiler/lua54.can:7
+["variables"] = {} -- ./compiler/lua54.can:7
+} end -- ./compiler/lua54.can:7
+local lastInputPos = 1 -- ./compiler/lua54.can:9
+local prevLinePos = 1 -- ./compiler/lua54.can:10
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:11
+local lastLine = 1 -- ./compiler/lua54.can:12
+local indentLevel = 0 -- ./compiler/lua54.can:15
+local function newline() -- ./compiler/lua54.can:17
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:18
+if options["mapLines"] then -- ./compiler/lua54.can:19
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:20
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:19
-if source and line then -- ./compiler/lua54.can:21
-lastSource = source -- ./compiler/lua54.can:22
-lastLine = tonumber(line) -- ./compiler/lua54.can:23
-else -- ./compiler/lua54.can:23
+") -- ./compiler/lua54.can:21
+if source and line then -- ./compiler/lua54.can:23
+lastSource = source -- ./compiler/lua54.can:24
+lastLine = tonumber(line) -- ./compiler/lua54.can:25
+else -- ./compiler/lua54.can:25
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:25
-lastLine = lastLine + (1) -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-prevLinePos = lastInputPos -- ./compiler/lua54.can:30
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
-end -- ./compiler/lua54.can:32
-return r -- ./compiler/lua54.can:34
+") do -- ./compiler/lua54.can:27
+lastLine = lastLine + (1) -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+prevLinePos = lastInputPos -- ./compiler/lua54.can:32
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:34
 end -- ./compiler/lua54.can:34
-local function indent() -- ./compiler/lua54.can:37
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
-return newline() -- ./compiler/lua54.can:39
-end -- ./compiler/lua54.can:39
-local function unindent() -- ./compiler/lua54.can:42
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
-return newline() -- ./compiler/lua54.can:44
-end -- ./compiler/lua54.can:44
-local states = { -- ./compiler/lua54.can:49
-["push"] = {}, -- ./compiler/lua54.can:50
-["destructuring"] = {}, -- ./compiler/lua54.can:51
-["scope"] = {}, -- ./compiler/lua54.can:52
-["macroargs"] = {} -- ./compiler/lua54.can:53
-} -- ./compiler/lua54.can:53
-local function push(name, state) -- ./compiler/lua54.can:56
-table["insert"](states[name], state) -- ./compiler/lua54.can:57
-return "" -- ./compiler/lua54.can:58
-end -- ./compiler/lua54.can:58
-local function pop(name) -- ./compiler/lua54.can:61
-table["remove"](states[name]) -- ./compiler/lua54.can:62
-return "" -- ./compiler/lua54.can:63
-end -- ./compiler/lua54.can:63
-local function set(name, state) -- ./compiler/lua54.can:66
-states[name][# states[name]] = state -- ./compiler/lua54.can:67
-return "" -- ./compiler/lua54.can:68
-end -- ./compiler/lua54.can:68
-local function peek(name) -- ./compiler/lua54.can:71
-return states[name][# states[name]] -- ./compiler/lua54.can:72
-end -- ./compiler/lua54.can:72
-local function var(name) -- ./compiler/lua54.can:77
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
-end -- ./compiler/lua54.can:78
-local function tmp() -- ./compiler/lua54.can:82
-local scope = peek("scope") -- ./compiler/lua54.can:83
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
-table["insert"](scope, var) -- ./compiler/lua54.can:85
-return var -- ./compiler/lua54.can:86
-end -- ./compiler/lua54.can:86
-local nomacro = { -- ./compiler/lua54.can:90
-["variables"] = {}, -- ./compiler/lua54.can:90
-["functions"] = {} -- ./compiler/lua54.can:90
-} -- ./compiler/lua54.can:90
-local required = {} -- ./compiler/lua54.can:93
-local requireStr = "" -- ./compiler/lua54.can:94
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
-if not required[req] then -- ./compiler/lua54.can:98
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
-required[req] = true -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-local loop = { -- ./compiler/lua54.can:105
-"While", -- ./compiler/lua54.can:105
-"Repeat", -- ./compiler/lua54.can:105
-"Fornum", -- ./compiler/lua54.can:105
-"Forin", -- ./compiler/lua54.can:105
-"WhileExpr", -- ./compiler/lua54.can:105
-"RepeatExpr", -- ./compiler/lua54.can:105
-"FornumExpr", -- ./compiler/lua54.can:105
-"ForinExpr" -- ./compiler/lua54.can:105
-} -- ./compiler/lua54.can:105
-local func = { -- ./compiler/lua54.can:106
-"Function", -- ./compiler/lua54.can:106
-"TableCompr", -- ./compiler/lua54.can:106
-"DoExpr", -- ./compiler/lua54.can:106
-"WhileExpr", -- ./compiler/lua54.can:106
-"RepeatExpr", -- ./compiler/lua54.can:106
-"IfExpr", -- ./compiler/lua54.can:106
-"FornumExpr", -- ./compiler/lua54.can:106
-"ForinExpr" -- ./compiler/lua54.can:106
-} -- ./compiler/lua54.can:106
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
-local tagsCheck = {} -- ./compiler/lua54.can:111
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
-tagsCheck[tag] = true -- ./compiler/lua54.can:113
-end -- ./compiler/lua54.can:113
-local nofollowCheck = {} -- ./compiler/lua54.can:115
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
-nofollowCheck[tag] = true -- ./compiler/lua54.can:117
-end -- ./compiler/lua54.can:117
-for _, node in ipairs(list) do -- ./compiler/lua54.can:119
-if type(node) == "table" then -- ./compiler/lua54.can:120
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
-return node -- ./compiler/lua54.can:122
-end -- ./compiler/lua54.can:122
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
-if r then -- ./compiler/lua54.can:126
-return r -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-return nil -- ./compiler/lua54.can:130
-end -- ./compiler/lua54.can:130
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
-local tagsCheck = {} -- ./compiler/lua54.can:136
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
-tagsCheck[tag] = true -- ./compiler/lua54.can:138
-end -- ./compiler/lua54.can:138
-local nofollowCheck = {} -- ./compiler/lua54.can:140
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
-nofollowCheck[tag] = true -- ./compiler/lua54.can:142
-end -- ./compiler/lua54.can:142
-local found = {} -- ./compiler/lua54.can:144
-for _, node in ipairs(list) do -- ./compiler/lua54.can:145
-if type(node) == "table" then -- ./compiler/lua54.can:146
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
-table["insert"](found, n) -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
-table["insert"](found, node) -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-return found -- ./compiler/lua54.can:157
-end -- ./compiler/lua54.can:157
-local function all(list, tags) -- ./compiler/lua54.can:161
-for _, node in ipairs(list) do -- ./compiler/lua54.can:162
-local ok = false -- ./compiler/lua54.can:163
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
-if node["tag"] == tag then -- ./compiler/lua54.can:165
-ok = true -- ./compiler/lua54.can:166
-break -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-if not ok then -- ./compiler/lua54.can:170
-return false -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-return true -- ./compiler/lua54.can:174
-end -- ./compiler/lua54.can:174
-local tags -- ./compiler/lua54.can:178
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
-end -- ./compiler/lua54.can:182
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+return r -- ./compiler/lua54.can:36
+end -- ./compiler/lua54.can:36
+local function indent() -- ./compiler/lua54.can:39
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:40
+return newline() -- ./compiler/lua54.can:41
+end -- ./compiler/lua54.can:41
+local function unindent() -- ./compiler/lua54.can:44
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:45
+return newline() -- ./compiler/lua54.can:46
+end -- ./compiler/lua54.can:46
+local states = { -- ./compiler/lua54.can:51
+["push"] = {}, -- ./compiler/lua54.can:52
+["destructuring"] = {}, -- ./compiler/lua54.can:53
+["scope"] = {}, -- ./compiler/lua54.can:54
+["macroargs"] = {} -- ./compiler/lua54.can:55
+} -- ./compiler/lua54.can:55
+local function push(name, state) -- ./compiler/lua54.can:58
+table["insert"](states[name], state) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function pop(name) -- ./compiler/lua54.can:63
+table["remove"](states[name]) -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function set(name, state) -- ./compiler/lua54.can:68
+states[name][# states[name]] = state -- ./compiler/lua54.can:69
+return "" -- ./compiler/lua54.can:70
+end -- ./compiler/lua54.can:70
+local function peek(name) -- ./compiler/lua54.can:73
+return states[name][# states[name]] -- ./compiler/lua54.can:74
+end -- ./compiler/lua54.can:74
+local function var(name) -- ./compiler/lua54.can:79
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:80
+end -- ./compiler/lua54.can:80
+local function tmp() -- ./compiler/lua54.can:84
+local scope = peek("scope") -- ./compiler/lua54.can:85
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:86
+table["insert"](scope, var) -- ./compiler/lua54.can:87
+return var -- ./compiler/lua54.can:88
+end -- ./compiler/lua54.can:88
+local nomacro = { -- ./compiler/lua54.can:92
+["variables"] = {}, -- ./compiler/lua54.can:92
+["functions"] = {} -- ./compiler/lua54.can:92
+} -- ./compiler/lua54.can:92
+local required = {} -- ./compiler/lua54.can:95
+local requireStr = "" -- ./compiler/lua54.can:96
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:98
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:99
+if not required[req] then -- ./compiler/lua54.can:100
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:101
+required[req] = true -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+local loop = { -- ./compiler/lua54.can:107
+"While", -- ./compiler/lua54.can:107
+"Repeat", -- ./compiler/lua54.can:107
+"Fornum", -- ./compiler/lua54.can:107
+"Forin", -- ./compiler/lua54.can:107
+"WhileExpr", -- ./compiler/lua54.can:107
+"RepeatExpr", -- ./compiler/lua54.can:107
+"FornumExpr", -- ./compiler/lua54.can:107
+"ForinExpr" -- ./compiler/lua54.can:107
+} -- ./compiler/lua54.can:107
+local func = { -- ./compiler/lua54.can:108
+"Function", -- ./compiler/lua54.can:108
+"TableCompr", -- ./compiler/lua54.can:108
+"DoExpr", -- ./compiler/lua54.can:108
+"WhileExpr", -- ./compiler/lua54.can:108
+"RepeatExpr", -- ./compiler/lua54.can:108
+"IfExpr", -- ./compiler/lua54.can:108
+"FornumExpr", -- ./compiler/lua54.can:108
+"ForinExpr" -- ./compiler/lua54.can:108
+} -- ./compiler/lua54.can:108
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:112
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:112
+local tagsCheck = {} -- ./compiler/lua54.can:113
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:114
+tagsCheck[tag] = true -- ./compiler/lua54.can:115
+end -- ./compiler/lua54.can:115
+local nofollowCheck = {} -- ./compiler/lua54.can:117
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:118
+nofollowCheck[tag] = true -- ./compiler/lua54.can:119
+end -- ./compiler/lua54.can:119
+for _, node in ipairs(list) do -- ./compiler/lua54.can:121
+if type(node) == "table" then -- ./compiler/lua54.can:122
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:123
+return node -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:126
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:127
+if r then -- ./compiler/lua54.can:128
+return r -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+return nil -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:137
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:137
+local tagsCheck = {} -- ./compiler/lua54.can:138
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:139
+tagsCheck[tag] = true -- ./compiler/lua54.can:140
+end -- ./compiler/lua54.can:140
+local nofollowCheck = {} -- ./compiler/lua54.can:142
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:143
+nofollowCheck[tag] = true -- ./compiler/lua54.can:144
+end -- ./compiler/lua54.can:144
+local found = {} -- ./compiler/lua54.can:146
+for _, node in ipairs(list) do -- ./compiler/lua54.can:147
+if type(node) == "table" then -- ./compiler/lua54.can:148
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:149
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:150
+table["insert"](found, n) -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:154
+table["insert"](found, node) -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+return found -- ./compiler/lua54.can:159
+end -- ./compiler/lua54.can:159
+local function all(list, tags) -- ./compiler/lua54.can:163
+for _, node in ipairs(list) do -- ./compiler/lua54.can:164
+local ok = false -- ./compiler/lua54.can:165
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:166
+if node["tag"] == tag then -- ./compiler/lua54.can:167
+ok = true -- ./compiler/lua54.can:168
+break -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+if not ok then -- ./compiler/lua54.can:172
+return false -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+return true -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+local tags -- ./compiler/lua54.can:180
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:182
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:183
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:184
 end -- ./compiler/lua54.can:184
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
-end -- ./compiler/lua54.can:189
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
-end -- ./compiler/lua54.can:192
-local CONTINUE_START = function() -- ./compiler/lua54.can:194
-return "do" .. indent() -- ./compiler/lua54.can:195
-end -- ./compiler/lua54.can:195
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
-end -- ./compiler/lua54.can:198
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
-local vars = {} -- ./compiler/lua54.can:201
-local values = {} -- ./compiler/lua54.can:202
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
-for _, v in ipairs(list) do -- ./compiler/lua54.can:204
-local var, val -- ./compiler/lua54.can:205
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
-var = v -- ./compiler/lua54.can:207
-val = { -- ./compiler/lua54.can:208
-["tag"] = "Index", -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "Id", -- ./compiler/lua54.can:208
-list["id"] -- ./compiler/lua54.can:208
-}, -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "String", -- ./compiler/lua54.can:208
-v[1] -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
-var = v[2] -- ./compiler/lua54.can:210
-val = { -- ./compiler/lua54.can:211
-["tag"] = "Index", -- ./compiler/lua54.can:211
-{ -- ./compiler/lua54.can:211
-["tag"] = "Id", -- ./compiler/lua54.can:211
-list["id"] -- ./compiler/lua54.can:211
-}, -- ./compiler/lua54.can:211
-v[1] -- ./compiler/lua54.can:211
-} -- ./compiler/lua54.can:211
-else -- ./compiler/lua54.can:211
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
-end -- ./compiler/lua54.can:213
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
-val = { -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["rightOp"], -- ./compiler/lua54.can:216
-var, -- ./compiler/lua54.can:216
-{ -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["leftOp"], -- ./compiler/lua54.can:216
-val, -- ./compiler/lua54.can:216
-var -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:190
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:191
+end -- ./compiler/lua54.can:191
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:193
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:194
+end -- ./compiler/lua54.can:194
+local CONTINUE_START = function() -- ./compiler/lua54.can:196
+return "do" .. indent() -- ./compiler/lua54.can:197
+end -- ./compiler/lua54.can:197
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:199
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:200
+end -- ./compiler/lua54.can:200
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:202
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:202
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:202
+local vars = {} -- ./compiler/lua54.can:203
+local values = {} -- ./compiler/lua54.can:204
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:205
+for _, v in ipairs(list) do -- ./compiler/lua54.can:206
+local var, val -- ./compiler/lua54.can:207
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:208
+var = v -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Index", -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Id", -- ./compiler/lua54.can:210
+list["id"] -- ./compiler/lua54.can:210
+}, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "String", -- ./compiler/lua54.can:210
+v[1] -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:211
+var = v[2] -- ./compiler/lua54.can:212
+val = { -- ./compiler/lua54.can:213
+["tag"] = "Index", -- ./compiler/lua54.can:213
+{ -- ./compiler/lua54.can:213
+["tag"] = "Id", -- ./compiler/lua54.can:213
+list["id"] -- ./compiler/lua54.can:213
+}, -- ./compiler/lua54.can:213
+v[1] -- ./compiler/lua54.can:213
+} -- ./compiler/lua54.can:213
+else -- ./compiler/lua54.can:213
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:215
+end -- ./compiler/lua54.can:215
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:217
 val = { -- ./compiler/lua54.can:218
 ["tag"] = "Op", -- ./compiler/lua54.can:218
 destructured["rightOp"], -- ./compiler/lua54.can:218
 var, -- ./compiler/lua54.can:218
-val -- ./compiler/lua54.can:218
+{ -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["leftOp"], -- ./compiler/lua54.can:218
+val, -- ./compiler/lua54.can:218
+var -- ./compiler/lua54.can:218
 } -- ./compiler/lua54.can:218
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+} -- ./compiler/lua54.can:218
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:219
 val = { -- ./compiler/lua54.can:220
 ["tag"] = "Op", -- ./compiler/lua54.can:220
-destructured["leftOp"], -- ./compiler/lua54.can:220
-val, -- ./compiler/lua54.can:220
-var -- ./compiler/lua54.can:220
+destructured["rightOp"], -- ./compiler/lua54.can:220
+var, -- ./compiler/lua54.can:220
+val -- ./compiler/lua54.can:220
 } -- ./compiler/lua54.can:220
-end -- ./compiler/lua54.can:220
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-if # vars > 0 then -- ./compiler/lua54.can:226
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
-if newlineAfter then -- ./compiler/lua54.can:228
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
-else -- ./compiler/lua54.can:229
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
-end -- ./compiler/lua54.can:231
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:221
+val = { -- ./compiler/lua54.can:222
+["tag"] = "Op", -- ./compiler/lua54.can:222
+destructured["leftOp"], -- ./compiler/lua54.can:222
+val, -- ./compiler/lua54.can:222
+var -- ./compiler/lua54.can:222
+} -- ./compiler/lua54.can:222
+end -- ./compiler/lua54.can:222
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:224
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+if # vars > 0 then -- ./compiler/lua54.can:228
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:229
+if newlineAfter then -- ./compiler/lua54.can:230
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:231
 else -- ./compiler/lua54.can:231
-return "" -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-tags = setmetatable({ -- ./compiler/lua54.can:239
-["Block"] = function(t) -- ./compiler/lua54.can:241
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
-hasPush = false -- ./compiler/lua54.can:245
-end -- ./compiler/lua54.can:245
-local r = push("scope", {}) -- ./compiler/lua54.can:247
-if hasPush then -- ./compiler/lua54.can:248
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
-end -- ./compiler/lua54.can:249
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
-end -- ./compiler/lua54.can:252
-if t[# t] then -- ./compiler/lua54.can:254
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
-end -- ./compiler/lua54.can:255
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
-end -- ./compiler/lua54.can:258
-return r .. pop("scope") -- ./compiler/lua54.can:260
-end, -- ./compiler/lua54.can:260
-["Do"] = function(t) -- ./compiler/lua54.can:266
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
-end, -- ./compiler/lua54.can:267
-["Set"] = function(t) -- ./compiler/lua54.can:270
-local expr = t[# t] -- ./compiler/lua54.can:272
-local vars, values = {}, {} -- ./compiler/lua54.can:273
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
-else -- ./compiler/lua54.can:278
-table["insert"](vars, n) -- ./compiler/lua54.can:280
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
-local r = "" -- ./compiler/lua54.can:286
-if # vars > 0 then -- ./compiler/lua54.can:287
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
-end -- ./compiler/lua54.can:288
-if # destructuringVars > 0 then -- ./compiler/lua54.can:290
-local destructured = {} -- ./compiler/lua54.can:291
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
-end -- ./compiler/lua54.can:293
-return r -- ./compiler/lua54.can:295
-elseif # t == 4 then -- ./compiler/lua54.can:296
-if t[3] == "=" then -- ./compiler/lua54.can:297
-local r = "" -- ./compiler/lua54.can:298
-if # vars > 0 then -- ./compiler/lua54.can:299
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
-t[2], -- ./compiler/lua54.can:300
-vars[1], -- ./compiler/lua54.can:300
-{ -- ./compiler/lua54.can:300
-["tag"] = "Paren", -- ./compiler/lua54.can:300
-values[1] -- ./compiler/lua54.can:300
-} -- ./compiler/lua54.can:300
-}, "Op")) -- ./compiler/lua54.can:300
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:233
+end -- ./compiler/lua54.can:233
+else -- ./compiler/lua54.can:233
+return "" -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+tags = setmetatable({ -- ./compiler/lua54.can:241
+["Block"] = function(t) -- ./compiler/lua54.can:243
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:244
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:245
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:246
+hasPush = false -- ./compiler/lua54.can:247
+end -- ./compiler/lua54.can:247
+local r = push("scope", {}) -- ./compiler/lua54.can:249
+if hasPush then -- ./compiler/lua54.can:250
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:251
+end -- ./compiler/lua54.can:251
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:253
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:254
+end -- ./compiler/lua54.can:254
+if t[# t] then -- ./compiler/lua54.can:256
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:257
+end -- ./compiler/lua54.can:257
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:259
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:260
+end -- ./compiler/lua54.can:260
+return r .. pop("scope") -- ./compiler/lua54.can:262
+end, -- ./compiler/lua54.can:262
+["Do"] = function(t) -- ./compiler/lua54.can:268
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:269
+end, -- ./compiler/lua54.can:269
+["Set"] = function(t) -- ./compiler/lua54.can:272
+local expr = t[# t] -- ./compiler/lua54.can:274
+local vars, values = {}, {} -- ./compiler/lua54.can:275
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:276
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:277
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:278
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:279
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:280
+else -- ./compiler/lua54.can:280
+table["insert"](vars, n) -- ./compiler/lua54.can:282
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:287
+local r = "" -- ./compiler/lua54.can:288
+if # vars > 0 then -- ./compiler/lua54.can:289
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:290
+end -- ./compiler/lua54.can:290
+if # destructuringVars > 0 then -- ./compiler/lua54.can:292
+local destructured = {} -- ./compiler/lua54.can:293
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:294
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:295
+end -- ./compiler/lua54.can:295
+return r -- ./compiler/lua54.can:297
+elseif # t == 4 then -- ./compiler/lua54.can:298
+if t[3] == "=" then -- ./compiler/lua54.can:299
+local r = "" -- ./compiler/lua54.can:300
+if # vars > 0 then -- ./compiler/lua54.can:301
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:302
 t[2], -- ./compiler/lua54.can:302
-vars[i], -- ./compiler/lua54.can:302
+vars[1], -- ./compiler/lua54.can:302
 { -- ./compiler/lua54.can:302
 ["tag"] = "Paren", -- ./compiler/lua54.can:302
-values[i] -- ./compiler/lua54.can:302
+values[1] -- ./compiler/lua54.can:302
 } -- ./compiler/lua54.can:302
 }, "Op")) -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-if # destructuringVars > 0 then -- ./compiler/lua54.can:305
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
-end -- ./compiler/lua54.can:308
-return r -- ./compiler/lua54.can:310
-else -- ./compiler/lua54.can:310
-local r = "" -- ./compiler/lua54.can:312
-if # vars > 0 then -- ./compiler/lua54.can:313
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
-t[3], -- ./compiler/lua54.can:314
-{ -- ./compiler/lua54.can:314
-["tag"] = "Paren", -- ./compiler/lua54.can:314
-values[1] -- ./compiler/lua54.can:314
-}, -- ./compiler/lua54.can:314
-vars[1] -- ./compiler/lua54.can:314
-}, "Op")) -- ./compiler/lua54.can:314
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:303
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:304
+t[2], -- ./compiler/lua54.can:304
+vars[i], -- ./compiler/lua54.can:304
+{ -- ./compiler/lua54.can:304
+["tag"] = "Paren", -- ./compiler/lua54.can:304
+values[i] -- ./compiler/lua54.can:304
+} -- ./compiler/lua54.can:304
+}, "Op")) -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+if # destructuringVars > 0 then -- ./compiler/lua54.can:307
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:308
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:309
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+return r -- ./compiler/lua54.can:312
+else -- ./compiler/lua54.can:312
+local r = "" -- ./compiler/lua54.can:314
+if # vars > 0 then -- ./compiler/lua54.can:315
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:316
 t[3], -- ./compiler/lua54.can:316
 { -- ./compiler/lua54.can:316
 ["tag"] = "Paren", -- ./compiler/lua54.can:316
-values[i] -- ./compiler/lua54.can:316
+values[1] -- ./compiler/lua54.can:316
 }, -- ./compiler/lua54.can:316
-vars[i] -- ./compiler/lua54.can:316
+vars[1] -- ./compiler/lua54.can:316
 }, "Op")) -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-if # destructuringVars > 0 then -- ./compiler/lua54.can:319
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
-end -- ./compiler/lua54.can:322
-return r -- ./compiler/lua54.can:324
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:317
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:318
+t[3], -- ./compiler/lua54.can:318
+{ -- ./compiler/lua54.can:318
+["tag"] = "Paren", -- ./compiler/lua54.can:318
+values[i] -- ./compiler/lua54.can:318
+}, -- ./compiler/lua54.can:318
+vars[i] -- ./compiler/lua54.can:318
+}, "Op")) -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+if # destructuringVars > 0 then -- ./compiler/lua54.can:321
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:322
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:323
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:324
 end -- ./compiler/lua54.can:324
-else -- ./compiler/lua54.can:324
-local r = "" -- ./compiler/lua54.can:327
-if # vars > 0 then -- ./compiler/lua54.can:328
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
-t[2], -- ./compiler/lua54.can:329
-vars[1], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Op", -- ./compiler/lua54.can:329
-t[4], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Paren", -- ./compiler/lua54.can:329
-values[1] -- ./compiler/lua54.can:329
-}, -- ./compiler/lua54.can:329
-vars[1] -- ./compiler/lua54.can:329
-} -- ./compiler/lua54.can:329
-}, "Op")) -- ./compiler/lua54.can:329
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:326
+end -- ./compiler/lua54.can:326
+else -- ./compiler/lua54.can:326
+local r = "" -- ./compiler/lua54.can:329
+if # vars > 0 then -- ./compiler/lua54.can:330
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:331
 t[2], -- ./compiler/lua54.can:331
-vars[i], -- ./compiler/lua54.can:331
+vars[1], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Op", -- ./compiler/lua54.can:331
 t[4], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Paren", -- ./compiler/lua54.can:331
-values[i] -- ./compiler/lua54.can:331
+values[1] -- ./compiler/lua54.can:331
 }, -- ./compiler/lua54.can:331
-vars[i] -- ./compiler/lua54.can:331
+vars[1] -- ./compiler/lua54.can:331
 } -- ./compiler/lua54.can:331
 }, "Op")) -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-if # destructuringVars > 0 then -- ./compiler/lua54.can:334
-local destructured = { -- ./compiler/lua54.can:335
-["rightOp"] = t[2], -- ./compiler/lua54.can:335
-["leftOp"] = t[4] -- ./compiler/lua54.can:335
-} -- ./compiler/lua54.can:335
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
-end -- ./compiler/lua54.can:337
-return r -- ./compiler/lua54.can:339
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:332
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:333
+t[2], -- ./compiler/lua54.can:333
+vars[i], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Op", -- ./compiler/lua54.can:333
+t[4], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Paren", -- ./compiler/lua54.can:333
+values[i] -- ./compiler/lua54.can:333
+}, -- ./compiler/lua54.can:333
+vars[i] -- ./compiler/lua54.can:333
+} -- ./compiler/lua54.can:333
+}, "Op")) -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+if # destructuringVars > 0 then -- ./compiler/lua54.can:336
+local destructured = { -- ./compiler/lua54.can:337
+["rightOp"] = t[2], -- ./compiler/lua54.can:337
+["leftOp"] = t[4] -- ./compiler/lua54.can:337
+} -- ./compiler/lua54.can:337
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:338
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:339
 end -- ./compiler/lua54.can:339
-end, -- ./compiler/lua54.can:339
-["While"] = function(t) -- ./compiler/lua54.can:343
-local r = "" -- ./compiler/lua54.can:344
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
-if # lets > 0 then -- ./compiler/lua54.can:347
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
-if # lets > 0 then -- ./compiler/lua54.can:354
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
-end -- ./compiler/lua54.can:355
-if hasContinue then -- ./compiler/lua54.can:357
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
-end -- ./compiler/lua54.can:358
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
-if hasContinue then -- ./compiler/lua54.can:361
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
-end -- ./compiler/lua54.can:362
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
-if # lets > 0 then -- ./compiler/lua54.can:365
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
-end -- ./compiler/lua54.can:367
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:341
+end -- ./compiler/lua54.can:341
+end, -- ./compiler/lua54.can:341
+["While"] = function(t) -- ./compiler/lua54.can:345
+local r = "" -- ./compiler/lua54.can:346
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:347
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:348
+if # lets > 0 then -- ./compiler/lua54.can:349
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:350
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:351
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:355
+if # lets > 0 then -- ./compiler/lua54.can:356
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:357
+end -- ./compiler/lua54.can:357
+if hasContinue then -- ./compiler/lua54.can:359
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:360
+end -- ./compiler/lua54.can:360
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:362
+if hasContinue then -- ./compiler/lua54.can:363
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:364
+end -- ./compiler/lua54.can:364
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:366
+if # lets > 0 then -- ./compiler/lua54.can:367
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:368
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:369
 end -- ./compiler/lua54.can:369
-return r -- ./compiler/lua54.can:371
-end, -- ./compiler/lua54.can:371
-["Repeat"] = function(t) -- ./compiler/lua54.can:374
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
-local r = "repeat" .. indent() -- ./compiler/lua54.can:376
-if hasContinue then -- ./compiler/lua54.can:377
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
-end -- ./compiler/lua54.can:378
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
-if hasContinue then -- ./compiler/lua54.can:381
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
-end -- ./compiler/lua54.can:382
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
-return r -- ./compiler/lua54.can:385
-end, -- ./compiler/lua54.can:385
-["If"] = function(t) -- ./compiler/lua54.can:388
-local r = "" -- ./compiler/lua54.can:389
-local toClose = 0 -- ./compiler/lua54.can:390
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
-if # lets > 0 then -- ./compiler/lua54.can:392
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
-toClose = toClose + (1) -- ./compiler/lua54.can:394
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
-if # lets > 0 then -- ./compiler/lua54.can:402
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
-toClose = toClose + (1) -- ./compiler/lua54.can:404
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
-end -- ./compiler/lua54.can:406
-else -- ./compiler/lua54.can:406
-r = r .. ("else") -- ./compiler/lua54.can:409
-end -- ./compiler/lua54.can:409
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:371
+end -- ./compiler/lua54.can:371
+return r -- ./compiler/lua54.can:373
+end, -- ./compiler/lua54.can:373
+["Repeat"] = function(t) -- ./compiler/lua54.can:376
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:377
+local r = "repeat" .. indent() -- ./compiler/lua54.can:378
+if hasContinue then -- ./compiler/lua54.can:379
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:380
+end -- ./compiler/lua54.can:380
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:382
+if hasContinue then -- ./compiler/lua54.can:383
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:384
+end -- ./compiler/lua54.can:384
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:386
+return r -- ./compiler/lua54.can:387
+end, -- ./compiler/lua54.can:387
+["If"] = function(t) -- ./compiler/lua54.can:390
+local r = "" -- ./compiler/lua54.can:391
+local toClose = 0 -- ./compiler/lua54.can:392
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:393
+if # lets > 0 then -- ./compiler/lua54.can:394
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:395
+toClose = toClose + (1) -- ./compiler/lua54.can:396
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:397
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:401
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:402
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:403
+if # lets > 0 then -- ./compiler/lua54.can:404
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:405
+toClose = toClose + (1) -- ./compiler/lua54.can:406
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:407
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+else -- ./compiler/lua54.can:408
+r = r .. ("else") -- ./compiler/lua54.can:411
 end -- ./compiler/lua54.can:411
-if # t % 2 == 1 then -- ./compiler/lua54.can:413
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
-end -- ./compiler/lua54.can:414
-r = r .. ("end") -- ./compiler/lua54.can:416
-for i = 1, toClose do -- ./compiler/lua54.can:417
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
-end -- ./compiler/lua54.can:418
-return r -- ./compiler/lua54.can:420
-end, -- ./compiler/lua54.can:420
-["Fornum"] = function(t) -- ./compiler/lua54.can:423
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
-if # t == 5 then -- ./compiler/lua54.can:425
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
-if hasContinue then -- ./compiler/lua54.can:428
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
-end -- ./compiler/lua54.can:429
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
-if hasContinue then -- ./compiler/lua54.can:432
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
-end -- ./compiler/lua54.can:433
-return r .. unindent() .. "end" -- ./compiler/lua54.can:435
-else -- ./compiler/lua54.can:435
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
-if hasContinue then -- ./compiler/lua54.can:439
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
-end -- ./compiler/lua54.can:440
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
-if hasContinue then -- ./compiler/lua54.can:443
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
-end -- ./compiler/lua54.can:444
-return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:413
+end -- ./compiler/lua54.can:413
+if # t % 2 == 1 then -- ./compiler/lua54.can:415
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:416
+end -- ./compiler/lua54.can:416
+r = r .. ("end") -- ./compiler/lua54.can:418
+for i = 1, toClose do -- ./compiler/lua54.can:419
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:420
+end -- ./compiler/lua54.can:420
+return r -- ./compiler/lua54.can:422
+end, -- ./compiler/lua54.can:422
+["Fornum"] = function(t) -- ./compiler/lua54.can:425
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:426
+if # t == 5 then -- ./compiler/lua54.can:427
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:428
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:429
+if hasContinue then -- ./compiler/lua54.can:430
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:431
+end -- ./compiler/lua54.can:431
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:433
+if hasContinue then -- ./compiler/lua54.can:434
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:435
+end -- ./compiler/lua54.can:435
+return r .. unindent() .. "end" -- ./compiler/lua54.can:437
+else -- ./compiler/lua54.can:437
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:439
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:440
+if hasContinue then -- ./compiler/lua54.can:441
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:442
+end -- ./compiler/lua54.can:442
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:444
+if hasContinue then -- ./compiler/lua54.can:445
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:446
 end -- ./compiler/lua54.can:446
-end, -- ./compiler/lua54.can:446
-["Forin"] = function(t) -- ./compiler/lua54.can:450
-local destructured = {} -- ./compiler/lua54.can:451
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
-if hasContinue then -- ./compiler/lua54.can:454
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
-end -- ./compiler/lua54.can:455
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
-if hasContinue then -- ./compiler/lua54.can:458
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
-end -- ./compiler/lua54.can:459
-return r .. unindent() .. "end" -- ./compiler/lua54.can:461
-end, -- ./compiler/lua54.can:461
-["Local"] = function(t) -- ./compiler/lua54.can:464
-local destructured = {} -- ./compiler/lua54.can:465
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
-if t[2][1] then -- ./compiler/lua54.can:467
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
-end -- ./compiler/lua54.can:468
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
-end, -- ./compiler/lua54.can:470
-["Let"] = function(t) -- ./compiler/lua54.can:473
-local destructured = {} -- ./compiler/lua54.can:474
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
-local r = "local " .. nameList -- ./compiler/lua54.can:476
-if t[2][1] then -- ./compiler/lua54.can:477
-if all(t[2], { -- ./compiler/lua54.can:478
-"Nil", -- ./compiler/lua54.can:478
-"Dots", -- ./compiler/lua54.can:478
-"Boolean", -- ./compiler/lua54.can:478
-"Number", -- ./compiler/lua54.can:478
-"String" -- ./compiler/lua54.can:478
-}) then -- ./compiler/lua54.can:478
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
-else -- ./compiler/lua54.can:479
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
-end, -- ./compiler/lua54.can:484
-["Localrec"] = function(t) -- ./compiler/lua54.can:487
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
-end, -- ./compiler/lua54.can:488
-["Goto"] = function(t) -- ./compiler/lua54.can:491
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
-end, -- ./compiler/lua54.can:492
-["Label"] = function(t) -- ./compiler/lua54.can:495
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
-end, -- ./compiler/lua54.can:496
-["Return"] = function(t) -- ./compiler/lua54.can:499
-local push = peek("push") -- ./compiler/lua54.can:500
-if push then -- ./compiler/lua54.can:501
-local r = "" -- ./compiler/lua54.can:502
-for _, val in ipairs(t) do -- ./compiler/lua54.can:503
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
-end -- ./compiler/lua54.can:504
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
-else -- ./compiler/lua54.can:506
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
-end -- ./compiler/lua54.can:508
-end, -- ./compiler/lua54.can:508
-["Push"] = function(t) -- ./compiler/lua54.can:512
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
-r = "" -- ./compiler/lua54.can:514
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-if t[# t] then -- ./compiler/lua54.can:518
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
-else -- ./compiler/lua54.can:520
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-return r -- ./compiler/lua54.can:525
-end, -- ./compiler/lua54.can:525
-["Break"] = function() -- ./compiler/lua54.can:528
-return "break" -- ./compiler/lua54.can:529
-end, -- ./compiler/lua54.can:529
-["Continue"] = function() -- ./compiler/lua54.can:532
-return "goto " .. var("continue") -- ./compiler/lua54.can:533
-end, -- ./compiler/lua54.can:533
-["Nil"] = function() -- ./compiler/lua54.can:540
-return "nil" -- ./compiler/lua54.can:541
-end, -- ./compiler/lua54.can:541
-["Dots"] = function() -- ./compiler/lua54.can:544
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
-if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
-nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
-local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
-nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
-return r -- ./compiler/lua54.can:550
-else -- ./compiler/lua54.can:550
-return "..." -- ./compiler/lua54.can:552
-end -- ./compiler/lua54.can:552
-end, -- ./compiler/lua54.can:552
-["Boolean"] = function(t) -- ./compiler/lua54.can:556
-return tostring(t[1]) -- ./compiler/lua54.can:557
-end, -- ./compiler/lua54.can:557
-["Number"] = function(t) -- ./compiler/lua54.can:560
-return tostring(t[1]) -- ./compiler/lua54.can:561
-end, -- ./compiler/lua54.can:561
-["String"] = function(t) -- ./compiler/lua54.can:564
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
-end, -- ./compiler/lua54.can:565
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
-local r = "(" -- ./compiler/lua54.can:569
-local decl = {} -- ./compiler/lua54.can:570
-if t[1][1] then -- ./compiler/lua54.can:571
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
-r = r .. (id) -- ./compiler/lua54.can:577
-else -- ./compiler/lua54.can:577
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
-end -- ./compiler/lua54.can:579
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
-r = r .. (", " .. id) -- ./compiler/lua54.can:587
-else -- ./compiler/lua54.can:587
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
-r = r .. (d .. newline()) -- ./compiler/lua54.can:595
-end -- ./compiler/lua54.can:595
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
-end -- ./compiler/lua54.can:598
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
-if hasPush then -- ./compiler/lua54.can:601
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
-else -- ./compiler/lua54.can:602
-push("push", false) -- ./compiler/lua54.can:604
-end -- ./compiler/lua54.can:604
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
-end -- ./compiler/lua54.can:608
-pop("push") -- ./compiler/lua54.can:610
-return r .. unindent() .. "end" -- ./compiler/lua54.can:611
-end, -- ./compiler/lua54.can:611
-["Function"] = function(t) -- ./compiler/lua54.can:613
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
-end, -- ./compiler/lua54.can:614
-["Pair"] = function(t) -- ./compiler/lua54.can:617
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
-end, -- ./compiler/lua54.can:618
-["Table"] = function(t) -- ./compiler/lua54.can:620
-if # t == 0 then -- ./compiler/lua54.can:621
-return "{}" -- ./compiler/lua54.can:622
-elseif # t == 1 then -- ./compiler/lua54.can:623
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
-else -- ./compiler/lua54.can:624
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
-end -- ./compiler/lua54.can:626
-end, -- ./compiler/lua54.can:626
-["TableCompr"] = function(t) -- ./compiler/lua54.can:630
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
-end, -- ./compiler/lua54.can:631
-["Op"] = function(t) -- ./compiler/lua54.can:634
-local r -- ./compiler/lua54.can:635
-if # t == 2 then -- ./compiler/lua54.can:636
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
-else -- ./compiler/lua54.can:638
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
-end -- ./compiler/lua54.can:640
+return r .. unindent() .. "end" -- ./compiler/lua54.can:448
+end -- ./compiler/lua54.can:448
+end, -- ./compiler/lua54.can:448
+["Forin"] = function(t) -- ./compiler/lua54.can:452
+local destructured = {} -- ./compiler/lua54.can:453
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:454
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:455
+if hasContinue then -- ./compiler/lua54.can:456
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:457
+end -- ./compiler/lua54.can:457
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:459
+if hasContinue then -- ./compiler/lua54.can:460
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:461
+end -- ./compiler/lua54.can:461
+return r .. unindent() .. "end" -- ./compiler/lua54.can:463
+end, -- ./compiler/lua54.can:463
+["Local"] = function(t) -- ./compiler/lua54.can:466
+local destructured = {} -- ./compiler/lua54.can:467
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:468
+if t[2][1] then -- ./compiler/lua54.can:469
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:470
+end -- ./compiler/lua54.can:470
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:472
+end, -- ./compiler/lua54.can:472
+["Let"] = function(t) -- ./compiler/lua54.can:475
+local destructured = {} -- ./compiler/lua54.can:476
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:477
+local r = "local " .. nameList -- ./compiler/lua54.can:478
+if t[2][1] then -- ./compiler/lua54.can:479
+if all(t[2], { -- ./compiler/lua54.can:480
+"Nil", -- ./compiler/lua54.can:480
+"Dots", -- ./compiler/lua54.can:480
+"Boolean", -- ./compiler/lua54.can:480
+"Number", -- ./compiler/lua54.can:480
+"String" -- ./compiler/lua54.can:480
+}) then -- ./compiler/lua54.can:480
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+else -- ./compiler/lua54.can:481
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Localrec"] = function(t) -- ./compiler/lua54.can:489
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Goto"] = function(t) -- ./compiler/lua54.can:493
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:494
+end, -- ./compiler/lua54.can:494
+["Label"] = function(t) -- ./compiler/lua54.can:497
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:498
+end, -- ./compiler/lua54.can:498
+["Return"] = function(t) -- ./compiler/lua54.can:501
+local push = peek("push") -- ./compiler/lua54.can:502
+if push then -- ./compiler/lua54.can:503
+local r = "" -- ./compiler/lua54.can:504
+for _, val in ipairs(t) do -- ./compiler/lua54.can:505
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:506
+end -- ./compiler/lua54.can:506
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:508
+else -- ./compiler/lua54.can:508
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+end, -- ./compiler/lua54.can:510
+["Push"] = function(t) -- ./compiler/lua54.can:514
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:515
+r = "" -- ./compiler/lua54.can:516
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:517
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:518
+end -- ./compiler/lua54.can:518
+if t[# t] then -- ./compiler/lua54.can:520
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:521
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:522
+else -- ./compiler/lua54.can:522
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+return r -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Break"] = function() -- ./compiler/lua54.can:530
+return "break" -- ./compiler/lua54.can:531
+end, -- ./compiler/lua54.can:531
+["Continue"] = function() -- ./compiler/lua54.can:534
+return "goto " .. var("continue") -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Nil"] = function() -- ./compiler/lua54.can:542
+return "nil" -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Dots"] = function() -- ./compiler/lua54.can:546
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:547
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:549
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:550
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:551
+return r -- ./compiler/lua54.can:552
+else -- ./compiler/lua54.can:552
+return "..." -- ./compiler/lua54.can:554
+end -- ./compiler/lua54.can:554
+end, -- ./compiler/lua54.can:554
+["Boolean"] = function(t) -- ./compiler/lua54.can:558
+return tostring(t[1]) -- ./compiler/lua54.can:559
+end, -- ./compiler/lua54.can:559
+["Number"] = function(t) -- ./compiler/lua54.can:562
+return tostring(t[1]) -- ./compiler/lua54.can:563
+end, -- ./compiler/lua54.can:563
+["String"] = function(t) -- ./compiler/lua54.can:566
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:567
+end, -- ./compiler/lua54.can:567
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:570
+local r = "(" -- ./compiler/lua54.can:571
+local decl = {} -- ./compiler/lua54.can:572
+if t[1][1] then -- ./compiler/lua54.can:573
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:574
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:575
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:576
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:577
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:578
+r = r .. (id) -- ./compiler/lua54.can:579
+else -- ./compiler/lua54.can:579
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:583
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:584
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:585
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:586
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:587
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:588
+r = r .. (", " .. id) -- ./compiler/lua54.can:589
+else -- ./compiler/lua54.can:589
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:595
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:596
+r = r .. (d .. newline()) -- ./compiler/lua54.can:597
+end -- ./compiler/lua54.can:597
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:599
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:600
+end -- ./compiler/lua54.can:600
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:602
+if hasPush then -- ./compiler/lua54.can:603
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:604
+else -- ./compiler/lua54.can:604
+push("push", false) -- ./compiler/lua54.can:606
+end -- ./compiler/lua54.can:606
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:608
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:609
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:610
+end -- ./compiler/lua54.can:610
+pop("push") -- ./compiler/lua54.can:612
+return r .. unindent() .. "end" -- ./compiler/lua54.can:613
+end, -- ./compiler/lua54.can:613
+["Function"] = function(t) -- ./compiler/lua54.can:615
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:616
+end, -- ./compiler/lua54.can:616
+["Pair"] = function(t) -- ./compiler/lua54.can:619
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:620
+end, -- ./compiler/lua54.can:620
+["Table"] = function(t) -- ./compiler/lua54.can:622
+if # t == 0 then -- ./compiler/lua54.can:623
+return "{}" -- ./compiler/lua54.can:624
+elseif # t == 1 then -- ./compiler/lua54.can:625
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:628
+end -- ./compiler/lua54.can:628
+end, -- ./compiler/lua54.can:628
+["TableCompr"] = function(t) -- ./compiler/lua54.can:632
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:633
+end, -- ./compiler/lua54.can:633
+["Op"] = function(t) -- ./compiler/lua54.can:636
+local r -- ./compiler/lua54.can:637
+if # t == 2 then -- ./compiler/lua54.can:638
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:639
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:640
 else -- ./compiler/lua54.can:640
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
-else -- ./compiler/lua54.can:644
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-return r -- ./compiler/lua54.can:649
-end, -- ./compiler/lua54.can:649
-["Paren"] = function(t) -- ./compiler/lua54.can:652
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
-end, -- ./compiler/lua54.can:653
-["MethodStub"] = function(t) -- ./compiler/lua54.can:656
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
-end, -- ./compiler/lua54.can:662
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
-end, -- ./compiler/lua54.can:672
-["LetExpr"] = function(t) -- ./compiler/lua54.can:679
-return lua(t[1][1]) -- ./compiler/lua54.can:680
-end, -- ./compiler/lua54.can:680
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
-local r = "(function()" .. indent() -- ./compiler/lua54.can:686
-if hasPush then -- ./compiler/lua54.can:687
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
-else -- ./compiler/lua54.can:688
-push("push", false) -- ./compiler/lua54.can:690
-end -- ./compiler/lua54.can:690
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
-if hasPush then -- ./compiler/lua54.can:693
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
-end -- ./compiler/lua54.can:694
-pop("push") -- ./compiler/lua54.can:696
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
-return r -- ./compiler/lua54.can:698
-end, -- ./compiler/lua54.can:698
-["DoExpr"] = function(t) -- ./compiler/lua54.can:701
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
-end -- ./compiler/lua54.can:703
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
-end, -- ./compiler/lua54.can:705
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
-end, -- ./compiler/lua54.can:709
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
-end, -- ./compiler/lua54.can:713
-["IfExpr"] = function(t) -- ./compiler/lua54.can:716
-for i = 2, # t do -- ./compiler/lua54.can:717
-local block = t[i] -- ./compiler/lua54.can:718
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
-end, -- ./compiler/lua54.can:723
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
-end, -- ./compiler/lua54.can:727
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
-end, -- ./compiler/lua54.can:731
-["Call"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
-elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
-local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
-local replacement = macro["replacement"] -- ./compiler/lua54.can:742
-local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
-for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
-if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
-macroargs["..."] = (function() -- ./compiler/lua54.can:746
-local self = {} -- ./compiler/lua54.can:746
-for j = i + 1, # t do -- ./compiler/lua54.can:746
-self[#self+1] = t[j] -- ./compiler/lua54.can:746
-end -- ./compiler/lua54.can:746
-return self -- ./compiler/lua54.can:746
-end)() -- ./compiler/lua54.can:746
-elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
-if t[i + 1] == nil then -- ./compiler/lua54.can:748
-error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
-end -- ./compiler/lua54.can:749
-macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
-else -- ./compiler/lua54.can:751
-error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-push("macroargs", macroargs) -- ./compiler/lua54.can:756
-nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
-local r = lua(replacement) -- ./compiler/lua54.can:758
-nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
-pop("macroargs") -- ./compiler/lua54.can:760
-return r -- ./compiler/lua54.can:761
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
-else -- ./compiler/lua54.can:764
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
-end -- ./compiler/lua54.can:766
-else -- ./compiler/lua54.can:766
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:642
+end -- ./compiler/lua54.can:642
+else -- ./compiler/lua54.can:642
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:645
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:646
+else -- ./compiler/lua54.can:646
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+return r -- ./compiler/lua54.can:651
+end, -- ./compiler/lua54.can:651
+["Paren"] = function(t) -- ./compiler/lua54.can:654
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:655
+end, -- ./compiler/lua54.can:655
+["MethodStub"] = function(t) -- ./compiler/lua54.can:658
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:664
+end, -- ./compiler/lua54.can:664
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:667
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:674
+end, -- ./compiler/lua54.can:674
+["LetExpr"] = function(t) -- ./compiler/lua54.can:681
+return lua(t[1][1]) -- ./compiler/lua54.can:682
+end, -- ./compiler/lua54.can:682
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:686
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:687
+local r = "(function()" .. indent() -- ./compiler/lua54.can:688
+if hasPush then -- ./compiler/lua54.can:689
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:690
+else -- ./compiler/lua54.can:690
+push("push", false) -- ./compiler/lua54.can:692
+end -- ./compiler/lua54.can:692
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:694
+if hasPush then -- ./compiler/lua54.can:695
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:696
+end -- ./compiler/lua54.can:696
+pop("push") -- ./compiler/lua54.can:698
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:699
+return r -- ./compiler/lua54.can:700
+end, -- ./compiler/lua54.can:700
+["DoExpr"] = function(t) -- ./compiler/lua54.can:703
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:704
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:705
+end -- ./compiler/lua54.can:705
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:707
+end, -- ./compiler/lua54.can:707
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:710
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:711
+end, -- ./compiler/lua54.can:711
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:714
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:715
+end, -- ./compiler/lua54.can:715
+["IfExpr"] = function(t) -- ./compiler/lua54.can:718
+for i = 2, # t do -- ./compiler/lua54.can:719
+local block = t[i] -- ./compiler/lua54.can:720
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:721
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:725
+end, -- ./compiler/lua54.can:725
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:728
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:729
+end, -- ./compiler/lua54.can:729
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:732
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["Call"] = function(t) -- ./compiler/lua54.can:739
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:740
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:741
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:742
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:743
+local replacement = macro["replacement"] -- ./compiler/lua54.can:744
+local r -- ./compiler/lua54.can:745
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:746
+if type(replacement) == "function" then -- ./compiler/lua54.can:747
+local args = {} -- ./compiler/lua54.can:748
+for i = 2, # t do -- ./compiler/lua54.can:749
+table["insert"](args, lua(t[i])) -- ./compiler/lua54.can:750
+end -- ./compiler/lua54.can:750
+r = replacement(unpack(args)) -- ./compiler/lua54.can:752
+else -- ./compiler/lua54.can:752
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:754
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:755
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:756
+macroargs["..."] = (function() -- ./compiler/lua54.can:757
+local self = {} -- ./compiler/lua54.can:757
+for j = i + 1, # t do -- ./compiler/lua54.can:757
+self[#self+1] = t[j] -- ./compiler/lua54.can:757
+end -- ./compiler/lua54.can:757
+return self -- ./compiler/lua54.can:757
+end)() -- ./compiler/lua54.can:757
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:758
+if t[i + 1] == nil then -- ./compiler/lua54.can:759
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:760
+end -- ./compiler/lua54.can:760
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:762
+else -- ./compiler/lua54.can:762
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+push("macroargs", macroargs) -- ./compiler/lua54.can:767
+r = lua(replacement) -- ./compiler/lua54.can:768
+pop("macroargs") -- ./compiler/lua54.can:769
 end -- ./compiler/lua54.can:769
-end, -- ./compiler/lua54.can:769
-["SafeCall"] = function(t) -- ./compiler/lua54.can:773
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:771
+return r -- ./compiler/lua54.can:772
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:773
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:774
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:775
 else -- ./compiler/lua54.can:775
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:777
 end -- ./compiler/lua54.can:777
-end, -- ./compiler/lua54.can:777
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
-if start == nil then start = 1 end -- ./compiler/lua54.can:782
-local r -- ./compiler/lua54.can:783
-if t[start] then -- ./compiler/lua54.can:784
-r = lua(t[start]) -- ./compiler/lua54.can:785
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
-end -- ./compiler/lua54.can:787
-else -- ./compiler/lua54.can:787
-r = "" -- ./compiler/lua54.can:790
-end -- ./compiler/lua54.can:790
-return r -- ./compiler/lua54.can:792
-end, -- ./compiler/lua54.can:792
-["Id"] = function(t) -- ./compiler/lua54.can:795
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
-if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
-if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
-local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
-return r -- ./compiler/lua54.can:802
-elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
-local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
-return r -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-return t[1] -- ./compiler/lua54.can:810
-end, -- ./compiler/lua54.can:810
-["AttributeId"] = function(t) -- ./compiler/lua54.can:813
-if t[2] then -- ./compiler/lua54.can:814
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
-else -- ./compiler/lua54.can:815
-return t[1] -- ./compiler/lua54.can:817
-end -- ./compiler/lua54.can:817
-end, -- ./compiler/lua54.can:817
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
-if t["id"] then -- ./compiler/lua54.can:822
-return t["id"] -- ./compiler/lua54.can:823
-else -- ./compiler/lua54.can:823
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
-for j = 1, # t, 1 do -- ./compiler/lua54.can:827
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
-end -- ./compiler/lua54.can:828
-table["insert"](d, vars) -- ./compiler/lua54.can:830
-t["id"] = vars["id"] -- ./compiler/lua54.can:831
-return vars["id"] -- ./compiler/lua54.can:832
-end -- ./compiler/lua54.can:832
-end, -- ./compiler/lua54.can:832
-["Index"] = function(t) -- ./compiler/lua54.can:836
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
-else -- ./compiler/lua54.can:838
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
-end -- ./compiler/lua54.can:840
-end, -- ./compiler/lua54.can:840
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
-local l = {} -- ./compiler/lua54.can:846
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
-table["insert"](l, 1, t) -- ./compiler/lua54.can:848
-t = t[1] -- ./compiler/lua54.can:849
-end -- ./compiler/lua54.can:849
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
-for _, e in ipairs(l) do -- ./compiler/lua54.can:852
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
-else -- ./compiler/lua54.can:855
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
-return r -- ./compiler/lua54.can:861
-else -- ./compiler/lua54.can:861
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
-end -- ./compiler/lua54.can:863
-end, -- ./compiler/lua54.can:863
-["_opid"] = { -- ./compiler/lua54.can:868
-["add"] = "+", -- ./compiler/lua54.can:869
-["sub"] = "-", -- ./compiler/lua54.can:869
-["mul"] = "*", -- ./compiler/lua54.can:869
-["div"] = "/", -- ./compiler/lua54.can:869
-["idiv"] = "//", -- ./compiler/lua54.can:870
-["mod"] = "%", -- ./compiler/lua54.can:870
-["pow"] = "^", -- ./compiler/lua54.can:870
-["concat"] = "..", -- ./compiler/lua54.can:870
-["band"] = "&", -- ./compiler/lua54.can:871
-["bor"] = "|", -- ./compiler/lua54.can:871
-["bxor"] = "~", -- ./compiler/lua54.can:871
-["shl"] = "<<", -- ./compiler/lua54.can:871
-["shr"] = ">>", -- ./compiler/lua54.can:871
-["eq"] = "==", -- ./compiler/lua54.can:872
-["ne"] = "~=", -- ./compiler/lua54.can:872
-["lt"] = "<", -- ./compiler/lua54.can:872
-["gt"] = ">", -- ./compiler/lua54.can:872
-["le"] = "<=", -- ./compiler/lua54.can:872
-["ge"] = ">=", -- ./compiler/lua54.can:872
-["and"] = "and", -- ./compiler/lua54.can:873
-["or"] = "or", -- ./compiler/lua54.can:873
-["unm"] = "-", -- ./compiler/lua54.can:873
-["len"] = "#", -- ./compiler/lua54.can:873
-["bnot"] = "~", -- ./compiler/lua54.can:873
-["not"] = "not" -- ./compiler/lua54.can:873
-} -- ./compiler/lua54.can:873
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
-end }) -- ./compiler/lua54.can:877
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
-return requireStr .. code -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-local lua54 = _() or lua54 -- ./compiler/lua54.can:889
-package["loaded"]["compiler.lua54"] = lua54 or true -- ./compiler/lua54.can:890
-local function _() -- ./compiler/lua54.can:893
-local function _() -- ./compiler/lua54.can:895
+else -- ./compiler/lua54.can:777
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:780
+end -- ./compiler/lua54.can:780
+end, -- ./compiler/lua54.can:780
+["SafeCall"] = function(t) -- ./compiler/lua54.can:784
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:785
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:786
+else -- ./compiler/lua54.can:786
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:788
+end -- ./compiler/lua54.can:788
+end, -- ./compiler/lua54.can:788
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:793
+if start == nil then start = 1 end -- ./compiler/lua54.can:793
+local r -- ./compiler/lua54.can:794
+if t[start] then -- ./compiler/lua54.can:795
+r = lua(t[start]) -- ./compiler/lua54.can:796
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:797
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:798
+end -- ./compiler/lua54.can:798
+else -- ./compiler/lua54.can:798
+r = "" -- ./compiler/lua54.can:801
+end -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:803
+end, -- ./compiler/lua54.can:803
+["Id"] = function(t) -- ./compiler/lua54.can:806
+local r = t[1] -- ./compiler/lua54.can:807
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:808
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:809
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:810
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:811
+r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:812
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:813
+local macro = macros["variables"][t[1]] -- ./compiler/lua54.can:814
+if type(macro) == "function" then -- ./compiler/lua54.can:815
+r = macro() -- ./compiler/lua54.can:816
+else -- ./compiler/lua54.can:816
+r = lua(macro) -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:821
+end -- ./compiler/lua54.can:821
+return r -- ./compiler/lua54.can:823
+end, -- ./compiler/lua54.can:823
+["AttributeId"] = function(t) -- ./compiler/lua54.can:826
+if t[2] then -- ./compiler/lua54.can:827
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:828
+else -- ./compiler/lua54.can:828
+return t[1] -- ./compiler/lua54.can:830
+end -- ./compiler/lua54.can:830
+end, -- ./compiler/lua54.can:830
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:834
+if t["id"] then -- ./compiler/lua54.can:835
+return t["id"] -- ./compiler/lua54.can:836
+else -- ./compiler/lua54.can:836
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:838
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:839
+for j = 1, # t, 1 do -- ./compiler/lua54.can:840
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:841
+end -- ./compiler/lua54.can:841
+table["insert"](d, vars) -- ./compiler/lua54.can:843
+t["id"] = vars["id"] -- ./compiler/lua54.can:844
+return vars["id"] -- ./compiler/lua54.can:845
+end -- ./compiler/lua54.can:845
+end, -- ./compiler/lua54.can:845
+["Index"] = function(t) -- ./compiler/lua54.can:849
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:850
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:851
+else -- ./compiler/lua54.can:851
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:853
+end -- ./compiler/lua54.can:853
+end, -- ./compiler/lua54.can:853
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:857
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:858
+local l = {} -- ./compiler/lua54.can:859
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:860
+table["insert"](l, 1, t) -- ./compiler/lua54.can:861
+t = t[1] -- ./compiler/lua54.can:862
+end -- ./compiler/lua54.can:862
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:864
+for _, e in ipairs(l) do -- ./compiler/lua54.can:865
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:866
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:867
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:868
+else -- ./compiler/lua54.can:868
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:873
+return r -- ./compiler/lua54.can:874
+else -- ./compiler/lua54.can:874
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:876
+end -- ./compiler/lua54.can:876
+end, -- ./compiler/lua54.can:876
+["_opid"] = { -- ./compiler/lua54.can:881
+["add"] = "+", -- ./compiler/lua54.can:882
+["sub"] = "-", -- ./compiler/lua54.can:882
+["mul"] = "*", -- ./compiler/lua54.can:882
+["div"] = "/", -- ./compiler/lua54.can:882
+["idiv"] = "//", -- ./compiler/lua54.can:883
+["mod"] = "%", -- ./compiler/lua54.can:883
+["pow"] = "^", -- ./compiler/lua54.can:883
+["concat"] = "..", -- ./compiler/lua54.can:883
+["band"] = "&", -- ./compiler/lua54.can:884
+["bor"] = "|", -- ./compiler/lua54.can:884
+["bxor"] = "~", -- ./compiler/lua54.can:884
+["shl"] = "<<", -- ./compiler/lua54.can:884
+["shr"] = ">>", -- ./compiler/lua54.can:884
+["eq"] = "==", -- ./compiler/lua54.can:885
+["ne"] = "~=", -- ./compiler/lua54.can:885
+["lt"] = "<", -- ./compiler/lua54.can:885
+["gt"] = ">", -- ./compiler/lua54.can:885
+["le"] = "<=", -- ./compiler/lua54.can:885
+["ge"] = ">=", -- ./compiler/lua54.can:885
+["and"] = "and", -- ./compiler/lua54.can:886
+["or"] = "or", -- ./compiler/lua54.can:886
+["unm"] = "-", -- ./compiler/lua54.can:886
+["len"] = "#", -- ./compiler/lua54.can:886
+["bnot"] = "~", -- ./compiler/lua54.can:886
+["not"] = "not" -- ./compiler/lua54.can:886
+} -- ./compiler/lua54.can:886
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
+end }) -- ./compiler/lua54.can:890
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
+return requireStr .. code -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+local lua54 = _() or lua54 -- ./compiler/lua54.can:902
+package["loaded"]["compiler.lua54"] = lua54 or true -- ./compiler/lua54.can:903
+local function _() -- ./compiler/lua54.can:906
+local function _() -- ./compiler/lua54.can:908
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
-return function(code, ast, options, macros) -- ./compiler/lua54.can:5
-if macros == nil then macros = { -- ./compiler/lua54.can:5
-["functions"] = {}, -- ./compiler/lua54.can:5
-["variables"] = {} -- ./compiler/lua54.can:5
-} end -- ./compiler/lua54.can:5
-local lastInputPos = 1 -- ./compiler/lua54.can:7
-local prevLinePos = 1 -- ./compiler/lua54.can:8
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
-local lastLine = 1 -- ./compiler/lua54.can:10
-local indentLevel = 0 -- ./compiler/lua54.can:13
-local function newline() -- ./compiler/lua54.can:15
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
-if options["mapLines"] then -- ./compiler/lua54.can:17
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
+local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
+return function(code, ast, options, macros) -- ./compiler/lua54.can:7
+if macros == nil then macros = { -- ./compiler/lua54.can:7
+["functions"] = {}, -- ./compiler/lua54.can:7
+["variables"] = {} -- ./compiler/lua54.can:7
+} end -- ./compiler/lua54.can:7
+local lastInputPos = 1 -- ./compiler/lua54.can:9
+local prevLinePos = 1 -- ./compiler/lua54.can:10
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:11
+local lastLine = 1 -- ./compiler/lua54.can:12
+local indentLevel = 0 -- ./compiler/lua54.can:15
+local function newline() -- ./compiler/lua54.can:17
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:18
+if options["mapLines"] then -- ./compiler/lua54.can:19
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:20
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:19
-if source and line then -- ./compiler/lua54.can:21
-lastSource = source -- ./compiler/lua54.can:22
-lastLine = tonumber(line) -- ./compiler/lua54.can:23
-else -- ./compiler/lua54.can:23
+") -- ./compiler/lua54.can:21
+if source and line then -- ./compiler/lua54.can:23
+lastSource = source -- ./compiler/lua54.can:24
+lastLine = tonumber(line) -- ./compiler/lua54.can:25
+else -- ./compiler/lua54.can:25
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:25
-lastLine = lastLine + (1) -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-prevLinePos = lastInputPos -- ./compiler/lua54.can:30
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
-end -- ./compiler/lua54.can:32
-return r -- ./compiler/lua54.can:34
+") do -- ./compiler/lua54.can:27
+lastLine = lastLine + (1) -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+prevLinePos = lastInputPos -- ./compiler/lua54.can:32
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:34
 end -- ./compiler/lua54.can:34
-local function indent() -- ./compiler/lua54.can:37
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
-return newline() -- ./compiler/lua54.can:39
-end -- ./compiler/lua54.can:39
-local function unindent() -- ./compiler/lua54.can:42
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
-return newline() -- ./compiler/lua54.can:44
-end -- ./compiler/lua54.can:44
-local states = { -- ./compiler/lua54.can:49
-["push"] = {}, -- ./compiler/lua54.can:50
-["destructuring"] = {}, -- ./compiler/lua54.can:51
-["scope"] = {}, -- ./compiler/lua54.can:52
-["macroargs"] = {} -- ./compiler/lua54.can:53
-} -- ./compiler/lua54.can:53
-local function push(name, state) -- ./compiler/lua54.can:56
-table["insert"](states[name], state) -- ./compiler/lua54.can:57
-return "" -- ./compiler/lua54.can:58
-end -- ./compiler/lua54.can:58
-local function pop(name) -- ./compiler/lua54.can:61
-table["remove"](states[name]) -- ./compiler/lua54.can:62
-return "" -- ./compiler/lua54.can:63
-end -- ./compiler/lua54.can:63
-local function set(name, state) -- ./compiler/lua54.can:66
-states[name][# states[name]] = state -- ./compiler/lua54.can:67
-return "" -- ./compiler/lua54.can:68
-end -- ./compiler/lua54.can:68
-local function peek(name) -- ./compiler/lua54.can:71
-return states[name][# states[name]] -- ./compiler/lua54.can:72
-end -- ./compiler/lua54.can:72
-local function var(name) -- ./compiler/lua54.can:77
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
-end -- ./compiler/lua54.can:78
-local function tmp() -- ./compiler/lua54.can:82
-local scope = peek("scope") -- ./compiler/lua54.can:83
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
-table["insert"](scope, var) -- ./compiler/lua54.can:85
-return var -- ./compiler/lua54.can:86
-end -- ./compiler/lua54.can:86
-local nomacro = { -- ./compiler/lua54.can:90
-["variables"] = {}, -- ./compiler/lua54.can:90
-["functions"] = {} -- ./compiler/lua54.can:90
-} -- ./compiler/lua54.can:90
-local required = {} -- ./compiler/lua54.can:93
-local requireStr = "" -- ./compiler/lua54.can:94
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
-if not required[req] then -- ./compiler/lua54.can:98
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
-required[req] = true -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-local loop = { -- ./compiler/lua54.can:105
-"While", -- ./compiler/lua54.can:105
-"Repeat", -- ./compiler/lua54.can:105
-"Fornum", -- ./compiler/lua54.can:105
-"Forin", -- ./compiler/lua54.can:105
-"WhileExpr", -- ./compiler/lua54.can:105
-"RepeatExpr", -- ./compiler/lua54.can:105
-"FornumExpr", -- ./compiler/lua54.can:105
-"ForinExpr" -- ./compiler/lua54.can:105
-} -- ./compiler/lua54.can:105
-local func = { -- ./compiler/lua54.can:106
-"Function", -- ./compiler/lua54.can:106
-"TableCompr", -- ./compiler/lua54.can:106
-"DoExpr", -- ./compiler/lua54.can:106
-"WhileExpr", -- ./compiler/lua54.can:106
-"RepeatExpr", -- ./compiler/lua54.can:106
-"IfExpr", -- ./compiler/lua54.can:106
-"FornumExpr", -- ./compiler/lua54.can:106
-"ForinExpr" -- ./compiler/lua54.can:106
-} -- ./compiler/lua54.can:106
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
-local tagsCheck = {} -- ./compiler/lua54.can:111
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
-tagsCheck[tag] = true -- ./compiler/lua54.can:113
-end -- ./compiler/lua54.can:113
-local nofollowCheck = {} -- ./compiler/lua54.can:115
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
-nofollowCheck[tag] = true -- ./compiler/lua54.can:117
-end -- ./compiler/lua54.can:117
-for _, node in ipairs(list) do -- ./compiler/lua54.can:119
-if type(node) == "table" then -- ./compiler/lua54.can:120
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
-return node -- ./compiler/lua54.can:122
-end -- ./compiler/lua54.can:122
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
-if r then -- ./compiler/lua54.can:126
-return r -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-return nil -- ./compiler/lua54.can:130
-end -- ./compiler/lua54.can:130
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
-local tagsCheck = {} -- ./compiler/lua54.can:136
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
-tagsCheck[tag] = true -- ./compiler/lua54.can:138
-end -- ./compiler/lua54.can:138
-local nofollowCheck = {} -- ./compiler/lua54.can:140
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
-nofollowCheck[tag] = true -- ./compiler/lua54.can:142
-end -- ./compiler/lua54.can:142
-local found = {} -- ./compiler/lua54.can:144
-for _, node in ipairs(list) do -- ./compiler/lua54.can:145
-if type(node) == "table" then -- ./compiler/lua54.can:146
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
-table["insert"](found, n) -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
-table["insert"](found, node) -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-return found -- ./compiler/lua54.can:157
-end -- ./compiler/lua54.can:157
-local function all(list, tags) -- ./compiler/lua54.can:161
-for _, node in ipairs(list) do -- ./compiler/lua54.can:162
-local ok = false -- ./compiler/lua54.can:163
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
-if node["tag"] == tag then -- ./compiler/lua54.can:165
-ok = true -- ./compiler/lua54.can:166
-break -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-if not ok then -- ./compiler/lua54.can:170
-return false -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-return true -- ./compiler/lua54.can:174
-end -- ./compiler/lua54.can:174
-local tags -- ./compiler/lua54.can:178
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
-end -- ./compiler/lua54.can:182
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+return r -- ./compiler/lua54.can:36
+end -- ./compiler/lua54.can:36
+local function indent() -- ./compiler/lua54.can:39
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:40
+return newline() -- ./compiler/lua54.can:41
+end -- ./compiler/lua54.can:41
+local function unindent() -- ./compiler/lua54.can:44
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:45
+return newline() -- ./compiler/lua54.can:46
+end -- ./compiler/lua54.can:46
+local states = { -- ./compiler/lua54.can:51
+["push"] = {}, -- ./compiler/lua54.can:52
+["destructuring"] = {}, -- ./compiler/lua54.can:53
+["scope"] = {}, -- ./compiler/lua54.can:54
+["macroargs"] = {} -- ./compiler/lua54.can:55
+} -- ./compiler/lua54.can:55
+local function push(name, state) -- ./compiler/lua54.can:58
+table["insert"](states[name], state) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function pop(name) -- ./compiler/lua54.can:63
+table["remove"](states[name]) -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function set(name, state) -- ./compiler/lua54.can:68
+states[name][# states[name]] = state -- ./compiler/lua54.can:69
+return "" -- ./compiler/lua54.can:70
+end -- ./compiler/lua54.can:70
+local function peek(name) -- ./compiler/lua54.can:73
+return states[name][# states[name]] -- ./compiler/lua54.can:74
+end -- ./compiler/lua54.can:74
+local function var(name) -- ./compiler/lua54.can:79
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:80
+end -- ./compiler/lua54.can:80
+local function tmp() -- ./compiler/lua54.can:84
+local scope = peek("scope") -- ./compiler/lua54.can:85
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:86
+table["insert"](scope, var) -- ./compiler/lua54.can:87
+return var -- ./compiler/lua54.can:88
+end -- ./compiler/lua54.can:88
+local nomacro = { -- ./compiler/lua54.can:92
+["variables"] = {}, -- ./compiler/lua54.can:92
+["functions"] = {} -- ./compiler/lua54.can:92
+} -- ./compiler/lua54.can:92
+local required = {} -- ./compiler/lua54.can:95
+local requireStr = "" -- ./compiler/lua54.can:96
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:98
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:99
+if not required[req] then -- ./compiler/lua54.can:100
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:101
+required[req] = true -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+local loop = { -- ./compiler/lua54.can:107
+"While", -- ./compiler/lua54.can:107
+"Repeat", -- ./compiler/lua54.can:107
+"Fornum", -- ./compiler/lua54.can:107
+"Forin", -- ./compiler/lua54.can:107
+"WhileExpr", -- ./compiler/lua54.can:107
+"RepeatExpr", -- ./compiler/lua54.can:107
+"FornumExpr", -- ./compiler/lua54.can:107
+"ForinExpr" -- ./compiler/lua54.can:107
+} -- ./compiler/lua54.can:107
+local func = { -- ./compiler/lua54.can:108
+"Function", -- ./compiler/lua54.can:108
+"TableCompr", -- ./compiler/lua54.can:108
+"DoExpr", -- ./compiler/lua54.can:108
+"WhileExpr", -- ./compiler/lua54.can:108
+"RepeatExpr", -- ./compiler/lua54.can:108
+"IfExpr", -- ./compiler/lua54.can:108
+"FornumExpr", -- ./compiler/lua54.can:108
+"ForinExpr" -- ./compiler/lua54.can:108
+} -- ./compiler/lua54.can:108
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:112
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:112
+local tagsCheck = {} -- ./compiler/lua54.can:113
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:114
+tagsCheck[tag] = true -- ./compiler/lua54.can:115
+end -- ./compiler/lua54.can:115
+local nofollowCheck = {} -- ./compiler/lua54.can:117
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:118
+nofollowCheck[tag] = true -- ./compiler/lua54.can:119
+end -- ./compiler/lua54.can:119
+for _, node in ipairs(list) do -- ./compiler/lua54.can:121
+if type(node) == "table" then -- ./compiler/lua54.can:122
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:123
+return node -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:126
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:127
+if r then -- ./compiler/lua54.can:128
+return r -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+return nil -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:137
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:137
+local tagsCheck = {} -- ./compiler/lua54.can:138
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:139
+tagsCheck[tag] = true -- ./compiler/lua54.can:140
+end -- ./compiler/lua54.can:140
+local nofollowCheck = {} -- ./compiler/lua54.can:142
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:143
+nofollowCheck[tag] = true -- ./compiler/lua54.can:144
+end -- ./compiler/lua54.can:144
+local found = {} -- ./compiler/lua54.can:146
+for _, node in ipairs(list) do -- ./compiler/lua54.can:147
+if type(node) == "table" then -- ./compiler/lua54.can:148
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:149
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:150
+table["insert"](found, n) -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:154
+table["insert"](found, node) -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+return found -- ./compiler/lua54.can:159
+end -- ./compiler/lua54.can:159
+local function all(list, tags) -- ./compiler/lua54.can:163
+for _, node in ipairs(list) do -- ./compiler/lua54.can:164
+local ok = false -- ./compiler/lua54.can:165
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:166
+if node["tag"] == tag then -- ./compiler/lua54.can:167
+ok = true -- ./compiler/lua54.can:168
+break -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+if not ok then -- ./compiler/lua54.can:172
+return false -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+return true -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+local tags -- ./compiler/lua54.can:180
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:182
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:183
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:184
 end -- ./compiler/lua54.can:184
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
-end -- ./compiler/lua54.can:189
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
-end -- ./compiler/lua54.can:192
-local CONTINUE_START = function() -- ./compiler/lua54.can:194
-return "do" .. indent() -- ./compiler/lua54.can:195
-end -- ./compiler/lua54.can:195
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
-end -- ./compiler/lua54.can:198
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
-local vars = {} -- ./compiler/lua54.can:201
-local values = {} -- ./compiler/lua54.can:202
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
-for _, v in ipairs(list) do -- ./compiler/lua54.can:204
-local var, val -- ./compiler/lua54.can:205
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
-var = v -- ./compiler/lua54.can:207
-val = { -- ./compiler/lua54.can:208
-["tag"] = "Index", -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "Id", -- ./compiler/lua54.can:208
-list["id"] -- ./compiler/lua54.can:208
-}, -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "String", -- ./compiler/lua54.can:208
-v[1] -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
-var = v[2] -- ./compiler/lua54.can:210
-val = { -- ./compiler/lua54.can:211
-["tag"] = "Index", -- ./compiler/lua54.can:211
-{ -- ./compiler/lua54.can:211
-["tag"] = "Id", -- ./compiler/lua54.can:211
-list["id"] -- ./compiler/lua54.can:211
-}, -- ./compiler/lua54.can:211
-v[1] -- ./compiler/lua54.can:211
-} -- ./compiler/lua54.can:211
-else -- ./compiler/lua54.can:211
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
-end -- ./compiler/lua54.can:213
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
-val = { -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["rightOp"], -- ./compiler/lua54.can:216
-var, -- ./compiler/lua54.can:216
-{ -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["leftOp"], -- ./compiler/lua54.can:216
-val, -- ./compiler/lua54.can:216
-var -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:190
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:191
+end -- ./compiler/lua54.can:191
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:193
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:194
+end -- ./compiler/lua54.can:194
+local CONTINUE_START = function() -- ./compiler/lua54.can:196
+return "do" .. indent() -- ./compiler/lua54.can:197
+end -- ./compiler/lua54.can:197
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:199
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:200
+end -- ./compiler/lua54.can:200
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:202
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:202
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:202
+local vars = {} -- ./compiler/lua54.can:203
+local values = {} -- ./compiler/lua54.can:204
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:205
+for _, v in ipairs(list) do -- ./compiler/lua54.can:206
+local var, val -- ./compiler/lua54.can:207
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:208
+var = v -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Index", -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Id", -- ./compiler/lua54.can:210
+list["id"] -- ./compiler/lua54.can:210
+}, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "String", -- ./compiler/lua54.can:210
+v[1] -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:211
+var = v[2] -- ./compiler/lua54.can:212
+val = { -- ./compiler/lua54.can:213
+["tag"] = "Index", -- ./compiler/lua54.can:213
+{ -- ./compiler/lua54.can:213
+["tag"] = "Id", -- ./compiler/lua54.can:213
+list["id"] -- ./compiler/lua54.can:213
+}, -- ./compiler/lua54.can:213
+v[1] -- ./compiler/lua54.can:213
+} -- ./compiler/lua54.can:213
+else -- ./compiler/lua54.can:213
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:215
+end -- ./compiler/lua54.can:215
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:217
 val = { -- ./compiler/lua54.can:218
 ["tag"] = "Op", -- ./compiler/lua54.can:218
 destructured["rightOp"], -- ./compiler/lua54.can:218
 var, -- ./compiler/lua54.can:218
-val -- ./compiler/lua54.can:218
+{ -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["leftOp"], -- ./compiler/lua54.can:218
+val, -- ./compiler/lua54.can:218
+var -- ./compiler/lua54.can:218
 } -- ./compiler/lua54.can:218
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+} -- ./compiler/lua54.can:218
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:219
 val = { -- ./compiler/lua54.can:220
 ["tag"] = "Op", -- ./compiler/lua54.can:220
-destructured["leftOp"], -- ./compiler/lua54.can:220
-val, -- ./compiler/lua54.can:220
-var -- ./compiler/lua54.can:220
+destructured["rightOp"], -- ./compiler/lua54.can:220
+var, -- ./compiler/lua54.can:220
+val -- ./compiler/lua54.can:220
 } -- ./compiler/lua54.can:220
-end -- ./compiler/lua54.can:220
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-if # vars > 0 then -- ./compiler/lua54.can:226
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
-if newlineAfter then -- ./compiler/lua54.can:228
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
-else -- ./compiler/lua54.can:229
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
-end -- ./compiler/lua54.can:231
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:221
+val = { -- ./compiler/lua54.can:222
+["tag"] = "Op", -- ./compiler/lua54.can:222
+destructured["leftOp"], -- ./compiler/lua54.can:222
+val, -- ./compiler/lua54.can:222
+var -- ./compiler/lua54.can:222
+} -- ./compiler/lua54.can:222
+end -- ./compiler/lua54.can:222
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:224
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+if # vars > 0 then -- ./compiler/lua54.can:228
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:229
+if newlineAfter then -- ./compiler/lua54.can:230
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:231
 else -- ./compiler/lua54.can:231
-return "" -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-tags = setmetatable({ -- ./compiler/lua54.can:239
-["Block"] = function(t) -- ./compiler/lua54.can:241
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
-hasPush = false -- ./compiler/lua54.can:245
-end -- ./compiler/lua54.can:245
-local r = push("scope", {}) -- ./compiler/lua54.can:247
-if hasPush then -- ./compiler/lua54.can:248
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
-end -- ./compiler/lua54.can:249
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
-end -- ./compiler/lua54.can:252
-if t[# t] then -- ./compiler/lua54.can:254
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
-end -- ./compiler/lua54.can:255
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
-end -- ./compiler/lua54.can:258
-return r .. pop("scope") -- ./compiler/lua54.can:260
-end, -- ./compiler/lua54.can:260
-["Do"] = function(t) -- ./compiler/lua54.can:266
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
-end, -- ./compiler/lua54.can:267
-["Set"] = function(t) -- ./compiler/lua54.can:270
-local expr = t[# t] -- ./compiler/lua54.can:272
-local vars, values = {}, {} -- ./compiler/lua54.can:273
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
-else -- ./compiler/lua54.can:278
-table["insert"](vars, n) -- ./compiler/lua54.can:280
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
-local r = "" -- ./compiler/lua54.can:286
-if # vars > 0 then -- ./compiler/lua54.can:287
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
-end -- ./compiler/lua54.can:288
-if # destructuringVars > 0 then -- ./compiler/lua54.can:290
-local destructured = {} -- ./compiler/lua54.can:291
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
-end -- ./compiler/lua54.can:293
-return r -- ./compiler/lua54.can:295
-elseif # t == 4 then -- ./compiler/lua54.can:296
-if t[3] == "=" then -- ./compiler/lua54.can:297
-local r = "" -- ./compiler/lua54.can:298
-if # vars > 0 then -- ./compiler/lua54.can:299
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
-t[2], -- ./compiler/lua54.can:300
-vars[1], -- ./compiler/lua54.can:300
-{ -- ./compiler/lua54.can:300
-["tag"] = "Paren", -- ./compiler/lua54.can:300
-values[1] -- ./compiler/lua54.can:300
-} -- ./compiler/lua54.can:300
-}, "Op")) -- ./compiler/lua54.can:300
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:233
+end -- ./compiler/lua54.can:233
+else -- ./compiler/lua54.can:233
+return "" -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+tags = setmetatable({ -- ./compiler/lua54.can:241
+["Block"] = function(t) -- ./compiler/lua54.can:243
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:244
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:245
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:246
+hasPush = false -- ./compiler/lua54.can:247
+end -- ./compiler/lua54.can:247
+local r = push("scope", {}) -- ./compiler/lua54.can:249
+if hasPush then -- ./compiler/lua54.can:250
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:251
+end -- ./compiler/lua54.can:251
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:253
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:254
+end -- ./compiler/lua54.can:254
+if t[# t] then -- ./compiler/lua54.can:256
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:257
+end -- ./compiler/lua54.can:257
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:259
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:260
+end -- ./compiler/lua54.can:260
+return r .. pop("scope") -- ./compiler/lua54.can:262
+end, -- ./compiler/lua54.can:262
+["Do"] = function(t) -- ./compiler/lua54.can:268
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:269
+end, -- ./compiler/lua54.can:269
+["Set"] = function(t) -- ./compiler/lua54.can:272
+local expr = t[# t] -- ./compiler/lua54.can:274
+local vars, values = {}, {} -- ./compiler/lua54.can:275
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:276
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:277
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:278
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:279
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:280
+else -- ./compiler/lua54.can:280
+table["insert"](vars, n) -- ./compiler/lua54.can:282
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:287
+local r = "" -- ./compiler/lua54.can:288
+if # vars > 0 then -- ./compiler/lua54.can:289
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:290
+end -- ./compiler/lua54.can:290
+if # destructuringVars > 0 then -- ./compiler/lua54.can:292
+local destructured = {} -- ./compiler/lua54.can:293
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:294
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:295
+end -- ./compiler/lua54.can:295
+return r -- ./compiler/lua54.can:297
+elseif # t == 4 then -- ./compiler/lua54.can:298
+if t[3] == "=" then -- ./compiler/lua54.can:299
+local r = "" -- ./compiler/lua54.can:300
+if # vars > 0 then -- ./compiler/lua54.can:301
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:302
 t[2], -- ./compiler/lua54.can:302
-vars[i], -- ./compiler/lua54.can:302
+vars[1], -- ./compiler/lua54.can:302
 { -- ./compiler/lua54.can:302
 ["tag"] = "Paren", -- ./compiler/lua54.can:302
-values[i] -- ./compiler/lua54.can:302
+values[1] -- ./compiler/lua54.can:302
 } -- ./compiler/lua54.can:302
 }, "Op")) -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-if # destructuringVars > 0 then -- ./compiler/lua54.can:305
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
-end -- ./compiler/lua54.can:308
-return r -- ./compiler/lua54.can:310
-else -- ./compiler/lua54.can:310
-local r = "" -- ./compiler/lua54.can:312
-if # vars > 0 then -- ./compiler/lua54.can:313
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
-t[3], -- ./compiler/lua54.can:314
-{ -- ./compiler/lua54.can:314
-["tag"] = "Paren", -- ./compiler/lua54.can:314
-values[1] -- ./compiler/lua54.can:314
-}, -- ./compiler/lua54.can:314
-vars[1] -- ./compiler/lua54.can:314
-}, "Op")) -- ./compiler/lua54.can:314
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:303
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:304
+t[2], -- ./compiler/lua54.can:304
+vars[i], -- ./compiler/lua54.can:304
+{ -- ./compiler/lua54.can:304
+["tag"] = "Paren", -- ./compiler/lua54.can:304
+values[i] -- ./compiler/lua54.can:304
+} -- ./compiler/lua54.can:304
+}, "Op")) -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+if # destructuringVars > 0 then -- ./compiler/lua54.can:307
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:308
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:309
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+return r -- ./compiler/lua54.can:312
+else -- ./compiler/lua54.can:312
+local r = "" -- ./compiler/lua54.can:314
+if # vars > 0 then -- ./compiler/lua54.can:315
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:316
 t[3], -- ./compiler/lua54.can:316
 { -- ./compiler/lua54.can:316
 ["tag"] = "Paren", -- ./compiler/lua54.can:316
-values[i] -- ./compiler/lua54.can:316
+values[1] -- ./compiler/lua54.can:316
 }, -- ./compiler/lua54.can:316
-vars[i] -- ./compiler/lua54.can:316
+vars[1] -- ./compiler/lua54.can:316
 }, "Op")) -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-if # destructuringVars > 0 then -- ./compiler/lua54.can:319
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
-end -- ./compiler/lua54.can:322
-return r -- ./compiler/lua54.can:324
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:317
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:318
+t[3], -- ./compiler/lua54.can:318
+{ -- ./compiler/lua54.can:318
+["tag"] = "Paren", -- ./compiler/lua54.can:318
+values[i] -- ./compiler/lua54.can:318
+}, -- ./compiler/lua54.can:318
+vars[i] -- ./compiler/lua54.can:318
+}, "Op")) -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+if # destructuringVars > 0 then -- ./compiler/lua54.can:321
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:322
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:323
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:324
 end -- ./compiler/lua54.can:324
-else -- ./compiler/lua54.can:324
-local r = "" -- ./compiler/lua54.can:327
-if # vars > 0 then -- ./compiler/lua54.can:328
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
-t[2], -- ./compiler/lua54.can:329
-vars[1], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Op", -- ./compiler/lua54.can:329
-t[4], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Paren", -- ./compiler/lua54.can:329
-values[1] -- ./compiler/lua54.can:329
-}, -- ./compiler/lua54.can:329
-vars[1] -- ./compiler/lua54.can:329
-} -- ./compiler/lua54.can:329
-}, "Op")) -- ./compiler/lua54.can:329
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:326
+end -- ./compiler/lua54.can:326
+else -- ./compiler/lua54.can:326
+local r = "" -- ./compiler/lua54.can:329
+if # vars > 0 then -- ./compiler/lua54.can:330
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:331
 t[2], -- ./compiler/lua54.can:331
-vars[i], -- ./compiler/lua54.can:331
+vars[1], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Op", -- ./compiler/lua54.can:331
 t[4], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Paren", -- ./compiler/lua54.can:331
-values[i] -- ./compiler/lua54.can:331
+values[1] -- ./compiler/lua54.can:331
 }, -- ./compiler/lua54.can:331
-vars[i] -- ./compiler/lua54.can:331
+vars[1] -- ./compiler/lua54.can:331
 } -- ./compiler/lua54.can:331
 }, "Op")) -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-if # destructuringVars > 0 then -- ./compiler/lua54.can:334
-local destructured = { -- ./compiler/lua54.can:335
-["rightOp"] = t[2], -- ./compiler/lua54.can:335
-["leftOp"] = t[4] -- ./compiler/lua54.can:335
-} -- ./compiler/lua54.can:335
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
-end -- ./compiler/lua54.can:337
-return r -- ./compiler/lua54.can:339
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:332
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:333
+t[2], -- ./compiler/lua54.can:333
+vars[i], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Op", -- ./compiler/lua54.can:333
+t[4], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Paren", -- ./compiler/lua54.can:333
+values[i] -- ./compiler/lua54.can:333
+}, -- ./compiler/lua54.can:333
+vars[i] -- ./compiler/lua54.can:333
+} -- ./compiler/lua54.can:333
+}, "Op")) -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+if # destructuringVars > 0 then -- ./compiler/lua54.can:336
+local destructured = { -- ./compiler/lua54.can:337
+["rightOp"] = t[2], -- ./compiler/lua54.can:337
+["leftOp"] = t[4] -- ./compiler/lua54.can:337
+} -- ./compiler/lua54.can:337
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:338
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:339
 end -- ./compiler/lua54.can:339
-end, -- ./compiler/lua54.can:339
-["While"] = function(t) -- ./compiler/lua54.can:343
-local r = "" -- ./compiler/lua54.can:344
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
-if # lets > 0 then -- ./compiler/lua54.can:347
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
-if # lets > 0 then -- ./compiler/lua54.can:354
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
-end -- ./compiler/lua54.can:355
-if hasContinue then -- ./compiler/lua54.can:357
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
-end -- ./compiler/lua54.can:358
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
-if hasContinue then -- ./compiler/lua54.can:361
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
-end -- ./compiler/lua54.can:362
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
-if # lets > 0 then -- ./compiler/lua54.can:365
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
-end -- ./compiler/lua54.can:367
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:341
+end -- ./compiler/lua54.can:341
+end, -- ./compiler/lua54.can:341
+["While"] = function(t) -- ./compiler/lua54.can:345
+local r = "" -- ./compiler/lua54.can:346
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:347
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:348
+if # lets > 0 then -- ./compiler/lua54.can:349
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:350
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:351
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:355
+if # lets > 0 then -- ./compiler/lua54.can:356
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:357
+end -- ./compiler/lua54.can:357
+if hasContinue then -- ./compiler/lua54.can:359
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:360
+end -- ./compiler/lua54.can:360
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:362
+if hasContinue then -- ./compiler/lua54.can:363
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:364
+end -- ./compiler/lua54.can:364
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:366
+if # lets > 0 then -- ./compiler/lua54.can:367
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:368
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:369
 end -- ./compiler/lua54.can:369
-return r -- ./compiler/lua54.can:371
-end, -- ./compiler/lua54.can:371
-["Repeat"] = function(t) -- ./compiler/lua54.can:374
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
-local r = "repeat" .. indent() -- ./compiler/lua54.can:376
-if hasContinue then -- ./compiler/lua54.can:377
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
-end -- ./compiler/lua54.can:378
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
-if hasContinue then -- ./compiler/lua54.can:381
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
-end -- ./compiler/lua54.can:382
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
-return r -- ./compiler/lua54.can:385
-end, -- ./compiler/lua54.can:385
-["If"] = function(t) -- ./compiler/lua54.can:388
-local r = "" -- ./compiler/lua54.can:389
-local toClose = 0 -- ./compiler/lua54.can:390
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
-if # lets > 0 then -- ./compiler/lua54.can:392
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
-toClose = toClose + (1) -- ./compiler/lua54.can:394
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
-if # lets > 0 then -- ./compiler/lua54.can:402
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
-toClose = toClose + (1) -- ./compiler/lua54.can:404
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
-end -- ./compiler/lua54.can:406
-else -- ./compiler/lua54.can:406
-r = r .. ("else") -- ./compiler/lua54.can:409
-end -- ./compiler/lua54.can:409
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:371
+end -- ./compiler/lua54.can:371
+return r -- ./compiler/lua54.can:373
+end, -- ./compiler/lua54.can:373
+["Repeat"] = function(t) -- ./compiler/lua54.can:376
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:377
+local r = "repeat" .. indent() -- ./compiler/lua54.can:378
+if hasContinue then -- ./compiler/lua54.can:379
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:380
+end -- ./compiler/lua54.can:380
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:382
+if hasContinue then -- ./compiler/lua54.can:383
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:384
+end -- ./compiler/lua54.can:384
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:386
+return r -- ./compiler/lua54.can:387
+end, -- ./compiler/lua54.can:387
+["If"] = function(t) -- ./compiler/lua54.can:390
+local r = "" -- ./compiler/lua54.can:391
+local toClose = 0 -- ./compiler/lua54.can:392
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:393
+if # lets > 0 then -- ./compiler/lua54.can:394
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:395
+toClose = toClose + (1) -- ./compiler/lua54.can:396
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:397
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:401
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:402
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:403
+if # lets > 0 then -- ./compiler/lua54.can:404
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:405
+toClose = toClose + (1) -- ./compiler/lua54.can:406
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:407
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+else -- ./compiler/lua54.can:408
+r = r .. ("else") -- ./compiler/lua54.can:411
 end -- ./compiler/lua54.can:411
-if # t % 2 == 1 then -- ./compiler/lua54.can:413
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
-end -- ./compiler/lua54.can:414
-r = r .. ("end") -- ./compiler/lua54.can:416
-for i = 1, toClose do -- ./compiler/lua54.can:417
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
-end -- ./compiler/lua54.can:418
-return r -- ./compiler/lua54.can:420
-end, -- ./compiler/lua54.can:420
-["Fornum"] = function(t) -- ./compiler/lua54.can:423
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
-if # t == 5 then -- ./compiler/lua54.can:425
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
-if hasContinue then -- ./compiler/lua54.can:428
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
-end -- ./compiler/lua54.can:429
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
-if hasContinue then -- ./compiler/lua54.can:432
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
-end -- ./compiler/lua54.can:433
-return r .. unindent() .. "end" -- ./compiler/lua54.can:435
-else -- ./compiler/lua54.can:435
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
-if hasContinue then -- ./compiler/lua54.can:439
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
-end -- ./compiler/lua54.can:440
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
-if hasContinue then -- ./compiler/lua54.can:443
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
-end -- ./compiler/lua54.can:444
-return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:413
+end -- ./compiler/lua54.can:413
+if # t % 2 == 1 then -- ./compiler/lua54.can:415
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:416
+end -- ./compiler/lua54.can:416
+r = r .. ("end") -- ./compiler/lua54.can:418
+for i = 1, toClose do -- ./compiler/lua54.can:419
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:420
+end -- ./compiler/lua54.can:420
+return r -- ./compiler/lua54.can:422
+end, -- ./compiler/lua54.can:422
+["Fornum"] = function(t) -- ./compiler/lua54.can:425
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:426
+if # t == 5 then -- ./compiler/lua54.can:427
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:428
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:429
+if hasContinue then -- ./compiler/lua54.can:430
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:431
+end -- ./compiler/lua54.can:431
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:433
+if hasContinue then -- ./compiler/lua54.can:434
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:435
+end -- ./compiler/lua54.can:435
+return r .. unindent() .. "end" -- ./compiler/lua54.can:437
+else -- ./compiler/lua54.can:437
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:439
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:440
+if hasContinue then -- ./compiler/lua54.can:441
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:442
+end -- ./compiler/lua54.can:442
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:444
+if hasContinue then -- ./compiler/lua54.can:445
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:446
 end -- ./compiler/lua54.can:446
-end, -- ./compiler/lua54.can:446
-["Forin"] = function(t) -- ./compiler/lua54.can:450
-local destructured = {} -- ./compiler/lua54.can:451
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
-if hasContinue then -- ./compiler/lua54.can:454
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
-end -- ./compiler/lua54.can:455
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
-if hasContinue then -- ./compiler/lua54.can:458
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
-end -- ./compiler/lua54.can:459
-return r .. unindent() .. "end" -- ./compiler/lua54.can:461
-end, -- ./compiler/lua54.can:461
-["Local"] = function(t) -- ./compiler/lua54.can:464
-local destructured = {} -- ./compiler/lua54.can:465
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
-if t[2][1] then -- ./compiler/lua54.can:467
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
-end -- ./compiler/lua54.can:468
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
-end, -- ./compiler/lua54.can:470
-["Let"] = function(t) -- ./compiler/lua54.can:473
-local destructured = {} -- ./compiler/lua54.can:474
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
-local r = "local " .. nameList -- ./compiler/lua54.can:476
-if t[2][1] then -- ./compiler/lua54.can:477
-if all(t[2], { -- ./compiler/lua54.can:478
-"Nil", -- ./compiler/lua54.can:478
-"Dots", -- ./compiler/lua54.can:478
-"Boolean", -- ./compiler/lua54.can:478
-"Number", -- ./compiler/lua54.can:478
-"String" -- ./compiler/lua54.can:478
-}) then -- ./compiler/lua54.can:478
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
-else -- ./compiler/lua54.can:479
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
-end, -- ./compiler/lua54.can:484
-["Localrec"] = function(t) -- ./compiler/lua54.can:487
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
-end, -- ./compiler/lua54.can:488
-["Goto"] = function(t) -- ./compiler/lua54.can:491
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
-end, -- ./compiler/lua54.can:492
-["Label"] = function(t) -- ./compiler/lua54.can:495
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
-end, -- ./compiler/lua54.can:496
-["Return"] = function(t) -- ./compiler/lua54.can:499
-local push = peek("push") -- ./compiler/lua54.can:500
-if push then -- ./compiler/lua54.can:501
-local r = "" -- ./compiler/lua54.can:502
-for _, val in ipairs(t) do -- ./compiler/lua54.can:503
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
-end -- ./compiler/lua54.can:504
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
-else -- ./compiler/lua54.can:506
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
-end -- ./compiler/lua54.can:508
-end, -- ./compiler/lua54.can:508
-["Push"] = function(t) -- ./compiler/lua54.can:512
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
-r = "" -- ./compiler/lua54.can:514
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-if t[# t] then -- ./compiler/lua54.can:518
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
-else -- ./compiler/lua54.can:520
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-return r -- ./compiler/lua54.can:525
-end, -- ./compiler/lua54.can:525
-["Break"] = function() -- ./compiler/lua54.can:528
-return "break" -- ./compiler/lua54.can:529
-end, -- ./compiler/lua54.can:529
-["Continue"] = function() -- ./compiler/lua54.can:532
-return "goto " .. var("continue") -- ./compiler/lua54.can:533
-end, -- ./compiler/lua54.can:533
-["Nil"] = function() -- ./compiler/lua54.can:540
-return "nil" -- ./compiler/lua54.can:541
-end, -- ./compiler/lua54.can:541
-["Dots"] = function() -- ./compiler/lua54.can:544
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
-if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
-nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
-local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
-nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
-return r -- ./compiler/lua54.can:550
-else -- ./compiler/lua54.can:550
-return "..." -- ./compiler/lua54.can:552
-end -- ./compiler/lua54.can:552
-end, -- ./compiler/lua54.can:552
-["Boolean"] = function(t) -- ./compiler/lua54.can:556
-return tostring(t[1]) -- ./compiler/lua54.can:557
-end, -- ./compiler/lua54.can:557
-["Number"] = function(t) -- ./compiler/lua54.can:560
-return tostring(t[1]) -- ./compiler/lua54.can:561
-end, -- ./compiler/lua54.can:561
-["String"] = function(t) -- ./compiler/lua54.can:564
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
-end, -- ./compiler/lua54.can:565
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
-local r = "(" -- ./compiler/lua54.can:569
-local decl = {} -- ./compiler/lua54.can:570
-if t[1][1] then -- ./compiler/lua54.can:571
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
-r = r .. (id) -- ./compiler/lua54.can:577
-else -- ./compiler/lua54.can:577
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
-end -- ./compiler/lua54.can:579
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
-r = r .. (", " .. id) -- ./compiler/lua54.can:587
-else -- ./compiler/lua54.can:587
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
-r = r .. (d .. newline()) -- ./compiler/lua54.can:595
-end -- ./compiler/lua54.can:595
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
-end -- ./compiler/lua54.can:598
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
-if hasPush then -- ./compiler/lua54.can:601
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
-else -- ./compiler/lua54.can:602
-push("push", false) -- ./compiler/lua54.can:604
-end -- ./compiler/lua54.can:604
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
-end -- ./compiler/lua54.can:608
-pop("push") -- ./compiler/lua54.can:610
-return r .. unindent() .. "end" -- ./compiler/lua54.can:611
-end, -- ./compiler/lua54.can:611
-["Function"] = function(t) -- ./compiler/lua54.can:613
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
-end, -- ./compiler/lua54.can:614
-["Pair"] = function(t) -- ./compiler/lua54.can:617
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
-end, -- ./compiler/lua54.can:618
-["Table"] = function(t) -- ./compiler/lua54.can:620
-if # t == 0 then -- ./compiler/lua54.can:621
-return "{}" -- ./compiler/lua54.can:622
-elseif # t == 1 then -- ./compiler/lua54.can:623
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
-else -- ./compiler/lua54.can:624
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
-end -- ./compiler/lua54.can:626
-end, -- ./compiler/lua54.can:626
-["TableCompr"] = function(t) -- ./compiler/lua54.can:630
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
-end, -- ./compiler/lua54.can:631
-["Op"] = function(t) -- ./compiler/lua54.can:634
-local r -- ./compiler/lua54.can:635
-if # t == 2 then -- ./compiler/lua54.can:636
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
-else -- ./compiler/lua54.can:638
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
-end -- ./compiler/lua54.can:640
+return r .. unindent() .. "end" -- ./compiler/lua54.can:448
+end -- ./compiler/lua54.can:448
+end, -- ./compiler/lua54.can:448
+["Forin"] = function(t) -- ./compiler/lua54.can:452
+local destructured = {} -- ./compiler/lua54.can:453
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:454
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:455
+if hasContinue then -- ./compiler/lua54.can:456
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:457
+end -- ./compiler/lua54.can:457
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:459
+if hasContinue then -- ./compiler/lua54.can:460
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:461
+end -- ./compiler/lua54.can:461
+return r .. unindent() .. "end" -- ./compiler/lua54.can:463
+end, -- ./compiler/lua54.can:463
+["Local"] = function(t) -- ./compiler/lua54.can:466
+local destructured = {} -- ./compiler/lua54.can:467
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:468
+if t[2][1] then -- ./compiler/lua54.can:469
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:470
+end -- ./compiler/lua54.can:470
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:472
+end, -- ./compiler/lua54.can:472
+["Let"] = function(t) -- ./compiler/lua54.can:475
+local destructured = {} -- ./compiler/lua54.can:476
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:477
+local r = "local " .. nameList -- ./compiler/lua54.can:478
+if t[2][1] then -- ./compiler/lua54.can:479
+if all(t[2], { -- ./compiler/lua54.can:480
+"Nil", -- ./compiler/lua54.can:480
+"Dots", -- ./compiler/lua54.can:480
+"Boolean", -- ./compiler/lua54.can:480
+"Number", -- ./compiler/lua54.can:480
+"String" -- ./compiler/lua54.can:480
+}) then -- ./compiler/lua54.can:480
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+else -- ./compiler/lua54.can:481
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Localrec"] = function(t) -- ./compiler/lua54.can:489
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Goto"] = function(t) -- ./compiler/lua54.can:493
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:494
+end, -- ./compiler/lua54.can:494
+["Label"] = function(t) -- ./compiler/lua54.can:497
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:498
+end, -- ./compiler/lua54.can:498
+["Return"] = function(t) -- ./compiler/lua54.can:501
+local push = peek("push") -- ./compiler/lua54.can:502
+if push then -- ./compiler/lua54.can:503
+local r = "" -- ./compiler/lua54.can:504
+for _, val in ipairs(t) do -- ./compiler/lua54.can:505
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:506
+end -- ./compiler/lua54.can:506
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:508
+else -- ./compiler/lua54.can:508
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+end, -- ./compiler/lua54.can:510
+["Push"] = function(t) -- ./compiler/lua54.can:514
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:515
+r = "" -- ./compiler/lua54.can:516
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:517
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:518
+end -- ./compiler/lua54.can:518
+if t[# t] then -- ./compiler/lua54.can:520
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:521
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:522
+else -- ./compiler/lua54.can:522
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+return r -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Break"] = function() -- ./compiler/lua54.can:530
+return "break" -- ./compiler/lua54.can:531
+end, -- ./compiler/lua54.can:531
+["Continue"] = function() -- ./compiler/lua54.can:534
+return "goto " .. var("continue") -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Nil"] = function() -- ./compiler/lua54.can:542
+return "nil" -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Dots"] = function() -- ./compiler/lua54.can:546
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:547
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:549
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:550
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:551
+return r -- ./compiler/lua54.can:552
+else -- ./compiler/lua54.can:552
+return "..." -- ./compiler/lua54.can:554
+end -- ./compiler/lua54.can:554
+end, -- ./compiler/lua54.can:554
+["Boolean"] = function(t) -- ./compiler/lua54.can:558
+return tostring(t[1]) -- ./compiler/lua54.can:559
+end, -- ./compiler/lua54.can:559
+["Number"] = function(t) -- ./compiler/lua54.can:562
+return tostring(t[1]) -- ./compiler/lua54.can:563
+end, -- ./compiler/lua54.can:563
+["String"] = function(t) -- ./compiler/lua54.can:566
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:567
+end, -- ./compiler/lua54.can:567
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:570
+local r = "(" -- ./compiler/lua54.can:571
+local decl = {} -- ./compiler/lua54.can:572
+if t[1][1] then -- ./compiler/lua54.can:573
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:574
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:575
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:576
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:577
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:578
+r = r .. (id) -- ./compiler/lua54.can:579
+else -- ./compiler/lua54.can:579
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:583
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:584
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:585
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:586
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:587
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:588
+r = r .. (", " .. id) -- ./compiler/lua54.can:589
+else -- ./compiler/lua54.can:589
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:595
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:596
+r = r .. (d .. newline()) -- ./compiler/lua54.can:597
+end -- ./compiler/lua54.can:597
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:599
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:600
+end -- ./compiler/lua54.can:600
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:602
+if hasPush then -- ./compiler/lua54.can:603
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:604
+else -- ./compiler/lua54.can:604
+push("push", false) -- ./compiler/lua54.can:606
+end -- ./compiler/lua54.can:606
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:608
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:609
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:610
+end -- ./compiler/lua54.can:610
+pop("push") -- ./compiler/lua54.can:612
+return r .. unindent() .. "end" -- ./compiler/lua54.can:613
+end, -- ./compiler/lua54.can:613
+["Function"] = function(t) -- ./compiler/lua54.can:615
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:616
+end, -- ./compiler/lua54.can:616
+["Pair"] = function(t) -- ./compiler/lua54.can:619
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:620
+end, -- ./compiler/lua54.can:620
+["Table"] = function(t) -- ./compiler/lua54.can:622
+if # t == 0 then -- ./compiler/lua54.can:623
+return "{}" -- ./compiler/lua54.can:624
+elseif # t == 1 then -- ./compiler/lua54.can:625
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:628
+end -- ./compiler/lua54.can:628
+end, -- ./compiler/lua54.can:628
+["TableCompr"] = function(t) -- ./compiler/lua54.can:632
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:633
+end, -- ./compiler/lua54.can:633
+["Op"] = function(t) -- ./compiler/lua54.can:636
+local r -- ./compiler/lua54.can:637
+if # t == 2 then -- ./compiler/lua54.can:638
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:639
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:640
 else -- ./compiler/lua54.can:640
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
-else -- ./compiler/lua54.can:644
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-return r -- ./compiler/lua54.can:649
-end, -- ./compiler/lua54.can:649
-["Paren"] = function(t) -- ./compiler/lua54.can:652
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
-end, -- ./compiler/lua54.can:653
-["MethodStub"] = function(t) -- ./compiler/lua54.can:656
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
-end, -- ./compiler/lua54.can:662
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
-end, -- ./compiler/lua54.can:672
-["LetExpr"] = function(t) -- ./compiler/lua54.can:679
-return lua(t[1][1]) -- ./compiler/lua54.can:680
-end, -- ./compiler/lua54.can:680
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
-local r = "(function()" .. indent() -- ./compiler/lua54.can:686
-if hasPush then -- ./compiler/lua54.can:687
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
-else -- ./compiler/lua54.can:688
-push("push", false) -- ./compiler/lua54.can:690
-end -- ./compiler/lua54.can:690
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
-if hasPush then -- ./compiler/lua54.can:693
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
-end -- ./compiler/lua54.can:694
-pop("push") -- ./compiler/lua54.can:696
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
-return r -- ./compiler/lua54.can:698
-end, -- ./compiler/lua54.can:698
-["DoExpr"] = function(t) -- ./compiler/lua54.can:701
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
-end -- ./compiler/lua54.can:703
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
-end, -- ./compiler/lua54.can:705
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
-end, -- ./compiler/lua54.can:709
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
-end, -- ./compiler/lua54.can:713
-["IfExpr"] = function(t) -- ./compiler/lua54.can:716
-for i = 2, # t do -- ./compiler/lua54.can:717
-local block = t[i] -- ./compiler/lua54.can:718
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
-end, -- ./compiler/lua54.can:723
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
-end, -- ./compiler/lua54.can:727
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
-end, -- ./compiler/lua54.can:731
-["Call"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
-elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
-local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
-local replacement = macro["replacement"] -- ./compiler/lua54.can:742
-local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
-for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
-if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
-macroargs["..."] = (function() -- ./compiler/lua54.can:746
-local self = {} -- ./compiler/lua54.can:746
-for j = i + 1, # t do -- ./compiler/lua54.can:746
-self[#self+1] = t[j] -- ./compiler/lua54.can:746
-end -- ./compiler/lua54.can:746
-return self -- ./compiler/lua54.can:746
-end)() -- ./compiler/lua54.can:746
-elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
-if t[i + 1] == nil then -- ./compiler/lua54.can:748
-error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
-end -- ./compiler/lua54.can:749
-macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
-else -- ./compiler/lua54.can:751
-error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-push("macroargs", macroargs) -- ./compiler/lua54.can:756
-nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
-local r = lua(replacement) -- ./compiler/lua54.can:758
-nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
-pop("macroargs") -- ./compiler/lua54.can:760
-return r -- ./compiler/lua54.can:761
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
-else -- ./compiler/lua54.can:764
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
-end -- ./compiler/lua54.can:766
-else -- ./compiler/lua54.can:766
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:642
+end -- ./compiler/lua54.can:642
+else -- ./compiler/lua54.can:642
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:645
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:646
+else -- ./compiler/lua54.can:646
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+return r -- ./compiler/lua54.can:651
+end, -- ./compiler/lua54.can:651
+["Paren"] = function(t) -- ./compiler/lua54.can:654
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:655
+end, -- ./compiler/lua54.can:655
+["MethodStub"] = function(t) -- ./compiler/lua54.can:658
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:664
+end, -- ./compiler/lua54.can:664
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:667
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:674
+end, -- ./compiler/lua54.can:674
+["LetExpr"] = function(t) -- ./compiler/lua54.can:681
+return lua(t[1][1]) -- ./compiler/lua54.can:682
+end, -- ./compiler/lua54.can:682
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:686
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:687
+local r = "(function()" .. indent() -- ./compiler/lua54.can:688
+if hasPush then -- ./compiler/lua54.can:689
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:690
+else -- ./compiler/lua54.can:690
+push("push", false) -- ./compiler/lua54.can:692
+end -- ./compiler/lua54.can:692
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:694
+if hasPush then -- ./compiler/lua54.can:695
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:696
+end -- ./compiler/lua54.can:696
+pop("push") -- ./compiler/lua54.can:698
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:699
+return r -- ./compiler/lua54.can:700
+end, -- ./compiler/lua54.can:700
+["DoExpr"] = function(t) -- ./compiler/lua54.can:703
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:704
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:705
+end -- ./compiler/lua54.can:705
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:707
+end, -- ./compiler/lua54.can:707
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:710
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:711
+end, -- ./compiler/lua54.can:711
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:714
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:715
+end, -- ./compiler/lua54.can:715
+["IfExpr"] = function(t) -- ./compiler/lua54.can:718
+for i = 2, # t do -- ./compiler/lua54.can:719
+local block = t[i] -- ./compiler/lua54.can:720
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:721
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:725
+end, -- ./compiler/lua54.can:725
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:728
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:729
+end, -- ./compiler/lua54.can:729
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:732
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["Call"] = function(t) -- ./compiler/lua54.can:739
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:740
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:741
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:742
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:743
+local replacement = macro["replacement"] -- ./compiler/lua54.can:744
+local r -- ./compiler/lua54.can:745
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:746
+if type(replacement) == "function" then -- ./compiler/lua54.can:747
+local args = {} -- ./compiler/lua54.can:748
+for i = 2, # t do -- ./compiler/lua54.can:749
+table["insert"](args, lua(t[i])) -- ./compiler/lua54.can:750
+end -- ./compiler/lua54.can:750
+r = replacement(unpack(args)) -- ./compiler/lua54.can:752
+else -- ./compiler/lua54.can:752
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:754
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:755
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:756
+macroargs["..."] = (function() -- ./compiler/lua54.can:757
+local self = {} -- ./compiler/lua54.can:757
+for j = i + 1, # t do -- ./compiler/lua54.can:757
+self[#self+1] = t[j] -- ./compiler/lua54.can:757
+end -- ./compiler/lua54.can:757
+return self -- ./compiler/lua54.can:757
+end)() -- ./compiler/lua54.can:757
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:758
+if t[i + 1] == nil then -- ./compiler/lua54.can:759
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:760
+end -- ./compiler/lua54.can:760
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:762
+else -- ./compiler/lua54.can:762
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+push("macroargs", macroargs) -- ./compiler/lua54.can:767
+r = lua(replacement) -- ./compiler/lua54.can:768
+pop("macroargs") -- ./compiler/lua54.can:769
 end -- ./compiler/lua54.can:769
-end, -- ./compiler/lua54.can:769
-["SafeCall"] = function(t) -- ./compiler/lua54.can:773
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:771
+return r -- ./compiler/lua54.can:772
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:773
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:774
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:775
 else -- ./compiler/lua54.can:775
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:777
 end -- ./compiler/lua54.can:777
-end, -- ./compiler/lua54.can:777
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
-if start == nil then start = 1 end -- ./compiler/lua54.can:782
-local r -- ./compiler/lua54.can:783
-if t[start] then -- ./compiler/lua54.can:784
-r = lua(t[start]) -- ./compiler/lua54.can:785
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
-end -- ./compiler/lua54.can:787
-else -- ./compiler/lua54.can:787
-r = "" -- ./compiler/lua54.can:790
-end -- ./compiler/lua54.can:790
-return r -- ./compiler/lua54.can:792
-end, -- ./compiler/lua54.can:792
-["Id"] = function(t) -- ./compiler/lua54.can:795
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
-if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
-if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
-local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
-return r -- ./compiler/lua54.can:802
-elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
-local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
-return r -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-return t[1] -- ./compiler/lua54.can:810
-end, -- ./compiler/lua54.can:810
-["AttributeId"] = function(t) -- ./compiler/lua54.can:813
-if t[2] then -- ./compiler/lua54.can:814
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
-else -- ./compiler/lua54.can:815
-return t[1] -- ./compiler/lua54.can:817
-end -- ./compiler/lua54.can:817
-end, -- ./compiler/lua54.can:817
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
-if t["id"] then -- ./compiler/lua54.can:822
-return t["id"] -- ./compiler/lua54.can:823
-else -- ./compiler/lua54.can:823
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
-for j = 1, # t, 1 do -- ./compiler/lua54.can:827
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
-end -- ./compiler/lua54.can:828
-table["insert"](d, vars) -- ./compiler/lua54.can:830
-t["id"] = vars["id"] -- ./compiler/lua54.can:831
-return vars["id"] -- ./compiler/lua54.can:832
-end -- ./compiler/lua54.can:832
-end, -- ./compiler/lua54.can:832
-["Index"] = function(t) -- ./compiler/lua54.can:836
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
-else -- ./compiler/lua54.can:838
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
-end -- ./compiler/lua54.can:840
-end, -- ./compiler/lua54.can:840
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
-local l = {} -- ./compiler/lua54.can:846
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
-table["insert"](l, 1, t) -- ./compiler/lua54.can:848
-t = t[1] -- ./compiler/lua54.can:849
-end -- ./compiler/lua54.can:849
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
-for _, e in ipairs(l) do -- ./compiler/lua54.can:852
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
-else -- ./compiler/lua54.can:855
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
-return r -- ./compiler/lua54.can:861
-else -- ./compiler/lua54.can:861
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
-end -- ./compiler/lua54.can:863
-end, -- ./compiler/lua54.can:863
-["_opid"] = { -- ./compiler/lua54.can:868
-["add"] = "+", -- ./compiler/lua54.can:869
-["sub"] = "-", -- ./compiler/lua54.can:869
-["mul"] = "*", -- ./compiler/lua54.can:869
-["div"] = "/", -- ./compiler/lua54.can:869
-["idiv"] = "//", -- ./compiler/lua54.can:870
-["mod"] = "%", -- ./compiler/lua54.can:870
-["pow"] = "^", -- ./compiler/lua54.can:870
-["concat"] = "..", -- ./compiler/lua54.can:870
-["band"] = "&", -- ./compiler/lua54.can:871
-["bor"] = "|", -- ./compiler/lua54.can:871
-["bxor"] = "~", -- ./compiler/lua54.can:871
-["shl"] = "<<", -- ./compiler/lua54.can:871
-["shr"] = ">>", -- ./compiler/lua54.can:871
-["eq"] = "==", -- ./compiler/lua54.can:872
-["ne"] = "~=", -- ./compiler/lua54.can:872
-["lt"] = "<", -- ./compiler/lua54.can:872
-["gt"] = ">", -- ./compiler/lua54.can:872
-["le"] = "<=", -- ./compiler/lua54.can:872
-["ge"] = ">=", -- ./compiler/lua54.can:872
-["and"] = "and", -- ./compiler/lua54.can:873
-["or"] = "or", -- ./compiler/lua54.can:873
-["unm"] = "-", -- ./compiler/lua54.can:873
-["len"] = "#", -- ./compiler/lua54.can:873
-["bnot"] = "~", -- ./compiler/lua54.can:873
-["not"] = "not" -- ./compiler/lua54.can:873
-} -- ./compiler/lua54.can:873
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
-end }) -- ./compiler/lua54.can:877
+else -- ./compiler/lua54.can:777
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:780
+end -- ./compiler/lua54.can:780
+end, -- ./compiler/lua54.can:780
+["SafeCall"] = function(t) -- ./compiler/lua54.can:784
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:785
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:786
+else -- ./compiler/lua54.can:786
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:788
+end -- ./compiler/lua54.can:788
+end, -- ./compiler/lua54.can:788
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:793
+if start == nil then start = 1 end -- ./compiler/lua54.can:793
+local r -- ./compiler/lua54.can:794
+if t[start] then -- ./compiler/lua54.can:795
+r = lua(t[start]) -- ./compiler/lua54.can:796
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:797
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:798
+end -- ./compiler/lua54.can:798
+else -- ./compiler/lua54.can:798
+r = "" -- ./compiler/lua54.can:801
+end -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:803
+end, -- ./compiler/lua54.can:803
+["Id"] = function(t) -- ./compiler/lua54.can:806
+local r = t[1] -- ./compiler/lua54.can:807
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:808
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:809
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:810
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:811
+r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:812
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:813
+local macro = macros["variables"][t[1]] -- ./compiler/lua54.can:814
+if type(macro) == "function" then -- ./compiler/lua54.can:815
+r = macro() -- ./compiler/lua54.can:816
+else -- ./compiler/lua54.can:816
+r = lua(macro) -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:821
+end -- ./compiler/lua54.can:821
+return r -- ./compiler/lua54.can:823
+end, -- ./compiler/lua54.can:823
+["AttributeId"] = function(t) -- ./compiler/lua54.can:826
+if t[2] then -- ./compiler/lua54.can:827
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:828
+else -- ./compiler/lua54.can:828
+return t[1] -- ./compiler/lua54.can:830
+end -- ./compiler/lua54.can:830
+end, -- ./compiler/lua54.can:830
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:834
+if t["id"] then -- ./compiler/lua54.can:835
+return t["id"] -- ./compiler/lua54.can:836
+else -- ./compiler/lua54.can:836
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:838
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:839
+for j = 1, # t, 1 do -- ./compiler/lua54.can:840
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:841
+end -- ./compiler/lua54.can:841
+table["insert"](d, vars) -- ./compiler/lua54.can:843
+t["id"] = vars["id"] -- ./compiler/lua54.can:844
+return vars["id"] -- ./compiler/lua54.can:845
+end -- ./compiler/lua54.can:845
+end, -- ./compiler/lua54.can:845
+["Index"] = function(t) -- ./compiler/lua54.can:849
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:850
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:851
+else -- ./compiler/lua54.can:851
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:853
+end -- ./compiler/lua54.can:853
+end, -- ./compiler/lua54.can:853
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:857
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:858
+local l = {} -- ./compiler/lua54.can:859
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:860
+table["insert"](l, 1, t) -- ./compiler/lua54.can:861
+t = t[1] -- ./compiler/lua54.can:862
+end -- ./compiler/lua54.can:862
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:864
+for _, e in ipairs(l) do -- ./compiler/lua54.can:865
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:866
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:867
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:868
+else -- ./compiler/lua54.can:868
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:873
+return r -- ./compiler/lua54.can:874
+else -- ./compiler/lua54.can:874
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:876
+end -- ./compiler/lua54.can:876
+end, -- ./compiler/lua54.can:876
+["_opid"] = { -- ./compiler/lua54.can:881
+["add"] = "+", -- ./compiler/lua54.can:882
+["sub"] = "-", -- ./compiler/lua54.can:882
+["mul"] = "*", -- ./compiler/lua54.can:882
+["div"] = "/", -- ./compiler/lua54.can:882
+["idiv"] = "//", -- ./compiler/lua54.can:883
+["mod"] = "%", -- ./compiler/lua54.can:883
+["pow"] = "^", -- ./compiler/lua54.can:883
+["concat"] = "..", -- ./compiler/lua54.can:883
+["band"] = "&", -- ./compiler/lua54.can:884
+["bor"] = "|", -- ./compiler/lua54.can:884
+["bxor"] = "~", -- ./compiler/lua54.can:884
+["shl"] = "<<", -- ./compiler/lua54.can:884
+["shr"] = ">>", -- ./compiler/lua54.can:884
+["eq"] = "==", -- ./compiler/lua54.can:885
+["ne"] = "~=", -- ./compiler/lua54.can:885
+["lt"] = "<", -- ./compiler/lua54.can:885
+["gt"] = ">", -- ./compiler/lua54.can:885
+["le"] = "<=", -- ./compiler/lua54.can:885
+["ge"] = ">=", -- ./compiler/lua54.can:885
+["and"] = "and", -- ./compiler/lua54.can:886
+["or"] = "or", -- ./compiler/lua54.can:886
+["unm"] = "-", -- ./compiler/lua54.can:886
+["len"] = "#", -- ./compiler/lua54.can:886
+["bnot"] = "~", -- ./compiler/lua54.can:886
+["not"] = "not" -- ./compiler/lua54.can:886
+} -- ./compiler/lua54.can:886
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
+end }) -- ./compiler/lua54.can:890
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -1988,11 +2012,11 @@ else -- ./compiler/lua53.can:6
 return t[1] -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
 end -- ./compiler/lua53.can:8
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
-return requireStr .. code -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-local lua54 = _() or lua54 -- ./compiler/lua54.can:889
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
+return requireStr .. code -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+local lua54 = _() or lua54 -- ./compiler/lua54.can:902
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -2002,919 +2026,931 @@ local function _() -- ./compiler/lua53.can:28
 local function _() -- ./compiler/lua53.can:30
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
-return function(code, ast, options, macros) -- ./compiler/lua54.can:5
-if macros == nil then macros = { -- ./compiler/lua54.can:5
-["functions"] = {}, -- ./compiler/lua54.can:5
-["variables"] = {} -- ./compiler/lua54.can:5
-} end -- ./compiler/lua54.can:5
-local lastInputPos = 1 -- ./compiler/lua54.can:7
-local prevLinePos = 1 -- ./compiler/lua54.can:8
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
-local lastLine = 1 -- ./compiler/lua54.can:10
-local indentLevel = 0 -- ./compiler/lua54.can:13
-local function newline() -- ./compiler/lua54.can:15
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
-if options["mapLines"] then -- ./compiler/lua54.can:17
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
+local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
+return function(code, ast, options, macros) -- ./compiler/lua54.can:7
+if macros == nil then macros = { -- ./compiler/lua54.can:7
+["functions"] = {}, -- ./compiler/lua54.can:7
+["variables"] = {} -- ./compiler/lua54.can:7
+} end -- ./compiler/lua54.can:7
+local lastInputPos = 1 -- ./compiler/lua54.can:9
+local prevLinePos = 1 -- ./compiler/lua54.can:10
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:11
+local lastLine = 1 -- ./compiler/lua54.can:12
+local indentLevel = 0 -- ./compiler/lua54.can:15
+local function newline() -- ./compiler/lua54.can:17
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:18
+if options["mapLines"] then -- ./compiler/lua54.can:19
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:20
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:19
-if source and line then -- ./compiler/lua54.can:21
-lastSource = source -- ./compiler/lua54.can:22
-lastLine = tonumber(line) -- ./compiler/lua54.can:23
-else -- ./compiler/lua54.can:23
+") -- ./compiler/lua54.can:21
+if source and line then -- ./compiler/lua54.can:23
+lastSource = source -- ./compiler/lua54.can:24
+lastLine = tonumber(line) -- ./compiler/lua54.can:25
+else -- ./compiler/lua54.can:25
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:25
-lastLine = lastLine + (1) -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-prevLinePos = lastInputPos -- ./compiler/lua54.can:30
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
-end -- ./compiler/lua54.can:32
-return r -- ./compiler/lua54.can:34
+") do -- ./compiler/lua54.can:27
+lastLine = lastLine + (1) -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+prevLinePos = lastInputPos -- ./compiler/lua54.can:32
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:34
 end -- ./compiler/lua54.can:34
-local function indent() -- ./compiler/lua54.can:37
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
-return newline() -- ./compiler/lua54.can:39
-end -- ./compiler/lua54.can:39
-local function unindent() -- ./compiler/lua54.can:42
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
-return newline() -- ./compiler/lua54.can:44
-end -- ./compiler/lua54.can:44
-local states = { -- ./compiler/lua54.can:49
-["push"] = {}, -- ./compiler/lua54.can:50
-["destructuring"] = {}, -- ./compiler/lua54.can:51
-["scope"] = {}, -- ./compiler/lua54.can:52
-["macroargs"] = {} -- ./compiler/lua54.can:53
-} -- ./compiler/lua54.can:53
-local function push(name, state) -- ./compiler/lua54.can:56
-table["insert"](states[name], state) -- ./compiler/lua54.can:57
-return "" -- ./compiler/lua54.can:58
-end -- ./compiler/lua54.can:58
-local function pop(name) -- ./compiler/lua54.can:61
-table["remove"](states[name]) -- ./compiler/lua54.can:62
-return "" -- ./compiler/lua54.can:63
-end -- ./compiler/lua54.can:63
-local function set(name, state) -- ./compiler/lua54.can:66
-states[name][# states[name]] = state -- ./compiler/lua54.can:67
-return "" -- ./compiler/lua54.can:68
-end -- ./compiler/lua54.can:68
-local function peek(name) -- ./compiler/lua54.can:71
-return states[name][# states[name]] -- ./compiler/lua54.can:72
-end -- ./compiler/lua54.can:72
-local function var(name) -- ./compiler/lua54.can:77
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
-end -- ./compiler/lua54.can:78
-local function tmp() -- ./compiler/lua54.can:82
-local scope = peek("scope") -- ./compiler/lua54.can:83
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
-table["insert"](scope, var) -- ./compiler/lua54.can:85
-return var -- ./compiler/lua54.can:86
-end -- ./compiler/lua54.can:86
-local nomacro = { -- ./compiler/lua54.can:90
-["variables"] = {}, -- ./compiler/lua54.can:90
-["functions"] = {} -- ./compiler/lua54.can:90
-} -- ./compiler/lua54.can:90
-local required = {} -- ./compiler/lua54.can:93
-local requireStr = "" -- ./compiler/lua54.can:94
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
-if not required[req] then -- ./compiler/lua54.can:98
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
-required[req] = true -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-local loop = { -- ./compiler/lua54.can:105
-"While", -- ./compiler/lua54.can:105
-"Repeat", -- ./compiler/lua54.can:105
-"Fornum", -- ./compiler/lua54.can:105
-"Forin", -- ./compiler/lua54.can:105
-"WhileExpr", -- ./compiler/lua54.can:105
-"RepeatExpr", -- ./compiler/lua54.can:105
-"FornumExpr", -- ./compiler/lua54.can:105
-"ForinExpr" -- ./compiler/lua54.can:105
-} -- ./compiler/lua54.can:105
-local func = { -- ./compiler/lua54.can:106
-"Function", -- ./compiler/lua54.can:106
-"TableCompr", -- ./compiler/lua54.can:106
-"DoExpr", -- ./compiler/lua54.can:106
-"WhileExpr", -- ./compiler/lua54.can:106
-"RepeatExpr", -- ./compiler/lua54.can:106
-"IfExpr", -- ./compiler/lua54.can:106
-"FornumExpr", -- ./compiler/lua54.can:106
-"ForinExpr" -- ./compiler/lua54.can:106
-} -- ./compiler/lua54.can:106
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
-local tagsCheck = {} -- ./compiler/lua54.can:111
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
-tagsCheck[tag] = true -- ./compiler/lua54.can:113
-end -- ./compiler/lua54.can:113
-local nofollowCheck = {} -- ./compiler/lua54.can:115
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
-nofollowCheck[tag] = true -- ./compiler/lua54.can:117
-end -- ./compiler/lua54.can:117
-for _, node in ipairs(list) do -- ./compiler/lua54.can:119
-if type(node) == "table" then -- ./compiler/lua54.can:120
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
-return node -- ./compiler/lua54.can:122
-end -- ./compiler/lua54.can:122
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
-if r then -- ./compiler/lua54.can:126
-return r -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-return nil -- ./compiler/lua54.can:130
-end -- ./compiler/lua54.can:130
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
-local tagsCheck = {} -- ./compiler/lua54.can:136
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
-tagsCheck[tag] = true -- ./compiler/lua54.can:138
-end -- ./compiler/lua54.can:138
-local nofollowCheck = {} -- ./compiler/lua54.can:140
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
-nofollowCheck[tag] = true -- ./compiler/lua54.can:142
-end -- ./compiler/lua54.can:142
-local found = {} -- ./compiler/lua54.can:144
-for _, node in ipairs(list) do -- ./compiler/lua54.can:145
-if type(node) == "table" then -- ./compiler/lua54.can:146
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
-table["insert"](found, n) -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
-table["insert"](found, node) -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-return found -- ./compiler/lua54.can:157
-end -- ./compiler/lua54.can:157
-local function all(list, tags) -- ./compiler/lua54.can:161
-for _, node in ipairs(list) do -- ./compiler/lua54.can:162
-local ok = false -- ./compiler/lua54.can:163
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
-if node["tag"] == tag then -- ./compiler/lua54.can:165
-ok = true -- ./compiler/lua54.can:166
-break -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-if not ok then -- ./compiler/lua54.can:170
-return false -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-return true -- ./compiler/lua54.can:174
-end -- ./compiler/lua54.can:174
-local tags -- ./compiler/lua54.can:178
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
-end -- ./compiler/lua54.can:182
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+return r -- ./compiler/lua54.can:36
+end -- ./compiler/lua54.can:36
+local function indent() -- ./compiler/lua54.can:39
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:40
+return newline() -- ./compiler/lua54.can:41
+end -- ./compiler/lua54.can:41
+local function unindent() -- ./compiler/lua54.can:44
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:45
+return newline() -- ./compiler/lua54.can:46
+end -- ./compiler/lua54.can:46
+local states = { -- ./compiler/lua54.can:51
+["push"] = {}, -- ./compiler/lua54.can:52
+["destructuring"] = {}, -- ./compiler/lua54.can:53
+["scope"] = {}, -- ./compiler/lua54.can:54
+["macroargs"] = {} -- ./compiler/lua54.can:55
+} -- ./compiler/lua54.can:55
+local function push(name, state) -- ./compiler/lua54.can:58
+table["insert"](states[name], state) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function pop(name) -- ./compiler/lua54.can:63
+table["remove"](states[name]) -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function set(name, state) -- ./compiler/lua54.can:68
+states[name][# states[name]] = state -- ./compiler/lua54.can:69
+return "" -- ./compiler/lua54.can:70
+end -- ./compiler/lua54.can:70
+local function peek(name) -- ./compiler/lua54.can:73
+return states[name][# states[name]] -- ./compiler/lua54.can:74
+end -- ./compiler/lua54.can:74
+local function var(name) -- ./compiler/lua54.can:79
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:80
+end -- ./compiler/lua54.can:80
+local function tmp() -- ./compiler/lua54.can:84
+local scope = peek("scope") -- ./compiler/lua54.can:85
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:86
+table["insert"](scope, var) -- ./compiler/lua54.can:87
+return var -- ./compiler/lua54.can:88
+end -- ./compiler/lua54.can:88
+local nomacro = { -- ./compiler/lua54.can:92
+["variables"] = {}, -- ./compiler/lua54.can:92
+["functions"] = {} -- ./compiler/lua54.can:92
+} -- ./compiler/lua54.can:92
+local required = {} -- ./compiler/lua54.can:95
+local requireStr = "" -- ./compiler/lua54.can:96
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:98
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:99
+if not required[req] then -- ./compiler/lua54.can:100
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:101
+required[req] = true -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+local loop = { -- ./compiler/lua54.can:107
+"While", -- ./compiler/lua54.can:107
+"Repeat", -- ./compiler/lua54.can:107
+"Fornum", -- ./compiler/lua54.can:107
+"Forin", -- ./compiler/lua54.can:107
+"WhileExpr", -- ./compiler/lua54.can:107
+"RepeatExpr", -- ./compiler/lua54.can:107
+"FornumExpr", -- ./compiler/lua54.can:107
+"ForinExpr" -- ./compiler/lua54.can:107
+} -- ./compiler/lua54.can:107
+local func = { -- ./compiler/lua54.can:108
+"Function", -- ./compiler/lua54.can:108
+"TableCompr", -- ./compiler/lua54.can:108
+"DoExpr", -- ./compiler/lua54.can:108
+"WhileExpr", -- ./compiler/lua54.can:108
+"RepeatExpr", -- ./compiler/lua54.can:108
+"IfExpr", -- ./compiler/lua54.can:108
+"FornumExpr", -- ./compiler/lua54.can:108
+"ForinExpr" -- ./compiler/lua54.can:108
+} -- ./compiler/lua54.can:108
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:112
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:112
+local tagsCheck = {} -- ./compiler/lua54.can:113
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:114
+tagsCheck[tag] = true -- ./compiler/lua54.can:115
+end -- ./compiler/lua54.can:115
+local nofollowCheck = {} -- ./compiler/lua54.can:117
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:118
+nofollowCheck[tag] = true -- ./compiler/lua54.can:119
+end -- ./compiler/lua54.can:119
+for _, node in ipairs(list) do -- ./compiler/lua54.can:121
+if type(node) == "table" then -- ./compiler/lua54.can:122
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:123
+return node -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:126
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:127
+if r then -- ./compiler/lua54.can:128
+return r -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+return nil -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:137
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:137
+local tagsCheck = {} -- ./compiler/lua54.can:138
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:139
+tagsCheck[tag] = true -- ./compiler/lua54.can:140
+end -- ./compiler/lua54.can:140
+local nofollowCheck = {} -- ./compiler/lua54.can:142
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:143
+nofollowCheck[tag] = true -- ./compiler/lua54.can:144
+end -- ./compiler/lua54.can:144
+local found = {} -- ./compiler/lua54.can:146
+for _, node in ipairs(list) do -- ./compiler/lua54.can:147
+if type(node) == "table" then -- ./compiler/lua54.can:148
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:149
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:150
+table["insert"](found, n) -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:154
+table["insert"](found, node) -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+return found -- ./compiler/lua54.can:159
+end -- ./compiler/lua54.can:159
+local function all(list, tags) -- ./compiler/lua54.can:163
+for _, node in ipairs(list) do -- ./compiler/lua54.can:164
+local ok = false -- ./compiler/lua54.can:165
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:166
+if node["tag"] == tag then -- ./compiler/lua54.can:167
+ok = true -- ./compiler/lua54.can:168
+break -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+if not ok then -- ./compiler/lua54.can:172
+return false -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+return true -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+local tags -- ./compiler/lua54.can:180
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:182
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:183
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:184
 end -- ./compiler/lua54.can:184
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
-end -- ./compiler/lua54.can:189
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
-end -- ./compiler/lua54.can:192
-local CONTINUE_START = function() -- ./compiler/lua54.can:194
-return "do" .. indent() -- ./compiler/lua54.can:195
-end -- ./compiler/lua54.can:195
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
-end -- ./compiler/lua54.can:198
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
-local vars = {} -- ./compiler/lua54.can:201
-local values = {} -- ./compiler/lua54.can:202
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
-for _, v in ipairs(list) do -- ./compiler/lua54.can:204
-local var, val -- ./compiler/lua54.can:205
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
-var = v -- ./compiler/lua54.can:207
-val = { -- ./compiler/lua54.can:208
-["tag"] = "Index", -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "Id", -- ./compiler/lua54.can:208
-list["id"] -- ./compiler/lua54.can:208
-}, -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "String", -- ./compiler/lua54.can:208
-v[1] -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
-var = v[2] -- ./compiler/lua54.can:210
-val = { -- ./compiler/lua54.can:211
-["tag"] = "Index", -- ./compiler/lua54.can:211
-{ -- ./compiler/lua54.can:211
-["tag"] = "Id", -- ./compiler/lua54.can:211
-list["id"] -- ./compiler/lua54.can:211
-}, -- ./compiler/lua54.can:211
-v[1] -- ./compiler/lua54.can:211
-} -- ./compiler/lua54.can:211
-else -- ./compiler/lua54.can:211
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
-end -- ./compiler/lua54.can:213
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
-val = { -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["rightOp"], -- ./compiler/lua54.can:216
-var, -- ./compiler/lua54.can:216
-{ -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["leftOp"], -- ./compiler/lua54.can:216
-val, -- ./compiler/lua54.can:216
-var -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:190
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:191
+end -- ./compiler/lua54.can:191
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:193
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:194
+end -- ./compiler/lua54.can:194
+local CONTINUE_START = function() -- ./compiler/lua54.can:196
+return "do" .. indent() -- ./compiler/lua54.can:197
+end -- ./compiler/lua54.can:197
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:199
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:200
+end -- ./compiler/lua54.can:200
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:202
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:202
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:202
+local vars = {} -- ./compiler/lua54.can:203
+local values = {} -- ./compiler/lua54.can:204
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:205
+for _, v in ipairs(list) do -- ./compiler/lua54.can:206
+local var, val -- ./compiler/lua54.can:207
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:208
+var = v -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Index", -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Id", -- ./compiler/lua54.can:210
+list["id"] -- ./compiler/lua54.can:210
+}, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "String", -- ./compiler/lua54.can:210
+v[1] -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:211
+var = v[2] -- ./compiler/lua54.can:212
+val = { -- ./compiler/lua54.can:213
+["tag"] = "Index", -- ./compiler/lua54.can:213
+{ -- ./compiler/lua54.can:213
+["tag"] = "Id", -- ./compiler/lua54.can:213
+list["id"] -- ./compiler/lua54.can:213
+}, -- ./compiler/lua54.can:213
+v[1] -- ./compiler/lua54.can:213
+} -- ./compiler/lua54.can:213
+else -- ./compiler/lua54.can:213
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:215
+end -- ./compiler/lua54.can:215
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:217
 val = { -- ./compiler/lua54.can:218
 ["tag"] = "Op", -- ./compiler/lua54.can:218
 destructured["rightOp"], -- ./compiler/lua54.can:218
 var, -- ./compiler/lua54.can:218
-val -- ./compiler/lua54.can:218
+{ -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["leftOp"], -- ./compiler/lua54.can:218
+val, -- ./compiler/lua54.can:218
+var -- ./compiler/lua54.can:218
 } -- ./compiler/lua54.can:218
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+} -- ./compiler/lua54.can:218
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:219
 val = { -- ./compiler/lua54.can:220
 ["tag"] = "Op", -- ./compiler/lua54.can:220
-destructured["leftOp"], -- ./compiler/lua54.can:220
-val, -- ./compiler/lua54.can:220
-var -- ./compiler/lua54.can:220
+destructured["rightOp"], -- ./compiler/lua54.can:220
+var, -- ./compiler/lua54.can:220
+val -- ./compiler/lua54.can:220
 } -- ./compiler/lua54.can:220
-end -- ./compiler/lua54.can:220
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-if # vars > 0 then -- ./compiler/lua54.can:226
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
-if newlineAfter then -- ./compiler/lua54.can:228
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
-else -- ./compiler/lua54.can:229
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
-end -- ./compiler/lua54.can:231
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:221
+val = { -- ./compiler/lua54.can:222
+["tag"] = "Op", -- ./compiler/lua54.can:222
+destructured["leftOp"], -- ./compiler/lua54.can:222
+val, -- ./compiler/lua54.can:222
+var -- ./compiler/lua54.can:222
+} -- ./compiler/lua54.can:222
+end -- ./compiler/lua54.can:222
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:224
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+if # vars > 0 then -- ./compiler/lua54.can:228
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:229
+if newlineAfter then -- ./compiler/lua54.can:230
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:231
 else -- ./compiler/lua54.can:231
-return "" -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-tags = setmetatable({ -- ./compiler/lua54.can:239
-["Block"] = function(t) -- ./compiler/lua54.can:241
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
-hasPush = false -- ./compiler/lua54.can:245
-end -- ./compiler/lua54.can:245
-local r = push("scope", {}) -- ./compiler/lua54.can:247
-if hasPush then -- ./compiler/lua54.can:248
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
-end -- ./compiler/lua54.can:249
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
-end -- ./compiler/lua54.can:252
-if t[# t] then -- ./compiler/lua54.can:254
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
-end -- ./compiler/lua54.can:255
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
-end -- ./compiler/lua54.can:258
-return r .. pop("scope") -- ./compiler/lua54.can:260
-end, -- ./compiler/lua54.can:260
-["Do"] = function(t) -- ./compiler/lua54.can:266
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
-end, -- ./compiler/lua54.can:267
-["Set"] = function(t) -- ./compiler/lua54.can:270
-local expr = t[# t] -- ./compiler/lua54.can:272
-local vars, values = {}, {} -- ./compiler/lua54.can:273
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
-else -- ./compiler/lua54.can:278
-table["insert"](vars, n) -- ./compiler/lua54.can:280
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
-local r = "" -- ./compiler/lua54.can:286
-if # vars > 0 then -- ./compiler/lua54.can:287
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
-end -- ./compiler/lua54.can:288
-if # destructuringVars > 0 then -- ./compiler/lua54.can:290
-local destructured = {} -- ./compiler/lua54.can:291
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
-end -- ./compiler/lua54.can:293
-return r -- ./compiler/lua54.can:295
-elseif # t == 4 then -- ./compiler/lua54.can:296
-if t[3] == "=" then -- ./compiler/lua54.can:297
-local r = "" -- ./compiler/lua54.can:298
-if # vars > 0 then -- ./compiler/lua54.can:299
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
-t[2], -- ./compiler/lua54.can:300
-vars[1], -- ./compiler/lua54.can:300
-{ -- ./compiler/lua54.can:300
-["tag"] = "Paren", -- ./compiler/lua54.can:300
-values[1] -- ./compiler/lua54.can:300
-} -- ./compiler/lua54.can:300
-}, "Op")) -- ./compiler/lua54.can:300
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:233
+end -- ./compiler/lua54.can:233
+else -- ./compiler/lua54.can:233
+return "" -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+tags = setmetatable({ -- ./compiler/lua54.can:241
+["Block"] = function(t) -- ./compiler/lua54.can:243
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:244
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:245
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:246
+hasPush = false -- ./compiler/lua54.can:247
+end -- ./compiler/lua54.can:247
+local r = push("scope", {}) -- ./compiler/lua54.can:249
+if hasPush then -- ./compiler/lua54.can:250
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:251
+end -- ./compiler/lua54.can:251
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:253
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:254
+end -- ./compiler/lua54.can:254
+if t[# t] then -- ./compiler/lua54.can:256
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:257
+end -- ./compiler/lua54.can:257
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:259
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:260
+end -- ./compiler/lua54.can:260
+return r .. pop("scope") -- ./compiler/lua54.can:262
+end, -- ./compiler/lua54.can:262
+["Do"] = function(t) -- ./compiler/lua54.can:268
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:269
+end, -- ./compiler/lua54.can:269
+["Set"] = function(t) -- ./compiler/lua54.can:272
+local expr = t[# t] -- ./compiler/lua54.can:274
+local vars, values = {}, {} -- ./compiler/lua54.can:275
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:276
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:277
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:278
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:279
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:280
+else -- ./compiler/lua54.can:280
+table["insert"](vars, n) -- ./compiler/lua54.can:282
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:287
+local r = "" -- ./compiler/lua54.can:288
+if # vars > 0 then -- ./compiler/lua54.can:289
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:290
+end -- ./compiler/lua54.can:290
+if # destructuringVars > 0 then -- ./compiler/lua54.can:292
+local destructured = {} -- ./compiler/lua54.can:293
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:294
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:295
+end -- ./compiler/lua54.can:295
+return r -- ./compiler/lua54.can:297
+elseif # t == 4 then -- ./compiler/lua54.can:298
+if t[3] == "=" then -- ./compiler/lua54.can:299
+local r = "" -- ./compiler/lua54.can:300
+if # vars > 0 then -- ./compiler/lua54.can:301
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:302
 t[2], -- ./compiler/lua54.can:302
-vars[i], -- ./compiler/lua54.can:302
+vars[1], -- ./compiler/lua54.can:302
 { -- ./compiler/lua54.can:302
 ["tag"] = "Paren", -- ./compiler/lua54.can:302
-values[i] -- ./compiler/lua54.can:302
+values[1] -- ./compiler/lua54.can:302
 } -- ./compiler/lua54.can:302
 }, "Op")) -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-if # destructuringVars > 0 then -- ./compiler/lua54.can:305
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
-end -- ./compiler/lua54.can:308
-return r -- ./compiler/lua54.can:310
-else -- ./compiler/lua54.can:310
-local r = "" -- ./compiler/lua54.can:312
-if # vars > 0 then -- ./compiler/lua54.can:313
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
-t[3], -- ./compiler/lua54.can:314
-{ -- ./compiler/lua54.can:314
-["tag"] = "Paren", -- ./compiler/lua54.can:314
-values[1] -- ./compiler/lua54.can:314
-}, -- ./compiler/lua54.can:314
-vars[1] -- ./compiler/lua54.can:314
-}, "Op")) -- ./compiler/lua54.can:314
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:303
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:304
+t[2], -- ./compiler/lua54.can:304
+vars[i], -- ./compiler/lua54.can:304
+{ -- ./compiler/lua54.can:304
+["tag"] = "Paren", -- ./compiler/lua54.can:304
+values[i] -- ./compiler/lua54.can:304
+} -- ./compiler/lua54.can:304
+}, "Op")) -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+if # destructuringVars > 0 then -- ./compiler/lua54.can:307
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:308
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:309
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+return r -- ./compiler/lua54.can:312
+else -- ./compiler/lua54.can:312
+local r = "" -- ./compiler/lua54.can:314
+if # vars > 0 then -- ./compiler/lua54.can:315
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:316
 t[3], -- ./compiler/lua54.can:316
 { -- ./compiler/lua54.can:316
 ["tag"] = "Paren", -- ./compiler/lua54.can:316
-values[i] -- ./compiler/lua54.can:316
+values[1] -- ./compiler/lua54.can:316
 }, -- ./compiler/lua54.can:316
-vars[i] -- ./compiler/lua54.can:316
+vars[1] -- ./compiler/lua54.can:316
 }, "Op")) -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-if # destructuringVars > 0 then -- ./compiler/lua54.can:319
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
-end -- ./compiler/lua54.can:322
-return r -- ./compiler/lua54.can:324
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:317
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:318
+t[3], -- ./compiler/lua54.can:318
+{ -- ./compiler/lua54.can:318
+["tag"] = "Paren", -- ./compiler/lua54.can:318
+values[i] -- ./compiler/lua54.can:318
+}, -- ./compiler/lua54.can:318
+vars[i] -- ./compiler/lua54.can:318
+}, "Op")) -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+if # destructuringVars > 0 then -- ./compiler/lua54.can:321
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:322
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:323
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:324
 end -- ./compiler/lua54.can:324
-else -- ./compiler/lua54.can:324
-local r = "" -- ./compiler/lua54.can:327
-if # vars > 0 then -- ./compiler/lua54.can:328
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
-t[2], -- ./compiler/lua54.can:329
-vars[1], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Op", -- ./compiler/lua54.can:329
-t[4], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Paren", -- ./compiler/lua54.can:329
-values[1] -- ./compiler/lua54.can:329
-}, -- ./compiler/lua54.can:329
-vars[1] -- ./compiler/lua54.can:329
-} -- ./compiler/lua54.can:329
-}, "Op")) -- ./compiler/lua54.can:329
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:326
+end -- ./compiler/lua54.can:326
+else -- ./compiler/lua54.can:326
+local r = "" -- ./compiler/lua54.can:329
+if # vars > 0 then -- ./compiler/lua54.can:330
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:331
 t[2], -- ./compiler/lua54.can:331
-vars[i], -- ./compiler/lua54.can:331
+vars[1], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Op", -- ./compiler/lua54.can:331
 t[4], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Paren", -- ./compiler/lua54.can:331
-values[i] -- ./compiler/lua54.can:331
+values[1] -- ./compiler/lua54.can:331
 }, -- ./compiler/lua54.can:331
-vars[i] -- ./compiler/lua54.can:331
+vars[1] -- ./compiler/lua54.can:331
 } -- ./compiler/lua54.can:331
 }, "Op")) -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-if # destructuringVars > 0 then -- ./compiler/lua54.can:334
-local destructured = { -- ./compiler/lua54.can:335
-["rightOp"] = t[2], -- ./compiler/lua54.can:335
-["leftOp"] = t[4] -- ./compiler/lua54.can:335
-} -- ./compiler/lua54.can:335
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
-end -- ./compiler/lua54.can:337
-return r -- ./compiler/lua54.can:339
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:332
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:333
+t[2], -- ./compiler/lua54.can:333
+vars[i], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Op", -- ./compiler/lua54.can:333
+t[4], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Paren", -- ./compiler/lua54.can:333
+values[i] -- ./compiler/lua54.can:333
+}, -- ./compiler/lua54.can:333
+vars[i] -- ./compiler/lua54.can:333
+} -- ./compiler/lua54.can:333
+}, "Op")) -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+if # destructuringVars > 0 then -- ./compiler/lua54.can:336
+local destructured = { -- ./compiler/lua54.can:337
+["rightOp"] = t[2], -- ./compiler/lua54.can:337
+["leftOp"] = t[4] -- ./compiler/lua54.can:337
+} -- ./compiler/lua54.can:337
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:338
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:339
 end -- ./compiler/lua54.can:339
-end, -- ./compiler/lua54.can:339
-["While"] = function(t) -- ./compiler/lua54.can:343
-local r = "" -- ./compiler/lua54.can:344
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
-if # lets > 0 then -- ./compiler/lua54.can:347
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
-if # lets > 0 then -- ./compiler/lua54.can:354
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
-end -- ./compiler/lua54.can:355
-if hasContinue then -- ./compiler/lua54.can:357
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
-end -- ./compiler/lua54.can:358
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
-if hasContinue then -- ./compiler/lua54.can:361
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
-end -- ./compiler/lua54.can:362
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
-if # lets > 0 then -- ./compiler/lua54.can:365
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
-end -- ./compiler/lua54.can:367
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:341
+end -- ./compiler/lua54.can:341
+end, -- ./compiler/lua54.can:341
+["While"] = function(t) -- ./compiler/lua54.can:345
+local r = "" -- ./compiler/lua54.can:346
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:347
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:348
+if # lets > 0 then -- ./compiler/lua54.can:349
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:350
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:351
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:355
+if # lets > 0 then -- ./compiler/lua54.can:356
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:357
+end -- ./compiler/lua54.can:357
+if hasContinue then -- ./compiler/lua54.can:359
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:360
+end -- ./compiler/lua54.can:360
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:362
+if hasContinue then -- ./compiler/lua54.can:363
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:364
+end -- ./compiler/lua54.can:364
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:366
+if # lets > 0 then -- ./compiler/lua54.can:367
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:368
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:369
 end -- ./compiler/lua54.can:369
-return r -- ./compiler/lua54.can:371
-end, -- ./compiler/lua54.can:371
-["Repeat"] = function(t) -- ./compiler/lua54.can:374
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
-local r = "repeat" .. indent() -- ./compiler/lua54.can:376
-if hasContinue then -- ./compiler/lua54.can:377
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
-end -- ./compiler/lua54.can:378
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
-if hasContinue then -- ./compiler/lua54.can:381
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
-end -- ./compiler/lua54.can:382
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
-return r -- ./compiler/lua54.can:385
-end, -- ./compiler/lua54.can:385
-["If"] = function(t) -- ./compiler/lua54.can:388
-local r = "" -- ./compiler/lua54.can:389
-local toClose = 0 -- ./compiler/lua54.can:390
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
-if # lets > 0 then -- ./compiler/lua54.can:392
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
-toClose = toClose + (1) -- ./compiler/lua54.can:394
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
-if # lets > 0 then -- ./compiler/lua54.can:402
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
-toClose = toClose + (1) -- ./compiler/lua54.can:404
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
-end -- ./compiler/lua54.can:406
-else -- ./compiler/lua54.can:406
-r = r .. ("else") -- ./compiler/lua54.can:409
-end -- ./compiler/lua54.can:409
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:371
+end -- ./compiler/lua54.can:371
+return r -- ./compiler/lua54.can:373
+end, -- ./compiler/lua54.can:373
+["Repeat"] = function(t) -- ./compiler/lua54.can:376
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:377
+local r = "repeat" .. indent() -- ./compiler/lua54.can:378
+if hasContinue then -- ./compiler/lua54.can:379
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:380
+end -- ./compiler/lua54.can:380
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:382
+if hasContinue then -- ./compiler/lua54.can:383
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:384
+end -- ./compiler/lua54.can:384
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:386
+return r -- ./compiler/lua54.can:387
+end, -- ./compiler/lua54.can:387
+["If"] = function(t) -- ./compiler/lua54.can:390
+local r = "" -- ./compiler/lua54.can:391
+local toClose = 0 -- ./compiler/lua54.can:392
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:393
+if # lets > 0 then -- ./compiler/lua54.can:394
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:395
+toClose = toClose + (1) -- ./compiler/lua54.can:396
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:397
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:401
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:402
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:403
+if # lets > 0 then -- ./compiler/lua54.can:404
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:405
+toClose = toClose + (1) -- ./compiler/lua54.can:406
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:407
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+else -- ./compiler/lua54.can:408
+r = r .. ("else") -- ./compiler/lua54.can:411
 end -- ./compiler/lua54.can:411
-if # t % 2 == 1 then -- ./compiler/lua54.can:413
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
-end -- ./compiler/lua54.can:414
-r = r .. ("end") -- ./compiler/lua54.can:416
-for i = 1, toClose do -- ./compiler/lua54.can:417
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
-end -- ./compiler/lua54.can:418
-return r -- ./compiler/lua54.can:420
-end, -- ./compiler/lua54.can:420
-["Fornum"] = function(t) -- ./compiler/lua54.can:423
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
-if # t == 5 then -- ./compiler/lua54.can:425
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
-if hasContinue then -- ./compiler/lua54.can:428
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
-end -- ./compiler/lua54.can:429
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
-if hasContinue then -- ./compiler/lua54.can:432
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
-end -- ./compiler/lua54.can:433
-return r .. unindent() .. "end" -- ./compiler/lua54.can:435
-else -- ./compiler/lua54.can:435
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
-if hasContinue then -- ./compiler/lua54.can:439
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
-end -- ./compiler/lua54.can:440
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
-if hasContinue then -- ./compiler/lua54.can:443
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
-end -- ./compiler/lua54.can:444
-return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:413
+end -- ./compiler/lua54.can:413
+if # t % 2 == 1 then -- ./compiler/lua54.can:415
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:416
+end -- ./compiler/lua54.can:416
+r = r .. ("end") -- ./compiler/lua54.can:418
+for i = 1, toClose do -- ./compiler/lua54.can:419
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:420
+end -- ./compiler/lua54.can:420
+return r -- ./compiler/lua54.can:422
+end, -- ./compiler/lua54.can:422
+["Fornum"] = function(t) -- ./compiler/lua54.can:425
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:426
+if # t == 5 then -- ./compiler/lua54.can:427
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:428
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:429
+if hasContinue then -- ./compiler/lua54.can:430
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:431
+end -- ./compiler/lua54.can:431
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:433
+if hasContinue then -- ./compiler/lua54.can:434
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:435
+end -- ./compiler/lua54.can:435
+return r .. unindent() .. "end" -- ./compiler/lua54.can:437
+else -- ./compiler/lua54.can:437
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:439
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:440
+if hasContinue then -- ./compiler/lua54.can:441
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:442
+end -- ./compiler/lua54.can:442
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:444
+if hasContinue then -- ./compiler/lua54.can:445
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:446
 end -- ./compiler/lua54.can:446
-end, -- ./compiler/lua54.can:446
-["Forin"] = function(t) -- ./compiler/lua54.can:450
-local destructured = {} -- ./compiler/lua54.can:451
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
-if hasContinue then -- ./compiler/lua54.can:454
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
-end -- ./compiler/lua54.can:455
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
-if hasContinue then -- ./compiler/lua54.can:458
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
-end -- ./compiler/lua54.can:459
-return r .. unindent() .. "end" -- ./compiler/lua54.can:461
-end, -- ./compiler/lua54.can:461
-["Local"] = function(t) -- ./compiler/lua54.can:464
-local destructured = {} -- ./compiler/lua54.can:465
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
-if t[2][1] then -- ./compiler/lua54.can:467
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
-end -- ./compiler/lua54.can:468
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
-end, -- ./compiler/lua54.can:470
-["Let"] = function(t) -- ./compiler/lua54.can:473
-local destructured = {} -- ./compiler/lua54.can:474
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
-local r = "local " .. nameList -- ./compiler/lua54.can:476
-if t[2][1] then -- ./compiler/lua54.can:477
-if all(t[2], { -- ./compiler/lua54.can:478
-"Nil", -- ./compiler/lua54.can:478
-"Dots", -- ./compiler/lua54.can:478
-"Boolean", -- ./compiler/lua54.can:478
-"Number", -- ./compiler/lua54.can:478
-"String" -- ./compiler/lua54.can:478
-}) then -- ./compiler/lua54.can:478
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
-else -- ./compiler/lua54.can:479
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
-end, -- ./compiler/lua54.can:484
-["Localrec"] = function(t) -- ./compiler/lua54.can:487
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
-end, -- ./compiler/lua54.can:488
-["Goto"] = function(t) -- ./compiler/lua54.can:491
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
-end, -- ./compiler/lua54.can:492
-["Label"] = function(t) -- ./compiler/lua54.can:495
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
-end, -- ./compiler/lua54.can:496
-["Return"] = function(t) -- ./compiler/lua54.can:499
-local push = peek("push") -- ./compiler/lua54.can:500
-if push then -- ./compiler/lua54.can:501
-local r = "" -- ./compiler/lua54.can:502
-for _, val in ipairs(t) do -- ./compiler/lua54.can:503
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
-end -- ./compiler/lua54.can:504
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
-else -- ./compiler/lua54.can:506
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
-end -- ./compiler/lua54.can:508
-end, -- ./compiler/lua54.can:508
-["Push"] = function(t) -- ./compiler/lua54.can:512
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
-r = "" -- ./compiler/lua54.can:514
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-if t[# t] then -- ./compiler/lua54.can:518
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
-else -- ./compiler/lua54.can:520
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-return r -- ./compiler/lua54.can:525
-end, -- ./compiler/lua54.can:525
-["Break"] = function() -- ./compiler/lua54.can:528
-return "break" -- ./compiler/lua54.can:529
-end, -- ./compiler/lua54.can:529
-["Continue"] = function() -- ./compiler/lua54.can:532
-return "goto " .. var("continue") -- ./compiler/lua54.can:533
-end, -- ./compiler/lua54.can:533
-["Nil"] = function() -- ./compiler/lua54.can:540
-return "nil" -- ./compiler/lua54.can:541
-end, -- ./compiler/lua54.can:541
-["Dots"] = function() -- ./compiler/lua54.can:544
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
-if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
-nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
-local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
-nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
-return r -- ./compiler/lua54.can:550
-else -- ./compiler/lua54.can:550
-return "..." -- ./compiler/lua54.can:552
-end -- ./compiler/lua54.can:552
-end, -- ./compiler/lua54.can:552
-["Boolean"] = function(t) -- ./compiler/lua54.can:556
-return tostring(t[1]) -- ./compiler/lua54.can:557
-end, -- ./compiler/lua54.can:557
-["Number"] = function(t) -- ./compiler/lua54.can:560
-return tostring(t[1]) -- ./compiler/lua54.can:561
-end, -- ./compiler/lua54.can:561
-["String"] = function(t) -- ./compiler/lua54.can:564
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
-end, -- ./compiler/lua54.can:565
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
-local r = "(" -- ./compiler/lua54.can:569
-local decl = {} -- ./compiler/lua54.can:570
-if t[1][1] then -- ./compiler/lua54.can:571
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
-r = r .. (id) -- ./compiler/lua54.can:577
-else -- ./compiler/lua54.can:577
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
-end -- ./compiler/lua54.can:579
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
-r = r .. (", " .. id) -- ./compiler/lua54.can:587
-else -- ./compiler/lua54.can:587
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
-r = r .. (d .. newline()) -- ./compiler/lua54.can:595
-end -- ./compiler/lua54.can:595
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
-end -- ./compiler/lua54.can:598
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
-if hasPush then -- ./compiler/lua54.can:601
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
-else -- ./compiler/lua54.can:602
-push("push", false) -- ./compiler/lua54.can:604
-end -- ./compiler/lua54.can:604
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
-end -- ./compiler/lua54.can:608
-pop("push") -- ./compiler/lua54.can:610
-return r .. unindent() .. "end" -- ./compiler/lua54.can:611
-end, -- ./compiler/lua54.can:611
-["Function"] = function(t) -- ./compiler/lua54.can:613
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
-end, -- ./compiler/lua54.can:614
-["Pair"] = function(t) -- ./compiler/lua54.can:617
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
-end, -- ./compiler/lua54.can:618
-["Table"] = function(t) -- ./compiler/lua54.can:620
-if # t == 0 then -- ./compiler/lua54.can:621
-return "{}" -- ./compiler/lua54.can:622
-elseif # t == 1 then -- ./compiler/lua54.can:623
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
-else -- ./compiler/lua54.can:624
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
-end -- ./compiler/lua54.can:626
-end, -- ./compiler/lua54.can:626
-["TableCompr"] = function(t) -- ./compiler/lua54.can:630
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
-end, -- ./compiler/lua54.can:631
-["Op"] = function(t) -- ./compiler/lua54.can:634
-local r -- ./compiler/lua54.can:635
-if # t == 2 then -- ./compiler/lua54.can:636
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
-else -- ./compiler/lua54.can:638
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
-end -- ./compiler/lua54.can:640
+return r .. unindent() .. "end" -- ./compiler/lua54.can:448
+end -- ./compiler/lua54.can:448
+end, -- ./compiler/lua54.can:448
+["Forin"] = function(t) -- ./compiler/lua54.can:452
+local destructured = {} -- ./compiler/lua54.can:453
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:454
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:455
+if hasContinue then -- ./compiler/lua54.can:456
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:457
+end -- ./compiler/lua54.can:457
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:459
+if hasContinue then -- ./compiler/lua54.can:460
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:461
+end -- ./compiler/lua54.can:461
+return r .. unindent() .. "end" -- ./compiler/lua54.can:463
+end, -- ./compiler/lua54.can:463
+["Local"] = function(t) -- ./compiler/lua54.can:466
+local destructured = {} -- ./compiler/lua54.can:467
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:468
+if t[2][1] then -- ./compiler/lua54.can:469
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:470
+end -- ./compiler/lua54.can:470
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:472
+end, -- ./compiler/lua54.can:472
+["Let"] = function(t) -- ./compiler/lua54.can:475
+local destructured = {} -- ./compiler/lua54.can:476
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:477
+local r = "local " .. nameList -- ./compiler/lua54.can:478
+if t[2][1] then -- ./compiler/lua54.can:479
+if all(t[2], { -- ./compiler/lua54.can:480
+"Nil", -- ./compiler/lua54.can:480
+"Dots", -- ./compiler/lua54.can:480
+"Boolean", -- ./compiler/lua54.can:480
+"Number", -- ./compiler/lua54.can:480
+"String" -- ./compiler/lua54.can:480
+}) then -- ./compiler/lua54.can:480
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+else -- ./compiler/lua54.can:481
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Localrec"] = function(t) -- ./compiler/lua54.can:489
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Goto"] = function(t) -- ./compiler/lua54.can:493
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:494
+end, -- ./compiler/lua54.can:494
+["Label"] = function(t) -- ./compiler/lua54.can:497
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:498
+end, -- ./compiler/lua54.can:498
+["Return"] = function(t) -- ./compiler/lua54.can:501
+local push = peek("push") -- ./compiler/lua54.can:502
+if push then -- ./compiler/lua54.can:503
+local r = "" -- ./compiler/lua54.can:504
+for _, val in ipairs(t) do -- ./compiler/lua54.can:505
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:506
+end -- ./compiler/lua54.can:506
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:508
+else -- ./compiler/lua54.can:508
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+end, -- ./compiler/lua54.can:510
+["Push"] = function(t) -- ./compiler/lua54.can:514
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:515
+r = "" -- ./compiler/lua54.can:516
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:517
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:518
+end -- ./compiler/lua54.can:518
+if t[# t] then -- ./compiler/lua54.can:520
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:521
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:522
+else -- ./compiler/lua54.can:522
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+return r -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Break"] = function() -- ./compiler/lua54.can:530
+return "break" -- ./compiler/lua54.can:531
+end, -- ./compiler/lua54.can:531
+["Continue"] = function() -- ./compiler/lua54.can:534
+return "goto " .. var("continue") -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Nil"] = function() -- ./compiler/lua54.can:542
+return "nil" -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Dots"] = function() -- ./compiler/lua54.can:546
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:547
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:549
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:550
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:551
+return r -- ./compiler/lua54.can:552
+else -- ./compiler/lua54.can:552
+return "..." -- ./compiler/lua54.can:554
+end -- ./compiler/lua54.can:554
+end, -- ./compiler/lua54.can:554
+["Boolean"] = function(t) -- ./compiler/lua54.can:558
+return tostring(t[1]) -- ./compiler/lua54.can:559
+end, -- ./compiler/lua54.can:559
+["Number"] = function(t) -- ./compiler/lua54.can:562
+return tostring(t[1]) -- ./compiler/lua54.can:563
+end, -- ./compiler/lua54.can:563
+["String"] = function(t) -- ./compiler/lua54.can:566
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:567
+end, -- ./compiler/lua54.can:567
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:570
+local r = "(" -- ./compiler/lua54.can:571
+local decl = {} -- ./compiler/lua54.can:572
+if t[1][1] then -- ./compiler/lua54.can:573
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:574
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:575
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:576
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:577
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:578
+r = r .. (id) -- ./compiler/lua54.can:579
+else -- ./compiler/lua54.can:579
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:583
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:584
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:585
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:586
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:587
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:588
+r = r .. (", " .. id) -- ./compiler/lua54.can:589
+else -- ./compiler/lua54.can:589
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:595
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:596
+r = r .. (d .. newline()) -- ./compiler/lua54.can:597
+end -- ./compiler/lua54.can:597
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:599
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:600
+end -- ./compiler/lua54.can:600
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:602
+if hasPush then -- ./compiler/lua54.can:603
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:604
+else -- ./compiler/lua54.can:604
+push("push", false) -- ./compiler/lua54.can:606
+end -- ./compiler/lua54.can:606
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:608
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:609
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:610
+end -- ./compiler/lua54.can:610
+pop("push") -- ./compiler/lua54.can:612
+return r .. unindent() .. "end" -- ./compiler/lua54.can:613
+end, -- ./compiler/lua54.can:613
+["Function"] = function(t) -- ./compiler/lua54.can:615
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:616
+end, -- ./compiler/lua54.can:616
+["Pair"] = function(t) -- ./compiler/lua54.can:619
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:620
+end, -- ./compiler/lua54.can:620
+["Table"] = function(t) -- ./compiler/lua54.can:622
+if # t == 0 then -- ./compiler/lua54.can:623
+return "{}" -- ./compiler/lua54.can:624
+elseif # t == 1 then -- ./compiler/lua54.can:625
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:628
+end -- ./compiler/lua54.can:628
+end, -- ./compiler/lua54.can:628
+["TableCompr"] = function(t) -- ./compiler/lua54.can:632
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:633
+end, -- ./compiler/lua54.can:633
+["Op"] = function(t) -- ./compiler/lua54.can:636
+local r -- ./compiler/lua54.can:637
+if # t == 2 then -- ./compiler/lua54.can:638
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:639
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:640
 else -- ./compiler/lua54.can:640
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
-else -- ./compiler/lua54.can:644
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-return r -- ./compiler/lua54.can:649
-end, -- ./compiler/lua54.can:649
-["Paren"] = function(t) -- ./compiler/lua54.can:652
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
-end, -- ./compiler/lua54.can:653
-["MethodStub"] = function(t) -- ./compiler/lua54.can:656
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
-end, -- ./compiler/lua54.can:662
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
-end, -- ./compiler/lua54.can:672
-["LetExpr"] = function(t) -- ./compiler/lua54.can:679
-return lua(t[1][1]) -- ./compiler/lua54.can:680
-end, -- ./compiler/lua54.can:680
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
-local r = "(function()" .. indent() -- ./compiler/lua54.can:686
-if hasPush then -- ./compiler/lua54.can:687
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
-else -- ./compiler/lua54.can:688
-push("push", false) -- ./compiler/lua54.can:690
-end -- ./compiler/lua54.can:690
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
-if hasPush then -- ./compiler/lua54.can:693
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
-end -- ./compiler/lua54.can:694
-pop("push") -- ./compiler/lua54.can:696
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
-return r -- ./compiler/lua54.can:698
-end, -- ./compiler/lua54.can:698
-["DoExpr"] = function(t) -- ./compiler/lua54.can:701
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
-end -- ./compiler/lua54.can:703
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
-end, -- ./compiler/lua54.can:705
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
-end, -- ./compiler/lua54.can:709
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
-end, -- ./compiler/lua54.can:713
-["IfExpr"] = function(t) -- ./compiler/lua54.can:716
-for i = 2, # t do -- ./compiler/lua54.can:717
-local block = t[i] -- ./compiler/lua54.can:718
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
-end, -- ./compiler/lua54.can:723
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
-end, -- ./compiler/lua54.can:727
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
-end, -- ./compiler/lua54.can:731
-["Call"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
-elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
-local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
-local replacement = macro["replacement"] -- ./compiler/lua54.can:742
-local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
-for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
-if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
-macroargs["..."] = (function() -- ./compiler/lua54.can:746
-local self = {} -- ./compiler/lua54.can:746
-for j = i + 1, # t do -- ./compiler/lua54.can:746
-self[#self+1] = t[j] -- ./compiler/lua54.can:746
-end -- ./compiler/lua54.can:746
-return self -- ./compiler/lua54.can:746
-end)() -- ./compiler/lua54.can:746
-elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
-if t[i + 1] == nil then -- ./compiler/lua54.can:748
-error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
-end -- ./compiler/lua54.can:749
-macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
-else -- ./compiler/lua54.can:751
-error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-push("macroargs", macroargs) -- ./compiler/lua54.can:756
-nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
-local r = lua(replacement) -- ./compiler/lua54.can:758
-nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
-pop("macroargs") -- ./compiler/lua54.can:760
-return r -- ./compiler/lua54.can:761
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
-else -- ./compiler/lua54.can:764
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
-end -- ./compiler/lua54.can:766
-else -- ./compiler/lua54.can:766
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:642
+end -- ./compiler/lua54.can:642
+else -- ./compiler/lua54.can:642
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:645
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:646
+else -- ./compiler/lua54.can:646
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+return r -- ./compiler/lua54.can:651
+end, -- ./compiler/lua54.can:651
+["Paren"] = function(t) -- ./compiler/lua54.can:654
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:655
+end, -- ./compiler/lua54.can:655
+["MethodStub"] = function(t) -- ./compiler/lua54.can:658
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:664
+end, -- ./compiler/lua54.can:664
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:667
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:674
+end, -- ./compiler/lua54.can:674
+["LetExpr"] = function(t) -- ./compiler/lua54.can:681
+return lua(t[1][1]) -- ./compiler/lua54.can:682
+end, -- ./compiler/lua54.can:682
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:686
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:687
+local r = "(function()" .. indent() -- ./compiler/lua54.can:688
+if hasPush then -- ./compiler/lua54.can:689
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:690
+else -- ./compiler/lua54.can:690
+push("push", false) -- ./compiler/lua54.can:692
+end -- ./compiler/lua54.can:692
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:694
+if hasPush then -- ./compiler/lua54.can:695
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:696
+end -- ./compiler/lua54.can:696
+pop("push") -- ./compiler/lua54.can:698
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:699
+return r -- ./compiler/lua54.can:700
+end, -- ./compiler/lua54.can:700
+["DoExpr"] = function(t) -- ./compiler/lua54.can:703
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:704
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:705
+end -- ./compiler/lua54.can:705
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:707
+end, -- ./compiler/lua54.can:707
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:710
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:711
+end, -- ./compiler/lua54.can:711
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:714
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:715
+end, -- ./compiler/lua54.can:715
+["IfExpr"] = function(t) -- ./compiler/lua54.can:718
+for i = 2, # t do -- ./compiler/lua54.can:719
+local block = t[i] -- ./compiler/lua54.can:720
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:721
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:725
+end, -- ./compiler/lua54.can:725
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:728
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:729
+end, -- ./compiler/lua54.can:729
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:732
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["Call"] = function(t) -- ./compiler/lua54.can:739
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:740
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:741
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:742
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:743
+local replacement = macro["replacement"] -- ./compiler/lua54.can:744
+local r -- ./compiler/lua54.can:745
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:746
+if type(replacement) == "function" then -- ./compiler/lua54.can:747
+local args = {} -- ./compiler/lua54.can:748
+for i = 2, # t do -- ./compiler/lua54.can:749
+table["insert"](args, lua(t[i])) -- ./compiler/lua54.can:750
+end -- ./compiler/lua54.can:750
+r = replacement(unpack(args)) -- ./compiler/lua54.can:752
+else -- ./compiler/lua54.can:752
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:754
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:755
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:756
+macroargs["..."] = (function() -- ./compiler/lua54.can:757
+local self = {} -- ./compiler/lua54.can:757
+for j = i + 1, # t do -- ./compiler/lua54.can:757
+self[#self+1] = t[j] -- ./compiler/lua54.can:757
+end -- ./compiler/lua54.can:757
+return self -- ./compiler/lua54.can:757
+end)() -- ./compiler/lua54.can:757
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:758
+if t[i + 1] == nil then -- ./compiler/lua54.can:759
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:760
+end -- ./compiler/lua54.can:760
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:762
+else -- ./compiler/lua54.can:762
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+push("macroargs", macroargs) -- ./compiler/lua54.can:767
+r = lua(replacement) -- ./compiler/lua54.can:768
+pop("macroargs") -- ./compiler/lua54.can:769
 end -- ./compiler/lua54.can:769
-end, -- ./compiler/lua54.can:769
-["SafeCall"] = function(t) -- ./compiler/lua54.can:773
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:771
+return r -- ./compiler/lua54.can:772
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:773
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:774
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:775
 else -- ./compiler/lua54.can:775
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:777
 end -- ./compiler/lua54.can:777
-end, -- ./compiler/lua54.can:777
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
-if start == nil then start = 1 end -- ./compiler/lua54.can:782
-local r -- ./compiler/lua54.can:783
-if t[start] then -- ./compiler/lua54.can:784
-r = lua(t[start]) -- ./compiler/lua54.can:785
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
-end -- ./compiler/lua54.can:787
-else -- ./compiler/lua54.can:787
-r = "" -- ./compiler/lua54.can:790
-end -- ./compiler/lua54.can:790
-return r -- ./compiler/lua54.can:792
-end, -- ./compiler/lua54.can:792
-["Id"] = function(t) -- ./compiler/lua54.can:795
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
-if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
-if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
-local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
-return r -- ./compiler/lua54.can:802
-elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
-local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
-return r -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-return t[1] -- ./compiler/lua54.can:810
-end, -- ./compiler/lua54.can:810
-["AttributeId"] = function(t) -- ./compiler/lua54.can:813
-if t[2] then -- ./compiler/lua54.can:814
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
-else -- ./compiler/lua54.can:815
-return t[1] -- ./compiler/lua54.can:817
-end -- ./compiler/lua54.can:817
-end, -- ./compiler/lua54.can:817
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
-if t["id"] then -- ./compiler/lua54.can:822
-return t["id"] -- ./compiler/lua54.can:823
-else -- ./compiler/lua54.can:823
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
-for j = 1, # t, 1 do -- ./compiler/lua54.can:827
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
-end -- ./compiler/lua54.can:828
-table["insert"](d, vars) -- ./compiler/lua54.can:830
-t["id"] = vars["id"] -- ./compiler/lua54.can:831
-return vars["id"] -- ./compiler/lua54.can:832
-end -- ./compiler/lua54.can:832
-end, -- ./compiler/lua54.can:832
-["Index"] = function(t) -- ./compiler/lua54.can:836
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
-else -- ./compiler/lua54.can:838
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
-end -- ./compiler/lua54.can:840
-end, -- ./compiler/lua54.can:840
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
-local l = {} -- ./compiler/lua54.can:846
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
-table["insert"](l, 1, t) -- ./compiler/lua54.can:848
-t = t[1] -- ./compiler/lua54.can:849
-end -- ./compiler/lua54.can:849
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
-for _, e in ipairs(l) do -- ./compiler/lua54.can:852
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
-else -- ./compiler/lua54.can:855
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
-return r -- ./compiler/lua54.can:861
-else -- ./compiler/lua54.can:861
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
-end -- ./compiler/lua54.can:863
-end, -- ./compiler/lua54.can:863
-["_opid"] = { -- ./compiler/lua54.can:868
-["add"] = "+", -- ./compiler/lua54.can:869
-["sub"] = "-", -- ./compiler/lua54.can:869
-["mul"] = "*", -- ./compiler/lua54.can:869
-["div"] = "/", -- ./compiler/lua54.can:869
-["idiv"] = "//", -- ./compiler/lua54.can:870
-["mod"] = "%", -- ./compiler/lua54.can:870
-["pow"] = "^", -- ./compiler/lua54.can:870
-["concat"] = "..", -- ./compiler/lua54.can:870
-["band"] = "&", -- ./compiler/lua54.can:871
-["bor"] = "|", -- ./compiler/lua54.can:871
-["bxor"] = "~", -- ./compiler/lua54.can:871
-["shl"] = "<<", -- ./compiler/lua54.can:871
-["shr"] = ">>", -- ./compiler/lua54.can:871
-["eq"] = "==", -- ./compiler/lua54.can:872
-["ne"] = "~=", -- ./compiler/lua54.can:872
-["lt"] = "<", -- ./compiler/lua54.can:872
-["gt"] = ">", -- ./compiler/lua54.can:872
-["le"] = "<=", -- ./compiler/lua54.can:872
-["ge"] = ">=", -- ./compiler/lua54.can:872
-["and"] = "and", -- ./compiler/lua54.can:873
-["or"] = "or", -- ./compiler/lua54.can:873
-["unm"] = "-", -- ./compiler/lua54.can:873
-["len"] = "#", -- ./compiler/lua54.can:873
-["bnot"] = "~", -- ./compiler/lua54.can:873
-["not"] = "not" -- ./compiler/lua54.can:873
-} -- ./compiler/lua54.can:873
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
-end }) -- ./compiler/lua54.can:877
+else -- ./compiler/lua54.can:777
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:780
+end -- ./compiler/lua54.can:780
+end, -- ./compiler/lua54.can:780
+["SafeCall"] = function(t) -- ./compiler/lua54.can:784
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:785
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:786
+else -- ./compiler/lua54.can:786
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:788
+end -- ./compiler/lua54.can:788
+end, -- ./compiler/lua54.can:788
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:793
+if start == nil then start = 1 end -- ./compiler/lua54.can:793
+local r -- ./compiler/lua54.can:794
+if t[start] then -- ./compiler/lua54.can:795
+r = lua(t[start]) -- ./compiler/lua54.can:796
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:797
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:798
+end -- ./compiler/lua54.can:798
+else -- ./compiler/lua54.can:798
+r = "" -- ./compiler/lua54.can:801
+end -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:803
+end, -- ./compiler/lua54.can:803
+["Id"] = function(t) -- ./compiler/lua54.can:806
+local r = t[1] -- ./compiler/lua54.can:807
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:808
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:809
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:810
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:811
+r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:812
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:813
+local macro = macros["variables"][t[1]] -- ./compiler/lua54.can:814
+if type(macro) == "function" then -- ./compiler/lua54.can:815
+r = macro() -- ./compiler/lua54.can:816
+else -- ./compiler/lua54.can:816
+r = lua(macro) -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:821
+end -- ./compiler/lua54.can:821
+return r -- ./compiler/lua54.can:823
+end, -- ./compiler/lua54.can:823
+["AttributeId"] = function(t) -- ./compiler/lua54.can:826
+if t[2] then -- ./compiler/lua54.can:827
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:828
+else -- ./compiler/lua54.can:828
+return t[1] -- ./compiler/lua54.can:830
+end -- ./compiler/lua54.can:830
+end, -- ./compiler/lua54.can:830
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:834
+if t["id"] then -- ./compiler/lua54.can:835
+return t["id"] -- ./compiler/lua54.can:836
+else -- ./compiler/lua54.can:836
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:838
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:839
+for j = 1, # t, 1 do -- ./compiler/lua54.can:840
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:841
+end -- ./compiler/lua54.can:841
+table["insert"](d, vars) -- ./compiler/lua54.can:843
+t["id"] = vars["id"] -- ./compiler/lua54.can:844
+return vars["id"] -- ./compiler/lua54.can:845
+end -- ./compiler/lua54.can:845
+end, -- ./compiler/lua54.can:845
+["Index"] = function(t) -- ./compiler/lua54.can:849
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:850
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:851
+else -- ./compiler/lua54.can:851
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:853
+end -- ./compiler/lua54.can:853
+end, -- ./compiler/lua54.can:853
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:857
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:858
+local l = {} -- ./compiler/lua54.can:859
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:860
+table["insert"](l, 1, t) -- ./compiler/lua54.can:861
+t = t[1] -- ./compiler/lua54.can:862
+end -- ./compiler/lua54.can:862
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:864
+for _, e in ipairs(l) do -- ./compiler/lua54.can:865
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:866
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:867
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:868
+else -- ./compiler/lua54.can:868
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:873
+return r -- ./compiler/lua54.can:874
+else -- ./compiler/lua54.can:874
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:876
+end -- ./compiler/lua54.can:876
+end, -- ./compiler/lua54.can:876
+["_opid"] = { -- ./compiler/lua54.can:881
+["add"] = "+", -- ./compiler/lua54.can:882
+["sub"] = "-", -- ./compiler/lua54.can:882
+["mul"] = "*", -- ./compiler/lua54.can:882
+["div"] = "/", -- ./compiler/lua54.can:882
+["idiv"] = "//", -- ./compiler/lua54.can:883
+["mod"] = "%", -- ./compiler/lua54.can:883
+["pow"] = "^", -- ./compiler/lua54.can:883
+["concat"] = "..", -- ./compiler/lua54.can:883
+["band"] = "&", -- ./compiler/lua54.can:884
+["bor"] = "|", -- ./compiler/lua54.can:884
+["bxor"] = "~", -- ./compiler/lua54.can:884
+["shl"] = "<<", -- ./compiler/lua54.can:884
+["shr"] = ">>", -- ./compiler/lua54.can:884
+["eq"] = "==", -- ./compiler/lua54.can:885
+["ne"] = "~=", -- ./compiler/lua54.can:885
+["lt"] = "<", -- ./compiler/lua54.can:885
+["gt"] = ">", -- ./compiler/lua54.can:885
+["le"] = "<=", -- ./compiler/lua54.can:885
+["ge"] = ">=", -- ./compiler/lua54.can:885
+["and"] = "and", -- ./compiler/lua54.can:886
+["or"] = "or", -- ./compiler/lua54.can:886
+["unm"] = "-", -- ./compiler/lua54.can:886
+["len"] = "#", -- ./compiler/lua54.can:886
+["bnot"] = "~", -- ./compiler/lua54.can:886
+["not"] = "not" -- ./compiler/lua54.can:886
+} -- ./compiler/lua54.can:886
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
+end }) -- ./compiler/lua54.can:890
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -2948,11 +2984,11 @@ end -- ./compiler/lua52.can:23
 tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
 return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
 end -- ./compiler/lua52.can:26
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
-return requireStr .. code -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-local lua54 = _() or lua54 -- ./compiler/lua54.can:889
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
+return requireStr .. code -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+local lua54 = _() or lua54 -- ./compiler/lua54.can:902
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -2966,919 +3002,931 @@ local function _() -- ./compiler/lua52.can:47
 local function _() -- ./compiler/lua52.can:49
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
-return function(code, ast, options, macros) -- ./compiler/lua54.can:5
-if macros == nil then macros = { -- ./compiler/lua54.can:5
-["functions"] = {}, -- ./compiler/lua54.can:5
-["variables"] = {} -- ./compiler/lua54.can:5
-} end -- ./compiler/lua54.can:5
-local lastInputPos = 1 -- ./compiler/lua54.can:7
-local prevLinePos = 1 -- ./compiler/lua54.can:8
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
-local lastLine = 1 -- ./compiler/lua54.can:10
-local indentLevel = 0 -- ./compiler/lua54.can:13
-local function newline() -- ./compiler/lua54.can:15
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
-if options["mapLines"] then -- ./compiler/lua54.can:17
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
+local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
+return function(code, ast, options, macros) -- ./compiler/lua54.can:7
+if macros == nil then macros = { -- ./compiler/lua54.can:7
+["functions"] = {}, -- ./compiler/lua54.can:7
+["variables"] = {} -- ./compiler/lua54.can:7
+} end -- ./compiler/lua54.can:7
+local lastInputPos = 1 -- ./compiler/lua54.can:9
+local prevLinePos = 1 -- ./compiler/lua54.can:10
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:11
+local lastLine = 1 -- ./compiler/lua54.can:12
+local indentLevel = 0 -- ./compiler/lua54.can:15
+local function newline() -- ./compiler/lua54.can:17
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:18
+if options["mapLines"] then -- ./compiler/lua54.can:19
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:20
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:19
-if source and line then -- ./compiler/lua54.can:21
-lastSource = source -- ./compiler/lua54.can:22
-lastLine = tonumber(line) -- ./compiler/lua54.can:23
-else -- ./compiler/lua54.can:23
+") -- ./compiler/lua54.can:21
+if source and line then -- ./compiler/lua54.can:23
+lastSource = source -- ./compiler/lua54.can:24
+lastLine = tonumber(line) -- ./compiler/lua54.can:25
+else -- ./compiler/lua54.can:25
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:25
-lastLine = lastLine + (1) -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-prevLinePos = lastInputPos -- ./compiler/lua54.can:30
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
-end -- ./compiler/lua54.can:32
-return r -- ./compiler/lua54.can:34
+") do -- ./compiler/lua54.can:27
+lastLine = lastLine + (1) -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+prevLinePos = lastInputPos -- ./compiler/lua54.can:32
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:34
 end -- ./compiler/lua54.can:34
-local function indent() -- ./compiler/lua54.can:37
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
-return newline() -- ./compiler/lua54.can:39
-end -- ./compiler/lua54.can:39
-local function unindent() -- ./compiler/lua54.can:42
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
-return newline() -- ./compiler/lua54.can:44
-end -- ./compiler/lua54.can:44
-local states = { -- ./compiler/lua54.can:49
-["push"] = {}, -- ./compiler/lua54.can:50
-["destructuring"] = {}, -- ./compiler/lua54.can:51
-["scope"] = {}, -- ./compiler/lua54.can:52
-["macroargs"] = {} -- ./compiler/lua54.can:53
-} -- ./compiler/lua54.can:53
-local function push(name, state) -- ./compiler/lua54.can:56
-table["insert"](states[name], state) -- ./compiler/lua54.can:57
-return "" -- ./compiler/lua54.can:58
-end -- ./compiler/lua54.can:58
-local function pop(name) -- ./compiler/lua54.can:61
-table["remove"](states[name]) -- ./compiler/lua54.can:62
-return "" -- ./compiler/lua54.can:63
-end -- ./compiler/lua54.can:63
-local function set(name, state) -- ./compiler/lua54.can:66
-states[name][# states[name]] = state -- ./compiler/lua54.can:67
-return "" -- ./compiler/lua54.can:68
-end -- ./compiler/lua54.can:68
-local function peek(name) -- ./compiler/lua54.can:71
-return states[name][# states[name]] -- ./compiler/lua54.can:72
-end -- ./compiler/lua54.can:72
-local function var(name) -- ./compiler/lua54.can:77
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
-end -- ./compiler/lua54.can:78
-local function tmp() -- ./compiler/lua54.can:82
-local scope = peek("scope") -- ./compiler/lua54.can:83
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
-table["insert"](scope, var) -- ./compiler/lua54.can:85
-return var -- ./compiler/lua54.can:86
-end -- ./compiler/lua54.can:86
-local nomacro = { -- ./compiler/lua54.can:90
-["variables"] = {}, -- ./compiler/lua54.can:90
-["functions"] = {} -- ./compiler/lua54.can:90
-} -- ./compiler/lua54.can:90
-local required = {} -- ./compiler/lua54.can:93
-local requireStr = "" -- ./compiler/lua54.can:94
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
-if not required[req] then -- ./compiler/lua54.can:98
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
-required[req] = true -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-local loop = { -- ./compiler/lua54.can:105
-"While", -- ./compiler/lua54.can:105
-"Repeat", -- ./compiler/lua54.can:105
-"Fornum", -- ./compiler/lua54.can:105
-"Forin", -- ./compiler/lua54.can:105
-"WhileExpr", -- ./compiler/lua54.can:105
-"RepeatExpr", -- ./compiler/lua54.can:105
-"FornumExpr", -- ./compiler/lua54.can:105
-"ForinExpr" -- ./compiler/lua54.can:105
-} -- ./compiler/lua54.can:105
-local func = { -- ./compiler/lua54.can:106
-"Function", -- ./compiler/lua54.can:106
-"TableCompr", -- ./compiler/lua54.can:106
-"DoExpr", -- ./compiler/lua54.can:106
-"WhileExpr", -- ./compiler/lua54.can:106
-"RepeatExpr", -- ./compiler/lua54.can:106
-"IfExpr", -- ./compiler/lua54.can:106
-"FornumExpr", -- ./compiler/lua54.can:106
-"ForinExpr" -- ./compiler/lua54.can:106
-} -- ./compiler/lua54.can:106
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
-local tagsCheck = {} -- ./compiler/lua54.can:111
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
-tagsCheck[tag] = true -- ./compiler/lua54.can:113
-end -- ./compiler/lua54.can:113
-local nofollowCheck = {} -- ./compiler/lua54.can:115
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
-nofollowCheck[tag] = true -- ./compiler/lua54.can:117
-end -- ./compiler/lua54.can:117
-for _, node in ipairs(list) do -- ./compiler/lua54.can:119
-if type(node) == "table" then -- ./compiler/lua54.can:120
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
-return node -- ./compiler/lua54.can:122
-end -- ./compiler/lua54.can:122
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
-if r then -- ./compiler/lua54.can:126
-return r -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-return nil -- ./compiler/lua54.can:130
-end -- ./compiler/lua54.can:130
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
-local tagsCheck = {} -- ./compiler/lua54.can:136
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
-tagsCheck[tag] = true -- ./compiler/lua54.can:138
-end -- ./compiler/lua54.can:138
-local nofollowCheck = {} -- ./compiler/lua54.can:140
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
-nofollowCheck[tag] = true -- ./compiler/lua54.can:142
-end -- ./compiler/lua54.can:142
-local found = {} -- ./compiler/lua54.can:144
-for _, node in ipairs(list) do -- ./compiler/lua54.can:145
-if type(node) == "table" then -- ./compiler/lua54.can:146
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
-table["insert"](found, n) -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
-table["insert"](found, node) -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-return found -- ./compiler/lua54.can:157
-end -- ./compiler/lua54.can:157
-local function all(list, tags) -- ./compiler/lua54.can:161
-for _, node in ipairs(list) do -- ./compiler/lua54.can:162
-local ok = false -- ./compiler/lua54.can:163
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
-if node["tag"] == tag then -- ./compiler/lua54.can:165
-ok = true -- ./compiler/lua54.can:166
-break -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-if not ok then -- ./compiler/lua54.can:170
-return false -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-return true -- ./compiler/lua54.can:174
-end -- ./compiler/lua54.can:174
-local tags -- ./compiler/lua54.can:178
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
-end -- ./compiler/lua54.can:182
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+return r -- ./compiler/lua54.can:36
+end -- ./compiler/lua54.can:36
+local function indent() -- ./compiler/lua54.can:39
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:40
+return newline() -- ./compiler/lua54.can:41
+end -- ./compiler/lua54.can:41
+local function unindent() -- ./compiler/lua54.can:44
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:45
+return newline() -- ./compiler/lua54.can:46
+end -- ./compiler/lua54.can:46
+local states = { -- ./compiler/lua54.can:51
+["push"] = {}, -- ./compiler/lua54.can:52
+["destructuring"] = {}, -- ./compiler/lua54.can:53
+["scope"] = {}, -- ./compiler/lua54.can:54
+["macroargs"] = {} -- ./compiler/lua54.can:55
+} -- ./compiler/lua54.can:55
+local function push(name, state) -- ./compiler/lua54.can:58
+table["insert"](states[name], state) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function pop(name) -- ./compiler/lua54.can:63
+table["remove"](states[name]) -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function set(name, state) -- ./compiler/lua54.can:68
+states[name][# states[name]] = state -- ./compiler/lua54.can:69
+return "" -- ./compiler/lua54.can:70
+end -- ./compiler/lua54.can:70
+local function peek(name) -- ./compiler/lua54.can:73
+return states[name][# states[name]] -- ./compiler/lua54.can:74
+end -- ./compiler/lua54.can:74
+local function var(name) -- ./compiler/lua54.can:79
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:80
+end -- ./compiler/lua54.can:80
+local function tmp() -- ./compiler/lua54.can:84
+local scope = peek("scope") -- ./compiler/lua54.can:85
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:86
+table["insert"](scope, var) -- ./compiler/lua54.can:87
+return var -- ./compiler/lua54.can:88
+end -- ./compiler/lua54.can:88
+local nomacro = { -- ./compiler/lua54.can:92
+["variables"] = {}, -- ./compiler/lua54.can:92
+["functions"] = {} -- ./compiler/lua54.can:92
+} -- ./compiler/lua54.can:92
+local required = {} -- ./compiler/lua54.can:95
+local requireStr = "" -- ./compiler/lua54.can:96
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:98
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:99
+if not required[req] then -- ./compiler/lua54.can:100
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:101
+required[req] = true -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+local loop = { -- ./compiler/lua54.can:107
+"While", -- ./compiler/lua54.can:107
+"Repeat", -- ./compiler/lua54.can:107
+"Fornum", -- ./compiler/lua54.can:107
+"Forin", -- ./compiler/lua54.can:107
+"WhileExpr", -- ./compiler/lua54.can:107
+"RepeatExpr", -- ./compiler/lua54.can:107
+"FornumExpr", -- ./compiler/lua54.can:107
+"ForinExpr" -- ./compiler/lua54.can:107
+} -- ./compiler/lua54.can:107
+local func = { -- ./compiler/lua54.can:108
+"Function", -- ./compiler/lua54.can:108
+"TableCompr", -- ./compiler/lua54.can:108
+"DoExpr", -- ./compiler/lua54.can:108
+"WhileExpr", -- ./compiler/lua54.can:108
+"RepeatExpr", -- ./compiler/lua54.can:108
+"IfExpr", -- ./compiler/lua54.can:108
+"FornumExpr", -- ./compiler/lua54.can:108
+"ForinExpr" -- ./compiler/lua54.can:108
+} -- ./compiler/lua54.can:108
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:112
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:112
+local tagsCheck = {} -- ./compiler/lua54.can:113
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:114
+tagsCheck[tag] = true -- ./compiler/lua54.can:115
+end -- ./compiler/lua54.can:115
+local nofollowCheck = {} -- ./compiler/lua54.can:117
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:118
+nofollowCheck[tag] = true -- ./compiler/lua54.can:119
+end -- ./compiler/lua54.can:119
+for _, node in ipairs(list) do -- ./compiler/lua54.can:121
+if type(node) == "table" then -- ./compiler/lua54.can:122
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:123
+return node -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:126
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:127
+if r then -- ./compiler/lua54.can:128
+return r -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+return nil -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:137
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:137
+local tagsCheck = {} -- ./compiler/lua54.can:138
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:139
+tagsCheck[tag] = true -- ./compiler/lua54.can:140
+end -- ./compiler/lua54.can:140
+local nofollowCheck = {} -- ./compiler/lua54.can:142
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:143
+nofollowCheck[tag] = true -- ./compiler/lua54.can:144
+end -- ./compiler/lua54.can:144
+local found = {} -- ./compiler/lua54.can:146
+for _, node in ipairs(list) do -- ./compiler/lua54.can:147
+if type(node) == "table" then -- ./compiler/lua54.can:148
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:149
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:150
+table["insert"](found, n) -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:154
+table["insert"](found, node) -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+return found -- ./compiler/lua54.can:159
+end -- ./compiler/lua54.can:159
+local function all(list, tags) -- ./compiler/lua54.can:163
+for _, node in ipairs(list) do -- ./compiler/lua54.can:164
+local ok = false -- ./compiler/lua54.can:165
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:166
+if node["tag"] == tag then -- ./compiler/lua54.can:167
+ok = true -- ./compiler/lua54.can:168
+break -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+if not ok then -- ./compiler/lua54.can:172
+return false -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+return true -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+local tags -- ./compiler/lua54.can:180
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:182
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:183
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:184
 end -- ./compiler/lua54.can:184
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
-end -- ./compiler/lua54.can:189
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
-end -- ./compiler/lua54.can:192
-local CONTINUE_START = function() -- ./compiler/lua54.can:194
-return "do" .. indent() -- ./compiler/lua54.can:195
-end -- ./compiler/lua54.can:195
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
-end -- ./compiler/lua54.can:198
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
-local vars = {} -- ./compiler/lua54.can:201
-local values = {} -- ./compiler/lua54.can:202
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
-for _, v in ipairs(list) do -- ./compiler/lua54.can:204
-local var, val -- ./compiler/lua54.can:205
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
-var = v -- ./compiler/lua54.can:207
-val = { -- ./compiler/lua54.can:208
-["tag"] = "Index", -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "Id", -- ./compiler/lua54.can:208
-list["id"] -- ./compiler/lua54.can:208
-}, -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "String", -- ./compiler/lua54.can:208
-v[1] -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
-var = v[2] -- ./compiler/lua54.can:210
-val = { -- ./compiler/lua54.can:211
-["tag"] = "Index", -- ./compiler/lua54.can:211
-{ -- ./compiler/lua54.can:211
-["tag"] = "Id", -- ./compiler/lua54.can:211
-list["id"] -- ./compiler/lua54.can:211
-}, -- ./compiler/lua54.can:211
-v[1] -- ./compiler/lua54.can:211
-} -- ./compiler/lua54.can:211
-else -- ./compiler/lua54.can:211
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
-end -- ./compiler/lua54.can:213
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
-val = { -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["rightOp"], -- ./compiler/lua54.can:216
-var, -- ./compiler/lua54.can:216
-{ -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["leftOp"], -- ./compiler/lua54.can:216
-val, -- ./compiler/lua54.can:216
-var -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:190
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:191
+end -- ./compiler/lua54.can:191
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:193
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:194
+end -- ./compiler/lua54.can:194
+local CONTINUE_START = function() -- ./compiler/lua54.can:196
+return "do" .. indent() -- ./compiler/lua54.can:197
+end -- ./compiler/lua54.can:197
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:199
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:200
+end -- ./compiler/lua54.can:200
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:202
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:202
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:202
+local vars = {} -- ./compiler/lua54.can:203
+local values = {} -- ./compiler/lua54.can:204
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:205
+for _, v in ipairs(list) do -- ./compiler/lua54.can:206
+local var, val -- ./compiler/lua54.can:207
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:208
+var = v -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Index", -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Id", -- ./compiler/lua54.can:210
+list["id"] -- ./compiler/lua54.can:210
+}, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "String", -- ./compiler/lua54.can:210
+v[1] -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:211
+var = v[2] -- ./compiler/lua54.can:212
+val = { -- ./compiler/lua54.can:213
+["tag"] = "Index", -- ./compiler/lua54.can:213
+{ -- ./compiler/lua54.can:213
+["tag"] = "Id", -- ./compiler/lua54.can:213
+list["id"] -- ./compiler/lua54.can:213
+}, -- ./compiler/lua54.can:213
+v[1] -- ./compiler/lua54.can:213
+} -- ./compiler/lua54.can:213
+else -- ./compiler/lua54.can:213
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:215
+end -- ./compiler/lua54.can:215
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:217
 val = { -- ./compiler/lua54.can:218
 ["tag"] = "Op", -- ./compiler/lua54.can:218
 destructured["rightOp"], -- ./compiler/lua54.can:218
 var, -- ./compiler/lua54.can:218
-val -- ./compiler/lua54.can:218
+{ -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["leftOp"], -- ./compiler/lua54.can:218
+val, -- ./compiler/lua54.can:218
+var -- ./compiler/lua54.can:218
 } -- ./compiler/lua54.can:218
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+} -- ./compiler/lua54.can:218
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:219
 val = { -- ./compiler/lua54.can:220
 ["tag"] = "Op", -- ./compiler/lua54.can:220
-destructured["leftOp"], -- ./compiler/lua54.can:220
-val, -- ./compiler/lua54.can:220
-var -- ./compiler/lua54.can:220
+destructured["rightOp"], -- ./compiler/lua54.can:220
+var, -- ./compiler/lua54.can:220
+val -- ./compiler/lua54.can:220
 } -- ./compiler/lua54.can:220
-end -- ./compiler/lua54.can:220
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-if # vars > 0 then -- ./compiler/lua54.can:226
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
-if newlineAfter then -- ./compiler/lua54.can:228
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
-else -- ./compiler/lua54.can:229
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
-end -- ./compiler/lua54.can:231
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:221
+val = { -- ./compiler/lua54.can:222
+["tag"] = "Op", -- ./compiler/lua54.can:222
+destructured["leftOp"], -- ./compiler/lua54.can:222
+val, -- ./compiler/lua54.can:222
+var -- ./compiler/lua54.can:222
+} -- ./compiler/lua54.can:222
+end -- ./compiler/lua54.can:222
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:224
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+if # vars > 0 then -- ./compiler/lua54.can:228
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:229
+if newlineAfter then -- ./compiler/lua54.can:230
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:231
 else -- ./compiler/lua54.can:231
-return "" -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-tags = setmetatable({ -- ./compiler/lua54.can:239
-["Block"] = function(t) -- ./compiler/lua54.can:241
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
-hasPush = false -- ./compiler/lua54.can:245
-end -- ./compiler/lua54.can:245
-local r = push("scope", {}) -- ./compiler/lua54.can:247
-if hasPush then -- ./compiler/lua54.can:248
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
-end -- ./compiler/lua54.can:249
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
-end -- ./compiler/lua54.can:252
-if t[# t] then -- ./compiler/lua54.can:254
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
-end -- ./compiler/lua54.can:255
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
-end -- ./compiler/lua54.can:258
-return r .. pop("scope") -- ./compiler/lua54.can:260
-end, -- ./compiler/lua54.can:260
-["Do"] = function(t) -- ./compiler/lua54.can:266
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
-end, -- ./compiler/lua54.can:267
-["Set"] = function(t) -- ./compiler/lua54.can:270
-local expr = t[# t] -- ./compiler/lua54.can:272
-local vars, values = {}, {} -- ./compiler/lua54.can:273
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
-else -- ./compiler/lua54.can:278
-table["insert"](vars, n) -- ./compiler/lua54.can:280
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
-local r = "" -- ./compiler/lua54.can:286
-if # vars > 0 then -- ./compiler/lua54.can:287
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
-end -- ./compiler/lua54.can:288
-if # destructuringVars > 0 then -- ./compiler/lua54.can:290
-local destructured = {} -- ./compiler/lua54.can:291
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
-end -- ./compiler/lua54.can:293
-return r -- ./compiler/lua54.can:295
-elseif # t == 4 then -- ./compiler/lua54.can:296
-if t[3] == "=" then -- ./compiler/lua54.can:297
-local r = "" -- ./compiler/lua54.can:298
-if # vars > 0 then -- ./compiler/lua54.can:299
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
-t[2], -- ./compiler/lua54.can:300
-vars[1], -- ./compiler/lua54.can:300
-{ -- ./compiler/lua54.can:300
-["tag"] = "Paren", -- ./compiler/lua54.can:300
-values[1] -- ./compiler/lua54.can:300
-} -- ./compiler/lua54.can:300
-}, "Op")) -- ./compiler/lua54.can:300
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:233
+end -- ./compiler/lua54.can:233
+else -- ./compiler/lua54.can:233
+return "" -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+tags = setmetatable({ -- ./compiler/lua54.can:241
+["Block"] = function(t) -- ./compiler/lua54.can:243
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:244
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:245
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:246
+hasPush = false -- ./compiler/lua54.can:247
+end -- ./compiler/lua54.can:247
+local r = push("scope", {}) -- ./compiler/lua54.can:249
+if hasPush then -- ./compiler/lua54.can:250
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:251
+end -- ./compiler/lua54.can:251
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:253
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:254
+end -- ./compiler/lua54.can:254
+if t[# t] then -- ./compiler/lua54.can:256
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:257
+end -- ./compiler/lua54.can:257
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:259
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:260
+end -- ./compiler/lua54.can:260
+return r .. pop("scope") -- ./compiler/lua54.can:262
+end, -- ./compiler/lua54.can:262
+["Do"] = function(t) -- ./compiler/lua54.can:268
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:269
+end, -- ./compiler/lua54.can:269
+["Set"] = function(t) -- ./compiler/lua54.can:272
+local expr = t[# t] -- ./compiler/lua54.can:274
+local vars, values = {}, {} -- ./compiler/lua54.can:275
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:276
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:277
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:278
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:279
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:280
+else -- ./compiler/lua54.can:280
+table["insert"](vars, n) -- ./compiler/lua54.can:282
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:287
+local r = "" -- ./compiler/lua54.can:288
+if # vars > 0 then -- ./compiler/lua54.can:289
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:290
+end -- ./compiler/lua54.can:290
+if # destructuringVars > 0 then -- ./compiler/lua54.can:292
+local destructured = {} -- ./compiler/lua54.can:293
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:294
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:295
+end -- ./compiler/lua54.can:295
+return r -- ./compiler/lua54.can:297
+elseif # t == 4 then -- ./compiler/lua54.can:298
+if t[3] == "=" then -- ./compiler/lua54.can:299
+local r = "" -- ./compiler/lua54.can:300
+if # vars > 0 then -- ./compiler/lua54.can:301
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:302
 t[2], -- ./compiler/lua54.can:302
-vars[i], -- ./compiler/lua54.can:302
+vars[1], -- ./compiler/lua54.can:302
 { -- ./compiler/lua54.can:302
 ["tag"] = "Paren", -- ./compiler/lua54.can:302
-values[i] -- ./compiler/lua54.can:302
+values[1] -- ./compiler/lua54.can:302
 } -- ./compiler/lua54.can:302
 }, "Op")) -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-if # destructuringVars > 0 then -- ./compiler/lua54.can:305
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
-end -- ./compiler/lua54.can:308
-return r -- ./compiler/lua54.can:310
-else -- ./compiler/lua54.can:310
-local r = "" -- ./compiler/lua54.can:312
-if # vars > 0 then -- ./compiler/lua54.can:313
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
-t[3], -- ./compiler/lua54.can:314
-{ -- ./compiler/lua54.can:314
-["tag"] = "Paren", -- ./compiler/lua54.can:314
-values[1] -- ./compiler/lua54.can:314
-}, -- ./compiler/lua54.can:314
-vars[1] -- ./compiler/lua54.can:314
-}, "Op")) -- ./compiler/lua54.can:314
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:303
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:304
+t[2], -- ./compiler/lua54.can:304
+vars[i], -- ./compiler/lua54.can:304
+{ -- ./compiler/lua54.can:304
+["tag"] = "Paren", -- ./compiler/lua54.can:304
+values[i] -- ./compiler/lua54.can:304
+} -- ./compiler/lua54.can:304
+}, "Op")) -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+if # destructuringVars > 0 then -- ./compiler/lua54.can:307
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:308
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:309
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+return r -- ./compiler/lua54.can:312
+else -- ./compiler/lua54.can:312
+local r = "" -- ./compiler/lua54.can:314
+if # vars > 0 then -- ./compiler/lua54.can:315
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:316
 t[3], -- ./compiler/lua54.can:316
 { -- ./compiler/lua54.can:316
 ["tag"] = "Paren", -- ./compiler/lua54.can:316
-values[i] -- ./compiler/lua54.can:316
+values[1] -- ./compiler/lua54.can:316
 }, -- ./compiler/lua54.can:316
-vars[i] -- ./compiler/lua54.can:316
+vars[1] -- ./compiler/lua54.can:316
 }, "Op")) -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-if # destructuringVars > 0 then -- ./compiler/lua54.can:319
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
-end -- ./compiler/lua54.can:322
-return r -- ./compiler/lua54.can:324
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:317
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:318
+t[3], -- ./compiler/lua54.can:318
+{ -- ./compiler/lua54.can:318
+["tag"] = "Paren", -- ./compiler/lua54.can:318
+values[i] -- ./compiler/lua54.can:318
+}, -- ./compiler/lua54.can:318
+vars[i] -- ./compiler/lua54.can:318
+}, "Op")) -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+if # destructuringVars > 0 then -- ./compiler/lua54.can:321
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:322
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:323
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:324
 end -- ./compiler/lua54.can:324
-else -- ./compiler/lua54.can:324
-local r = "" -- ./compiler/lua54.can:327
-if # vars > 0 then -- ./compiler/lua54.can:328
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
-t[2], -- ./compiler/lua54.can:329
-vars[1], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Op", -- ./compiler/lua54.can:329
-t[4], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Paren", -- ./compiler/lua54.can:329
-values[1] -- ./compiler/lua54.can:329
-}, -- ./compiler/lua54.can:329
-vars[1] -- ./compiler/lua54.can:329
-} -- ./compiler/lua54.can:329
-}, "Op")) -- ./compiler/lua54.can:329
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:326
+end -- ./compiler/lua54.can:326
+else -- ./compiler/lua54.can:326
+local r = "" -- ./compiler/lua54.can:329
+if # vars > 0 then -- ./compiler/lua54.can:330
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:331
 t[2], -- ./compiler/lua54.can:331
-vars[i], -- ./compiler/lua54.can:331
+vars[1], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Op", -- ./compiler/lua54.can:331
 t[4], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Paren", -- ./compiler/lua54.can:331
-values[i] -- ./compiler/lua54.can:331
+values[1] -- ./compiler/lua54.can:331
 }, -- ./compiler/lua54.can:331
-vars[i] -- ./compiler/lua54.can:331
+vars[1] -- ./compiler/lua54.can:331
 } -- ./compiler/lua54.can:331
 }, "Op")) -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-if # destructuringVars > 0 then -- ./compiler/lua54.can:334
-local destructured = { -- ./compiler/lua54.can:335
-["rightOp"] = t[2], -- ./compiler/lua54.can:335
-["leftOp"] = t[4] -- ./compiler/lua54.can:335
-} -- ./compiler/lua54.can:335
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
-end -- ./compiler/lua54.can:337
-return r -- ./compiler/lua54.can:339
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:332
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:333
+t[2], -- ./compiler/lua54.can:333
+vars[i], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Op", -- ./compiler/lua54.can:333
+t[4], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Paren", -- ./compiler/lua54.can:333
+values[i] -- ./compiler/lua54.can:333
+}, -- ./compiler/lua54.can:333
+vars[i] -- ./compiler/lua54.can:333
+} -- ./compiler/lua54.can:333
+}, "Op")) -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+if # destructuringVars > 0 then -- ./compiler/lua54.can:336
+local destructured = { -- ./compiler/lua54.can:337
+["rightOp"] = t[2], -- ./compiler/lua54.can:337
+["leftOp"] = t[4] -- ./compiler/lua54.can:337
+} -- ./compiler/lua54.can:337
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:338
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:339
 end -- ./compiler/lua54.can:339
-end, -- ./compiler/lua54.can:339
-["While"] = function(t) -- ./compiler/lua54.can:343
-local r = "" -- ./compiler/lua54.can:344
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
-if # lets > 0 then -- ./compiler/lua54.can:347
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
-if # lets > 0 then -- ./compiler/lua54.can:354
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
-end -- ./compiler/lua54.can:355
-if hasContinue then -- ./compiler/lua54.can:357
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
-end -- ./compiler/lua54.can:358
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
-if hasContinue then -- ./compiler/lua54.can:361
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
-end -- ./compiler/lua54.can:362
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
-if # lets > 0 then -- ./compiler/lua54.can:365
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
-end -- ./compiler/lua54.can:367
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:341
+end -- ./compiler/lua54.can:341
+end, -- ./compiler/lua54.can:341
+["While"] = function(t) -- ./compiler/lua54.can:345
+local r = "" -- ./compiler/lua54.can:346
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:347
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:348
+if # lets > 0 then -- ./compiler/lua54.can:349
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:350
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:351
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:355
+if # lets > 0 then -- ./compiler/lua54.can:356
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:357
+end -- ./compiler/lua54.can:357
+if hasContinue then -- ./compiler/lua54.can:359
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:360
+end -- ./compiler/lua54.can:360
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:362
+if hasContinue then -- ./compiler/lua54.can:363
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:364
+end -- ./compiler/lua54.can:364
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:366
+if # lets > 0 then -- ./compiler/lua54.can:367
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:368
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:369
 end -- ./compiler/lua54.can:369
-return r -- ./compiler/lua54.can:371
-end, -- ./compiler/lua54.can:371
-["Repeat"] = function(t) -- ./compiler/lua54.can:374
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
-local r = "repeat" .. indent() -- ./compiler/lua54.can:376
-if hasContinue then -- ./compiler/lua54.can:377
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
-end -- ./compiler/lua54.can:378
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
-if hasContinue then -- ./compiler/lua54.can:381
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
-end -- ./compiler/lua54.can:382
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
-return r -- ./compiler/lua54.can:385
-end, -- ./compiler/lua54.can:385
-["If"] = function(t) -- ./compiler/lua54.can:388
-local r = "" -- ./compiler/lua54.can:389
-local toClose = 0 -- ./compiler/lua54.can:390
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
-if # lets > 0 then -- ./compiler/lua54.can:392
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
-toClose = toClose + (1) -- ./compiler/lua54.can:394
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
-if # lets > 0 then -- ./compiler/lua54.can:402
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
-toClose = toClose + (1) -- ./compiler/lua54.can:404
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
-end -- ./compiler/lua54.can:406
-else -- ./compiler/lua54.can:406
-r = r .. ("else") -- ./compiler/lua54.can:409
-end -- ./compiler/lua54.can:409
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:371
+end -- ./compiler/lua54.can:371
+return r -- ./compiler/lua54.can:373
+end, -- ./compiler/lua54.can:373
+["Repeat"] = function(t) -- ./compiler/lua54.can:376
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:377
+local r = "repeat" .. indent() -- ./compiler/lua54.can:378
+if hasContinue then -- ./compiler/lua54.can:379
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:380
+end -- ./compiler/lua54.can:380
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:382
+if hasContinue then -- ./compiler/lua54.can:383
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:384
+end -- ./compiler/lua54.can:384
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:386
+return r -- ./compiler/lua54.can:387
+end, -- ./compiler/lua54.can:387
+["If"] = function(t) -- ./compiler/lua54.can:390
+local r = "" -- ./compiler/lua54.can:391
+local toClose = 0 -- ./compiler/lua54.can:392
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:393
+if # lets > 0 then -- ./compiler/lua54.can:394
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:395
+toClose = toClose + (1) -- ./compiler/lua54.can:396
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:397
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:401
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:402
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:403
+if # lets > 0 then -- ./compiler/lua54.can:404
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:405
+toClose = toClose + (1) -- ./compiler/lua54.can:406
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:407
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+else -- ./compiler/lua54.can:408
+r = r .. ("else") -- ./compiler/lua54.can:411
 end -- ./compiler/lua54.can:411
-if # t % 2 == 1 then -- ./compiler/lua54.can:413
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
-end -- ./compiler/lua54.can:414
-r = r .. ("end") -- ./compiler/lua54.can:416
-for i = 1, toClose do -- ./compiler/lua54.can:417
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
-end -- ./compiler/lua54.can:418
-return r -- ./compiler/lua54.can:420
-end, -- ./compiler/lua54.can:420
-["Fornum"] = function(t) -- ./compiler/lua54.can:423
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
-if # t == 5 then -- ./compiler/lua54.can:425
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
-if hasContinue then -- ./compiler/lua54.can:428
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
-end -- ./compiler/lua54.can:429
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
-if hasContinue then -- ./compiler/lua54.can:432
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
-end -- ./compiler/lua54.can:433
-return r .. unindent() .. "end" -- ./compiler/lua54.can:435
-else -- ./compiler/lua54.can:435
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
-if hasContinue then -- ./compiler/lua54.can:439
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
-end -- ./compiler/lua54.can:440
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
-if hasContinue then -- ./compiler/lua54.can:443
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
-end -- ./compiler/lua54.can:444
-return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:413
+end -- ./compiler/lua54.can:413
+if # t % 2 == 1 then -- ./compiler/lua54.can:415
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:416
+end -- ./compiler/lua54.can:416
+r = r .. ("end") -- ./compiler/lua54.can:418
+for i = 1, toClose do -- ./compiler/lua54.can:419
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:420
+end -- ./compiler/lua54.can:420
+return r -- ./compiler/lua54.can:422
+end, -- ./compiler/lua54.can:422
+["Fornum"] = function(t) -- ./compiler/lua54.can:425
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:426
+if # t == 5 then -- ./compiler/lua54.can:427
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:428
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:429
+if hasContinue then -- ./compiler/lua54.can:430
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:431
+end -- ./compiler/lua54.can:431
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:433
+if hasContinue then -- ./compiler/lua54.can:434
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:435
+end -- ./compiler/lua54.can:435
+return r .. unindent() .. "end" -- ./compiler/lua54.can:437
+else -- ./compiler/lua54.can:437
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:439
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:440
+if hasContinue then -- ./compiler/lua54.can:441
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:442
+end -- ./compiler/lua54.can:442
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:444
+if hasContinue then -- ./compiler/lua54.can:445
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:446
 end -- ./compiler/lua54.can:446
-end, -- ./compiler/lua54.can:446
-["Forin"] = function(t) -- ./compiler/lua54.can:450
-local destructured = {} -- ./compiler/lua54.can:451
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
-if hasContinue then -- ./compiler/lua54.can:454
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
-end -- ./compiler/lua54.can:455
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
-if hasContinue then -- ./compiler/lua54.can:458
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
-end -- ./compiler/lua54.can:459
-return r .. unindent() .. "end" -- ./compiler/lua54.can:461
-end, -- ./compiler/lua54.can:461
-["Local"] = function(t) -- ./compiler/lua54.can:464
-local destructured = {} -- ./compiler/lua54.can:465
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
-if t[2][1] then -- ./compiler/lua54.can:467
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
-end -- ./compiler/lua54.can:468
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
-end, -- ./compiler/lua54.can:470
-["Let"] = function(t) -- ./compiler/lua54.can:473
-local destructured = {} -- ./compiler/lua54.can:474
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
-local r = "local " .. nameList -- ./compiler/lua54.can:476
-if t[2][1] then -- ./compiler/lua54.can:477
-if all(t[2], { -- ./compiler/lua54.can:478
-"Nil", -- ./compiler/lua54.can:478
-"Dots", -- ./compiler/lua54.can:478
-"Boolean", -- ./compiler/lua54.can:478
-"Number", -- ./compiler/lua54.can:478
-"String" -- ./compiler/lua54.can:478
-}) then -- ./compiler/lua54.can:478
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
-else -- ./compiler/lua54.can:479
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
-end, -- ./compiler/lua54.can:484
-["Localrec"] = function(t) -- ./compiler/lua54.can:487
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
-end, -- ./compiler/lua54.can:488
-["Goto"] = function(t) -- ./compiler/lua54.can:491
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
-end, -- ./compiler/lua54.can:492
-["Label"] = function(t) -- ./compiler/lua54.can:495
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
-end, -- ./compiler/lua54.can:496
-["Return"] = function(t) -- ./compiler/lua54.can:499
-local push = peek("push") -- ./compiler/lua54.can:500
-if push then -- ./compiler/lua54.can:501
-local r = "" -- ./compiler/lua54.can:502
-for _, val in ipairs(t) do -- ./compiler/lua54.can:503
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
-end -- ./compiler/lua54.can:504
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
-else -- ./compiler/lua54.can:506
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
-end -- ./compiler/lua54.can:508
-end, -- ./compiler/lua54.can:508
-["Push"] = function(t) -- ./compiler/lua54.can:512
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
-r = "" -- ./compiler/lua54.can:514
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-if t[# t] then -- ./compiler/lua54.can:518
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
-else -- ./compiler/lua54.can:520
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-return r -- ./compiler/lua54.can:525
-end, -- ./compiler/lua54.can:525
-["Break"] = function() -- ./compiler/lua54.can:528
-return "break" -- ./compiler/lua54.can:529
-end, -- ./compiler/lua54.can:529
-["Continue"] = function() -- ./compiler/lua54.can:532
-return "goto " .. var("continue") -- ./compiler/lua54.can:533
-end, -- ./compiler/lua54.can:533
-["Nil"] = function() -- ./compiler/lua54.can:540
-return "nil" -- ./compiler/lua54.can:541
-end, -- ./compiler/lua54.can:541
-["Dots"] = function() -- ./compiler/lua54.can:544
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
-if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
-nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
-local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
-nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
-return r -- ./compiler/lua54.can:550
-else -- ./compiler/lua54.can:550
-return "..." -- ./compiler/lua54.can:552
-end -- ./compiler/lua54.can:552
-end, -- ./compiler/lua54.can:552
-["Boolean"] = function(t) -- ./compiler/lua54.can:556
-return tostring(t[1]) -- ./compiler/lua54.can:557
-end, -- ./compiler/lua54.can:557
-["Number"] = function(t) -- ./compiler/lua54.can:560
-return tostring(t[1]) -- ./compiler/lua54.can:561
-end, -- ./compiler/lua54.can:561
-["String"] = function(t) -- ./compiler/lua54.can:564
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
-end, -- ./compiler/lua54.can:565
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
-local r = "(" -- ./compiler/lua54.can:569
-local decl = {} -- ./compiler/lua54.can:570
-if t[1][1] then -- ./compiler/lua54.can:571
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
-r = r .. (id) -- ./compiler/lua54.can:577
-else -- ./compiler/lua54.can:577
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
-end -- ./compiler/lua54.can:579
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
-r = r .. (", " .. id) -- ./compiler/lua54.can:587
-else -- ./compiler/lua54.can:587
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
-r = r .. (d .. newline()) -- ./compiler/lua54.can:595
-end -- ./compiler/lua54.can:595
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
-end -- ./compiler/lua54.can:598
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
-if hasPush then -- ./compiler/lua54.can:601
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
-else -- ./compiler/lua54.can:602
-push("push", false) -- ./compiler/lua54.can:604
-end -- ./compiler/lua54.can:604
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
-end -- ./compiler/lua54.can:608
-pop("push") -- ./compiler/lua54.can:610
-return r .. unindent() .. "end" -- ./compiler/lua54.can:611
-end, -- ./compiler/lua54.can:611
-["Function"] = function(t) -- ./compiler/lua54.can:613
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
-end, -- ./compiler/lua54.can:614
-["Pair"] = function(t) -- ./compiler/lua54.can:617
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
-end, -- ./compiler/lua54.can:618
-["Table"] = function(t) -- ./compiler/lua54.can:620
-if # t == 0 then -- ./compiler/lua54.can:621
-return "{}" -- ./compiler/lua54.can:622
-elseif # t == 1 then -- ./compiler/lua54.can:623
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
-else -- ./compiler/lua54.can:624
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
-end -- ./compiler/lua54.can:626
-end, -- ./compiler/lua54.can:626
-["TableCompr"] = function(t) -- ./compiler/lua54.can:630
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
-end, -- ./compiler/lua54.can:631
-["Op"] = function(t) -- ./compiler/lua54.can:634
-local r -- ./compiler/lua54.can:635
-if # t == 2 then -- ./compiler/lua54.can:636
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
-else -- ./compiler/lua54.can:638
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
-end -- ./compiler/lua54.can:640
+return r .. unindent() .. "end" -- ./compiler/lua54.can:448
+end -- ./compiler/lua54.can:448
+end, -- ./compiler/lua54.can:448
+["Forin"] = function(t) -- ./compiler/lua54.can:452
+local destructured = {} -- ./compiler/lua54.can:453
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:454
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:455
+if hasContinue then -- ./compiler/lua54.can:456
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:457
+end -- ./compiler/lua54.can:457
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:459
+if hasContinue then -- ./compiler/lua54.can:460
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:461
+end -- ./compiler/lua54.can:461
+return r .. unindent() .. "end" -- ./compiler/lua54.can:463
+end, -- ./compiler/lua54.can:463
+["Local"] = function(t) -- ./compiler/lua54.can:466
+local destructured = {} -- ./compiler/lua54.can:467
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:468
+if t[2][1] then -- ./compiler/lua54.can:469
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:470
+end -- ./compiler/lua54.can:470
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:472
+end, -- ./compiler/lua54.can:472
+["Let"] = function(t) -- ./compiler/lua54.can:475
+local destructured = {} -- ./compiler/lua54.can:476
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:477
+local r = "local " .. nameList -- ./compiler/lua54.can:478
+if t[2][1] then -- ./compiler/lua54.can:479
+if all(t[2], { -- ./compiler/lua54.can:480
+"Nil", -- ./compiler/lua54.can:480
+"Dots", -- ./compiler/lua54.can:480
+"Boolean", -- ./compiler/lua54.can:480
+"Number", -- ./compiler/lua54.can:480
+"String" -- ./compiler/lua54.can:480
+}) then -- ./compiler/lua54.can:480
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+else -- ./compiler/lua54.can:481
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Localrec"] = function(t) -- ./compiler/lua54.can:489
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Goto"] = function(t) -- ./compiler/lua54.can:493
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:494
+end, -- ./compiler/lua54.can:494
+["Label"] = function(t) -- ./compiler/lua54.can:497
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:498
+end, -- ./compiler/lua54.can:498
+["Return"] = function(t) -- ./compiler/lua54.can:501
+local push = peek("push") -- ./compiler/lua54.can:502
+if push then -- ./compiler/lua54.can:503
+local r = "" -- ./compiler/lua54.can:504
+for _, val in ipairs(t) do -- ./compiler/lua54.can:505
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:506
+end -- ./compiler/lua54.can:506
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:508
+else -- ./compiler/lua54.can:508
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+end, -- ./compiler/lua54.can:510
+["Push"] = function(t) -- ./compiler/lua54.can:514
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:515
+r = "" -- ./compiler/lua54.can:516
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:517
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:518
+end -- ./compiler/lua54.can:518
+if t[# t] then -- ./compiler/lua54.can:520
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:521
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:522
+else -- ./compiler/lua54.can:522
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+return r -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Break"] = function() -- ./compiler/lua54.can:530
+return "break" -- ./compiler/lua54.can:531
+end, -- ./compiler/lua54.can:531
+["Continue"] = function() -- ./compiler/lua54.can:534
+return "goto " .. var("continue") -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Nil"] = function() -- ./compiler/lua54.can:542
+return "nil" -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Dots"] = function() -- ./compiler/lua54.can:546
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:547
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:549
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:550
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:551
+return r -- ./compiler/lua54.can:552
+else -- ./compiler/lua54.can:552
+return "..." -- ./compiler/lua54.can:554
+end -- ./compiler/lua54.can:554
+end, -- ./compiler/lua54.can:554
+["Boolean"] = function(t) -- ./compiler/lua54.can:558
+return tostring(t[1]) -- ./compiler/lua54.can:559
+end, -- ./compiler/lua54.can:559
+["Number"] = function(t) -- ./compiler/lua54.can:562
+return tostring(t[1]) -- ./compiler/lua54.can:563
+end, -- ./compiler/lua54.can:563
+["String"] = function(t) -- ./compiler/lua54.can:566
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:567
+end, -- ./compiler/lua54.can:567
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:570
+local r = "(" -- ./compiler/lua54.can:571
+local decl = {} -- ./compiler/lua54.can:572
+if t[1][1] then -- ./compiler/lua54.can:573
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:574
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:575
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:576
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:577
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:578
+r = r .. (id) -- ./compiler/lua54.can:579
+else -- ./compiler/lua54.can:579
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:583
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:584
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:585
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:586
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:587
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:588
+r = r .. (", " .. id) -- ./compiler/lua54.can:589
+else -- ./compiler/lua54.can:589
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:595
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:596
+r = r .. (d .. newline()) -- ./compiler/lua54.can:597
+end -- ./compiler/lua54.can:597
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:599
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:600
+end -- ./compiler/lua54.can:600
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:602
+if hasPush then -- ./compiler/lua54.can:603
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:604
+else -- ./compiler/lua54.can:604
+push("push", false) -- ./compiler/lua54.can:606
+end -- ./compiler/lua54.can:606
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:608
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:609
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:610
+end -- ./compiler/lua54.can:610
+pop("push") -- ./compiler/lua54.can:612
+return r .. unindent() .. "end" -- ./compiler/lua54.can:613
+end, -- ./compiler/lua54.can:613
+["Function"] = function(t) -- ./compiler/lua54.can:615
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:616
+end, -- ./compiler/lua54.can:616
+["Pair"] = function(t) -- ./compiler/lua54.can:619
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:620
+end, -- ./compiler/lua54.can:620
+["Table"] = function(t) -- ./compiler/lua54.can:622
+if # t == 0 then -- ./compiler/lua54.can:623
+return "{}" -- ./compiler/lua54.can:624
+elseif # t == 1 then -- ./compiler/lua54.can:625
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:628
+end -- ./compiler/lua54.can:628
+end, -- ./compiler/lua54.can:628
+["TableCompr"] = function(t) -- ./compiler/lua54.can:632
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:633
+end, -- ./compiler/lua54.can:633
+["Op"] = function(t) -- ./compiler/lua54.can:636
+local r -- ./compiler/lua54.can:637
+if # t == 2 then -- ./compiler/lua54.can:638
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:639
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:640
 else -- ./compiler/lua54.can:640
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
-else -- ./compiler/lua54.can:644
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-return r -- ./compiler/lua54.can:649
-end, -- ./compiler/lua54.can:649
-["Paren"] = function(t) -- ./compiler/lua54.can:652
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
-end, -- ./compiler/lua54.can:653
-["MethodStub"] = function(t) -- ./compiler/lua54.can:656
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
-end, -- ./compiler/lua54.can:662
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
-end, -- ./compiler/lua54.can:672
-["LetExpr"] = function(t) -- ./compiler/lua54.can:679
-return lua(t[1][1]) -- ./compiler/lua54.can:680
-end, -- ./compiler/lua54.can:680
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
-local r = "(function()" .. indent() -- ./compiler/lua54.can:686
-if hasPush then -- ./compiler/lua54.can:687
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
-else -- ./compiler/lua54.can:688
-push("push", false) -- ./compiler/lua54.can:690
-end -- ./compiler/lua54.can:690
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
-if hasPush then -- ./compiler/lua54.can:693
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
-end -- ./compiler/lua54.can:694
-pop("push") -- ./compiler/lua54.can:696
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
-return r -- ./compiler/lua54.can:698
-end, -- ./compiler/lua54.can:698
-["DoExpr"] = function(t) -- ./compiler/lua54.can:701
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
-end -- ./compiler/lua54.can:703
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
-end, -- ./compiler/lua54.can:705
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
-end, -- ./compiler/lua54.can:709
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
-end, -- ./compiler/lua54.can:713
-["IfExpr"] = function(t) -- ./compiler/lua54.can:716
-for i = 2, # t do -- ./compiler/lua54.can:717
-local block = t[i] -- ./compiler/lua54.can:718
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
-end, -- ./compiler/lua54.can:723
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
-end, -- ./compiler/lua54.can:727
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
-end, -- ./compiler/lua54.can:731
-["Call"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
-elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
-local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
-local replacement = macro["replacement"] -- ./compiler/lua54.can:742
-local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
-for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
-if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
-macroargs["..."] = (function() -- ./compiler/lua54.can:746
-local self = {} -- ./compiler/lua54.can:746
-for j = i + 1, # t do -- ./compiler/lua54.can:746
-self[#self+1] = t[j] -- ./compiler/lua54.can:746
-end -- ./compiler/lua54.can:746
-return self -- ./compiler/lua54.can:746
-end)() -- ./compiler/lua54.can:746
-elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
-if t[i + 1] == nil then -- ./compiler/lua54.can:748
-error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
-end -- ./compiler/lua54.can:749
-macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
-else -- ./compiler/lua54.can:751
-error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-push("macroargs", macroargs) -- ./compiler/lua54.can:756
-nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
-local r = lua(replacement) -- ./compiler/lua54.can:758
-nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
-pop("macroargs") -- ./compiler/lua54.can:760
-return r -- ./compiler/lua54.can:761
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
-else -- ./compiler/lua54.can:764
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
-end -- ./compiler/lua54.can:766
-else -- ./compiler/lua54.can:766
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:642
+end -- ./compiler/lua54.can:642
+else -- ./compiler/lua54.can:642
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:645
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:646
+else -- ./compiler/lua54.can:646
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+return r -- ./compiler/lua54.can:651
+end, -- ./compiler/lua54.can:651
+["Paren"] = function(t) -- ./compiler/lua54.can:654
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:655
+end, -- ./compiler/lua54.can:655
+["MethodStub"] = function(t) -- ./compiler/lua54.can:658
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:664
+end, -- ./compiler/lua54.can:664
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:667
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:674
+end, -- ./compiler/lua54.can:674
+["LetExpr"] = function(t) -- ./compiler/lua54.can:681
+return lua(t[1][1]) -- ./compiler/lua54.can:682
+end, -- ./compiler/lua54.can:682
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:686
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:687
+local r = "(function()" .. indent() -- ./compiler/lua54.can:688
+if hasPush then -- ./compiler/lua54.can:689
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:690
+else -- ./compiler/lua54.can:690
+push("push", false) -- ./compiler/lua54.can:692
+end -- ./compiler/lua54.can:692
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:694
+if hasPush then -- ./compiler/lua54.can:695
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:696
+end -- ./compiler/lua54.can:696
+pop("push") -- ./compiler/lua54.can:698
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:699
+return r -- ./compiler/lua54.can:700
+end, -- ./compiler/lua54.can:700
+["DoExpr"] = function(t) -- ./compiler/lua54.can:703
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:704
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:705
+end -- ./compiler/lua54.can:705
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:707
+end, -- ./compiler/lua54.can:707
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:710
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:711
+end, -- ./compiler/lua54.can:711
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:714
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:715
+end, -- ./compiler/lua54.can:715
+["IfExpr"] = function(t) -- ./compiler/lua54.can:718
+for i = 2, # t do -- ./compiler/lua54.can:719
+local block = t[i] -- ./compiler/lua54.can:720
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:721
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:725
+end, -- ./compiler/lua54.can:725
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:728
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:729
+end, -- ./compiler/lua54.can:729
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:732
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["Call"] = function(t) -- ./compiler/lua54.can:739
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:740
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:741
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:742
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:743
+local replacement = macro["replacement"] -- ./compiler/lua54.can:744
+local r -- ./compiler/lua54.can:745
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:746
+if type(replacement) == "function" then -- ./compiler/lua54.can:747
+local args = {} -- ./compiler/lua54.can:748
+for i = 2, # t do -- ./compiler/lua54.can:749
+table["insert"](args, lua(t[i])) -- ./compiler/lua54.can:750
+end -- ./compiler/lua54.can:750
+r = replacement(unpack(args)) -- ./compiler/lua54.can:752
+else -- ./compiler/lua54.can:752
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:754
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:755
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:756
+macroargs["..."] = (function() -- ./compiler/lua54.can:757
+local self = {} -- ./compiler/lua54.can:757
+for j = i + 1, # t do -- ./compiler/lua54.can:757
+self[#self+1] = t[j] -- ./compiler/lua54.can:757
+end -- ./compiler/lua54.can:757
+return self -- ./compiler/lua54.can:757
+end)() -- ./compiler/lua54.can:757
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:758
+if t[i + 1] == nil then -- ./compiler/lua54.can:759
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:760
+end -- ./compiler/lua54.can:760
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:762
+else -- ./compiler/lua54.can:762
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+push("macroargs", macroargs) -- ./compiler/lua54.can:767
+r = lua(replacement) -- ./compiler/lua54.can:768
+pop("macroargs") -- ./compiler/lua54.can:769
 end -- ./compiler/lua54.can:769
-end, -- ./compiler/lua54.can:769
-["SafeCall"] = function(t) -- ./compiler/lua54.can:773
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:771
+return r -- ./compiler/lua54.can:772
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:773
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:774
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:775
 else -- ./compiler/lua54.can:775
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:777
 end -- ./compiler/lua54.can:777
-end, -- ./compiler/lua54.can:777
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
-if start == nil then start = 1 end -- ./compiler/lua54.can:782
-local r -- ./compiler/lua54.can:783
-if t[start] then -- ./compiler/lua54.can:784
-r = lua(t[start]) -- ./compiler/lua54.can:785
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
-end -- ./compiler/lua54.can:787
-else -- ./compiler/lua54.can:787
-r = "" -- ./compiler/lua54.can:790
-end -- ./compiler/lua54.can:790
-return r -- ./compiler/lua54.can:792
-end, -- ./compiler/lua54.can:792
-["Id"] = function(t) -- ./compiler/lua54.can:795
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
-if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
-if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
-local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
-return r -- ./compiler/lua54.can:802
-elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
-local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
-return r -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-return t[1] -- ./compiler/lua54.can:810
-end, -- ./compiler/lua54.can:810
-["AttributeId"] = function(t) -- ./compiler/lua54.can:813
-if t[2] then -- ./compiler/lua54.can:814
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
-else -- ./compiler/lua54.can:815
-return t[1] -- ./compiler/lua54.can:817
-end -- ./compiler/lua54.can:817
-end, -- ./compiler/lua54.can:817
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
-if t["id"] then -- ./compiler/lua54.can:822
-return t["id"] -- ./compiler/lua54.can:823
-else -- ./compiler/lua54.can:823
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
-for j = 1, # t, 1 do -- ./compiler/lua54.can:827
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
-end -- ./compiler/lua54.can:828
-table["insert"](d, vars) -- ./compiler/lua54.can:830
-t["id"] = vars["id"] -- ./compiler/lua54.can:831
-return vars["id"] -- ./compiler/lua54.can:832
-end -- ./compiler/lua54.can:832
-end, -- ./compiler/lua54.can:832
-["Index"] = function(t) -- ./compiler/lua54.can:836
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
-else -- ./compiler/lua54.can:838
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
-end -- ./compiler/lua54.can:840
-end, -- ./compiler/lua54.can:840
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
-local l = {} -- ./compiler/lua54.can:846
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
-table["insert"](l, 1, t) -- ./compiler/lua54.can:848
-t = t[1] -- ./compiler/lua54.can:849
-end -- ./compiler/lua54.can:849
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
-for _, e in ipairs(l) do -- ./compiler/lua54.can:852
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
-else -- ./compiler/lua54.can:855
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
-return r -- ./compiler/lua54.can:861
-else -- ./compiler/lua54.can:861
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
-end -- ./compiler/lua54.can:863
-end, -- ./compiler/lua54.can:863
-["_opid"] = { -- ./compiler/lua54.can:868
-["add"] = "+", -- ./compiler/lua54.can:869
-["sub"] = "-", -- ./compiler/lua54.can:869
-["mul"] = "*", -- ./compiler/lua54.can:869
-["div"] = "/", -- ./compiler/lua54.can:869
-["idiv"] = "//", -- ./compiler/lua54.can:870
-["mod"] = "%", -- ./compiler/lua54.can:870
-["pow"] = "^", -- ./compiler/lua54.can:870
-["concat"] = "..", -- ./compiler/lua54.can:870
-["band"] = "&", -- ./compiler/lua54.can:871
-["bor"] = "|", -- ./compiler/lua54.can:871
-["bxor"] = "~", -- ./compiler/lua54.can:871
-["shl"] = "<<", -- ./compiler/lua54.can:871
-["shr"] = ">>", -- ./compiler/lua54.can:871
-["eq"] = "==", -- ./compiler/lua54.can:872
-["ne"] = "~=", -- ./compiler/lua54.can:872
-["lt"] = "<", -- ./compiler/lua54.can:872
-["gt"] = ">", -- ./compiler/lua54.can:872
-["le"] = "<=", -- ./compiler/lua54.can:872
-["ge"] = ">=", -- ./compiler/lua54.can:872
-["and"] = "and", -- ./compiler/lua54.can:873
-["or"] = "or", -- ./compiler/lua54.can:873
-["unm"] = "-", -- ./compiler/lua54.can:873
-["len"] = "#", -- ./compiler/lua54.can:873
-["bnot"] = "~", -- ./compiler/lua54.can:873
-["not"] = "not" -- ./compiler/lua54.can:873
-} -- ./compiler/lua54.can:873
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
-end }) -- ./compiler/lua54.can:877
+else -- ./compiler/lua54.can:777
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:780
+end -- ./compiler/lua54.can:780
+end, -- ./compiler/lua54.can:780
+["SafeCall"] = function(t) -- ./compiler/lua54.can:784
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:785
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:786
+else -- ./compiler/lua54.can:786
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:788
+end -- ./compiler/lua54.can:788
+end, -- ./compiler/lua54.can:788
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:793
+if start == nil then start = 1 end -- ./compiler/lua54.can:793
+local r -- ./compiler/lua54.can:794
+if t[start] then -- ./compiler/lua54.can:795
+r = lua(t[start]) -- ./compiler/lua54.can:796
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:797
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:798
+end -- ./compiler/lua54.can:798
+else -- ./compiler/lua54.can:798
+r = "" -- ./compiler/lua54.can:801
+end -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:803
+end, -- ./compiler/lua54.can:803
+["Id"] = function(t) -- ./compiler/lua54.can:806
+local r = t[1] -- ./compiler/lua54.can:807
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:808
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:809
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:810
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:811
+r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:812
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:813
+local macro = macros["variables"][t[1]] -- ./compiler/lua54.can:814
+if type(macro) == "function" then -- ./compiler/lua54.can:815
+r = macro() -- ./compiler/lua54.can:816
+else -- ./compiler/lua54.can:816
+r = lua(macro) -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:821
+end -- ./compiler/lua54.can:821
+return r -- ./compiler/lua54.can:823
+end, -- ./compiler/lua54.can:823
+["AttributeId"] = function(t) -- ./compiler/lua54.can:826
+if t[2] then -- ./compiler/lua54.can:827
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:828
+else -- ./compiler/lua54.can:828
+return t[1] -- ./compiler/lua54.can:830
+end -- ./compiler/lua54.can:830
+end, -- ./compiler/lua54.can:830
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:834
+if t["id"] then -- ./compiler/lua54.can:835
+return t["id"] -- ./compiler/lua54.can:836
+else -- ./compiler/lua54.can:836
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:838
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:839
+for j = 1, # t, 1 do -- ./compiler/lua54.can:840
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:841
+end -- ./compiler/lua54.can:841
+table["insert"](d, vars) -- ./compiler/lua54.can:843
+t["id"] = vars["id"] -- ./compiler/lua54.can:844
+return vars["id"] -- ./compiler/lua54.can:845
+end -- ./compiler/lua54.can:845
+end, -- ./compiler/lua54.can:845
+["Index"] = function(t) -- ./compiler/lua54.can:849
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:850
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:851
+else -- ./compiler/lua54.can:851
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:853
+end -- ./compiler/lua54.can:853
+end, -- ./compiler/lua54.can:853
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:857
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:858
+local l = {} -- ./compiler/lua54.can:859
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:860
+table["insert"](l, 1, t) -- ./compiler/lua54.can:861
+t = t[1] -- ./compiler/lua54.can:862
+end -- ./compiler/lua54.can:862
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:864
+for _, e in ipairs(l) do -- ./compiler/lua54.can:865
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:866
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:867
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:868
+else -- ./compiler/lua54.can:868
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:873
+return r -- ./compiler/lua54.can:874
+else -- ./compiler/lua54.can:874
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:876
+end -- ./compiler/lua54.can:876
+end, -- ./compiler/lua54.can:876
+["_opid"] = { -- ./compiler/lua54.can:881
+["add"] = "+", -- ./compiler/lua54.can:882
+["sub"] = "-", -- ./compiler/lua54.can:882
+["mul"] = "*", -- ./compiler/lua54.can:882
+["div"] = "/", -- ./compiler/lua54.can:882
+["idiv"] = "//", -- ./compiler/lua54.can:883
+["mod"] = "%", -- ./compiler/lua54.can:883
+["pow"] = "^", -- ./compiler/lua54.can:883
+["concat"] = "..", -- ./compiler/lua54.can:883
+["band"] = "&", -- ./compiler/lua54.can:884
+["bor"] = "|", -- ./compiler/lua54.can:884
+["bxor"] = "~", -- ./compiler/lua54.can:884
+["shl"] = "<<", -- ./compiler/lua54.can:884
+["shr"] = ">>", -- ./compiler/lua54.can:884
+["eq"] = "==", -- ./compiler/lua54.can:885
+["ne"] = "~=", -- ./compiler/lua54.can:885
+["lt"] = "<", -- ./compiler/lua54.can:885
+["gt"] = ">", -- ./compiler/lua54.can:885
+["le"] = "<=", -- ./compiler/lua54.can:885
+["ge"] = ">=", -- ./compiler/lua54.can:885
+["and"] = "and", -- ./compiler/lua54.can:886
+["or"] = "or", -- ./compiler/lua54.can:886
+["unm"] = "-", -- ./compiler/lua54.can:886
+["len"] = "#", -- ./compiler/lua54.can:886
+["bnot"] = "~", -- ./compiler/lua54.can:886
+["not"] = "not" -- ./compiler/lua54.can:886
+} -- ./compiler/lua54.can:886
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
+end }) -- ./compiler/lua54.can:890
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -3940,11 +3988,11 @@ tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
 addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
 return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
 end -- ./compiler/luajit.can:29
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
-return requireStr .. code -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-local lua54 = _() or lua54 -- ./compiler/lua54.can:889
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
+return requireStr .. code -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+local lua54 = _() or lua54 -- ./compiler/lua54.can:902
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -3962,919 +4010,931 @@ local function _() -- ./compiler/luajit.can:52
 local function _() -- ./compiler/luajit.can:54
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
-return function(code, ast, options, macros) -- ./compiler/lua54.can:5
-if macros == nil then macros = { -- ./compiler/lua54.can:5
-["functions"] = {}, -- ./compiler/lua54.can:5
-["variables"] = {} -- ./compiler/lua54.can:5
-} end -- ./compiler/lua54.can:5
-local lastInputPos = 1 -- ./compiler/lua54.can:7
-local prevLinePos = 1 -- ./compiler/lua54.can:8
-local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:9
-local lastLine = 1 -- ./compiler/lua54.can:10
-local indentLevel = 0 -- ./compiler/lua54.can:13
-local function newline() -- ./compiler/lua54.can:15
-local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:16
-if options["mapLines"] then -- ./compiler/lua54.can:17
-local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:18
+local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
+return function(code, ast, options, macros) -- ./compiler/lua54.can:7
+if macros == nil then macros = { -- ./compiler/lua54.can:7
+["functions"] = {}, -- ./compiler/lua54.can:7
+["variables"] = {} -- ./compiler/lua54.can:7
+} end -- ./compiler/lua54.can:7
+local lastInputPos = 1 -- ./compiler/lua54.can:9
+local prevLinePos = 1 -- ./compiler/lua54.can:10
+local lastSource = options["chunkname"] or "nil" -- ./compiler/lua54.can:11
+local lastLine = 1 -- ./compiler/lua54.can:12
+local indentLevel = 0 -- ./compiler/lua54.can:15
+local function newline() -- ./compiler/lua54.can:17
+local r = options["newline"] .. string["rep"](options["indentation"], indentLevel) -- ./compiler/lua54.can:18
+if options["mapLines"] then -- ./compiler/lua54.can:19
+local sub = code:sub(lastInputPos) -- ./compiler/lua54.can:20
 local source, line = sub:sub(1, sub:find("\
 ")):match(".*%-%- (.-)%:(%d+)\
-") -- ./compiler/lua54.can:19
-if source and line then -- ./compiler/lua54.can:21
-lastSource = source -- ./compiler/lua54.can:22
-lastLine = tonumber(line) -- ./compiler/lua54.can:23
-else -- ./compiler/lua54.can:23
+") -- ./compiler/lua54.can:21
+if source and line then -- ./compiler/lua54.can:23
+lastSource = source -- ./compiler/lua54.can:24
+lastLine = tonumber(line) -- ./compiler/lua54.can:25
+else -- ./compiler/lua54.can:25
 for _ in code:sub(prevLinePos, lastInputPos):gmatch("\
-") do -- ./compiler/lua54.can:25
-lastLine = lastLine + (1) -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-end -- ./compiler/lua54.can:26
-prevLinePos = lastInputPos -- ./compiler/lua54.can:30
-r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:32
-end -- ./compiler/lua54.can:32
-return r -- ./compiler/lua54.can:34
+") do -- ./compiler/lua54.can:27
+lastLine = lastLine + (1) -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+end -- ./compiler/lua54.can:28
+prevLinePos = lastInputPos -- ./compiler/lua54.can:32
+r = " -- " .. lastSource .. ":" .. lastLine .. r -- ./compiler/lua54.can:34
 end -- ./compiler/lua54.can:34
-local function indent() -- ./compiler/lua54.can:37
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:38
-return newline() -- ./compiler/lua54.can:39
-end -- ./compiler/lua54.can:39
-local function unindent() -- ./compiler/lua54.can:42
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:43
-return newline() -- ./compiler/lua54.can:44
-end -- ./compiler/lua54.can:44
-local states = { -- ./compiler/lua54.can:49
-["push"] = {}, -- ./compiler/lua54.can:50
-["destructuring"] = {}, -- ./compiler/lua54.can:51
-["scope"] = {}, -- ./compiler/lua54.can:52
-["macroargs"] = {} -- ./compiler/lua54.can:53
-} -- ./compiler/lua54.can:53
-local function push(name, state) -- ./compiler/lua54.can:56
-table["insert"](states[name], state) -- ./compiler/lua54.can:57
-return "" -- ./compiler/lua54.can:58
-end -- ./compiler/lua54.can:58
-local function pop(name) -- ./compiler/lua54.can:61
-table["remove"](states[name]) -- ./compiler/lua54.can:62
-return "" -- ./compiler/lua54.can:63
-end -- ./compiler/lua54.can:63
-local function set(name, state) -- ./compiler/lua54.can:66
-states[name][# states[name]] = state -- ./compiler/lua54.can:67
-return "" -- ./compiler/lua54.can:68
-end -- ./compiler/lua54.can:68
-local function peek(name) -- ./compiler/lua54.can:71
-return states[name][# states[name]] -- ./compiler/lua54.can:72
-end -- ./compiler/lua54.can:72
-local function var(name) -- ./compiler/lua54.can:77
-return options["variablePrefix"] .. name -- ./compiler/lua54.can:78
-end -- ./compiler/lua54.can:78
-local function tmp() -- ./compiler/lua54.can:82
-local scope = peek("scope") -- ./compiler/lua54.can:83
-local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:84
-table["insert"](scope, var) -- ./compiler/lua54.can:85
-return var -- ./compiler/lua54.can:86
-end -- ./compiler/lua54.can:86
-local nomacro = { -- ./compiler/lua54.can:90
-["variables"] = {}, -- ./compiler/lua54.can:90
-["functions"] = {} -- ./compiler/lua54.can:90
-} -- ./compiler/lua54.can:90
-local required = {} -- ./compiler/lua54.can:93
-local requireStr = "" -- ./compiler/lua54.can:94
-local function addRequire(mod, name, field) -- ./compiler/lua54.can:96
-local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:97
-if not required[req] then -- ./compiler/lua54.can:98
-requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:99
-required[req] = true -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-end -- ./compiler/lua54.can:100
-local loop = { -- ./compiler/lua54.can:105
-"While", -- ./compiler/lua54.can:105
-"Repeat", -- ./compiler/lua54.can:105
-"Fornum", -- ./compiler/lua54.can:105
-"Forin", -- ./compiler/lua54.can:105
-"WhileExpr", -- ./compiler/lua54.can:105
-"RepeatExpr", -- ./compiler/lua54.can:105
-"FornumExpr", -- ./compiler/lua54.can:105
-"ForinExpr" -- ./compiler/lua54.can:105
-} -- ./compiler/lua54.can:105
-local func = { -- ./compiler/lua54.can:106
-"Function", -- ./compiler/lua54.can:106
-"TableCompr", -- ./compiler/lua54.can:106
-"DoExpr", -- ./compiler/lua54.can:106
-"WhileExpr", -- ./compiler/lua54.can:106
-"RepeatExpr", -- ./compiler/lua54.can:106
-"IfExpr", -- ./compiler/lua54.can:106
-"FornumExpr", -- ./compiler/lua54.can:106
-"ForinExpr" -- ./compiler/lua54.can:106
-} -- ./compiler/lua54.can:106
-local function any(list, tags, nofollow) -- ./compiler/lua54.can:110
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:110
-local tagsCheck = {} -- ./compiler/lua54.can:111
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:112
-tagsCheck[tag] = true -- ./compiler/lua54.can:113
-end -- ./compiler/lua54.can:113
-local nofollowCheck = {} -- ./compiler/lua54.can:115
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:116
-nofollowCheck[tag] = true -- ./compiler/lua54.can:117
-end -- ./compiler/lua54.can:117
-for _, node in ipairs(list) do -- ./compiler/lua54.can:119
-if type(node) == "table" then -- ./compiler/lua54.can:120
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:121
-return node -- ./compiler/lua54.can:122
-end -- ./compiler/lua54.can:122
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:124
-local r = any(node, tags, nofollow) -- ./compiler/lua54.can:125
-if r then -- ./compiler/lua54.can:126
-return r -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-end -- ./compiler/lua54.can:126
-return nil -- ./compiler/lua54.can:130
-end -- ./compiler/lua54.can:130
-local function search(list, tags, nofollow) -- ./compiler/lua54.can:135
-if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:135
-local tagsCheck = {} -- ./compiler/lua54.can:136
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:137
-tagsCheck[tag] = true -- ./compiler/lua54.can:138
-end -- ./compiler/lua54.can:138
-local nofollowCheck = {} -- ./compiler/lua54.can:140
-for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:141
-nofollowCheck[tag] = true -- ./compiler/lua54.can:142
-end -- ./compiler/lua54.can:142
-local found = {} -- ./compiler/lua54.can:144
-for _, node in ipairs(list) do -- ./compiler/lua54.can:145
-if type(node) == "table" then -- ./compiler/lua54.can:146
-if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:147
-for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:148
-table["insert"](found, n) -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-end -- ./compiler/lua54.can:149
-if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:152
-table["insert"](found, node) -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-end -- ./compiler/lua54.can:153
-return found -- ./compiler/lua54.can:157
-end -- ./compiler/lua54.can:157
-local function all(list, tags) -- ./compiler/lua54.can:161
-for _, node in ipairs(list) do -- ./compiler/lua54.can:162
-local ok = false -- ./compiler/lua54.can:163
-for _, tag in ipairs(tags) do -- ./compiler/lua54.can:164
-if node["tag"] == tag then -- ./compiler/lua54.can:165
-ok = true -- ./compiler/lua54.can:166
-break -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-end -- ./compiler/lua54.can:167
-if not ok then -- ./compiler/lua54.can:170
-return false -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-end -- ./compiler/lua54.can:171
-return true -- ./compiler/lua54.can:174
-end -- ./compiler/lua54.can:174
-local tags -- ./compiler/lua54.can:178
-local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:180
-if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:181
-lastInputPos = ast["pos"] -- ./compiler/lua54.can:182
-end -- ./compiler/lua54.can:182
-return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:184
+return r -- ./compiler/lua54.can:36
+end -- ./compiler/lua54.can:36
+local function indent() -- ./compiler/lua54.can:39
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:40
+return newline() -- ./compiler/lua54.can:41
+end -- ./compiler/lua54.can:41
+local function unindent() -- ./compiler/lua54.can:44
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:45
+return newline() -- ./compiler/lua54.can:46
+end -- ./compiler/lua54.can:46
+local states = { -- ./compiler/lua54.can:51
+["push"] = {}, -- ./compiler/lua54.can:52
+["destructuring"] = {}, -- ./compiler/lua54.can:53
+["scope"] = {}, -- ./compiler/lua54.can:54
+["macroargs"] = {} -- ./compiler/lua54.can:55
+} -- ./compiler/lua54.can:55
+local function push(name, state) -- ./compiler/lua54.can:58
+table["insert"](states[name], state) -- ./compiler/lua54.can:59
+return "" -- ./compiler/lua54.can:60
+end -- ./compiler/lua54.can:60
+local function pop(name) -- ./compiler/lua54.can:63
+table["remove"](states[name]) -- ./compiler/lua54.can:64
+return "" -- ./compiler/lua54.can:65
+end -- ./compiler/lua54.can:65
+local function set(name, state) -- ./compiler/lua54.can:68
+states[name][# states[name]] = state -- ./compiler/lua54.can:69
+return "" -- ./compiler/lua54.can:70
+end -- ./compiler/lua54.can:70
+local function peek(name) -- ./compiler/lua54.can:73
+return states[name][# states[name]] -- ./compiler/lua54.can:74
+end -- ./compiler/lua54.can:74
+local function var(name) -- ./compiler/lua54.can:79
+return options["variablePrefix"] .. name -- ./compiler/lua54.can:80
+end -- ./compiler/lua54.can:80
+local function tmp() -- ./compiler/lua54.can:84
+local scope = peek("scope") -- ./compiler/lua54.can:85
+local var = ("%s_%s"):format(options["variablePrefix"], # scope) -- ./compiler/lua54.can:86
+table["insert"](scope, var) -- ./compiler/lua54.can:87
+return var -- ./compiler/lua54.can:88
+end -- ./compiler/lua54.can:88
+local nomacro = { -- ./compiler/lua54.can:92
+["variables"] = {}, -- ./compiler/lua54.can:92
+["functions"] = {} -- ./compiler/lua54.can:92
+} -- ./compiler/lua54.can:92
+local required = {} -- ./compiler/lua54.can:95
+local requireStr = "" -- ./compiler/lua54.can:96
+local function addRequire(mod, name, field) -- ./compiler/lua54.can:98
+local req = ("require(%q)%s"):format(mod, field and "." .. field or "") -- ./compiler/lua54.can:99
+if not required[req] then -- ./compiler/lua54.can:100
+requireStr = requireStr .. (("local %s = %s%s"):format(var(name), req, options["newline"])) -- ./compiler/lua54.can:101
+required[req] = true -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+end -- ./compiler/lua54.can:102
+local loop = { -- ./compiler/lua54.can:107
+"While", -- ./compiler/lua54.can:107
+"Repeat", -- ./compiler/lua54.can:107
+"Fornum", -- ./compiler/lua54.can:107
+"Forin", -- ./compiler/lua54.can:107
+"WhileExpr", -- ./compiler/lua54.can:107
+"RepeatExpr", -- ./compiler/lua54.can:107
+"FornumExpr", -- ./compiler/lua54.can:107
+"ForinExpr" -- ./compiler/lua54.can:107
+} -- ./compiler/lua54.can:107
+local func = { -- ./compiler/lua54.can:108
+"Function", -- ./compiler/lua54.can:108
+"TableCompr", -- ./compiler/lua54.can:108
+"DoExpr", -- ./compiler/lua54.can:108
+"WhileExpr", -- ./compiler/lua54.can:108
+"RepeatExpr", -- ./compiler/lua54.can:108
+"IfExpr", -- ./compiler/lua54.can:108
+"FornumExpr", -- ./compiler/lua54.can:108
+"ForinExpr" -- ./compiler/lua54.can:108
+} -- ./compiler/lua54.can:108
+local function any(list, tags, nofollow) -- ./compiler/lua54.can:112
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:112
+local tagsCheck = {} -- ./compiler/lua54.can:113
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:114
+tagsCheck[tag] = true -- ./compiler/lua54.can:115
+end -- ./compiler/lua54.can:115
+local nofollowCheck = {} -- ./compiler/lua54.can:117
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:118
+nofollowCheck[tag] = true -- ./compiler/lua54.can:119
+end -- ./compiler/lua54.can:119
+for _, node in ipairs(list) do -- ./compiler/lua54.can:121
+if type(node) == "table" then -- ./compiler/lua54.can:122
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:123
+return node -- ./compiler/lua54.can:124
+end -- ./compiler/lua54.can:124
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:126
+local r = any(node, tags, nofollow) -- ./compiler/lua54.can:127
+if r then -- ./compiler/lua54.can:128
+return r -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+end -- ./compiler/lua54.can:128
+return nil -- ./compiler/lua54.can:132
+end -- ./compiler/lua54.can:132
+local function search(list, tags, nofollow) -- ./compiler/lua54.can:137
+if nofollow == nil then nofollow = {} end -- ./compiler/lua54.can:137
+local tagsCheck = {} -- ./compiler/lua54.can:138
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:139
+tagsCheck[tag] = true -- ./compiler/lua54.can:140
+end -- ./compiler/lua54.can:140
+local nofollowCheck = {} -- ./compiler/lua54.can:142
+for _, tag in ipairs(nofollow) do -- ./compiler/lua54.can:143
+nofollowCheck[tag] = true -- ./compiler/lua54.can:144
+end -- ./compiler/lua54.can:144
+local found = {} -- ./compiler/lua54.can:146
+for _, node in ipairs(list) do -- ./compiler/lua54.can:147
+if type(node) == "table" then -- ./compiler/lua54.can:148
+if not nofollowCheck[node["tag"]] then -- ./compiler/lua54.can:149
+for _, n in ipairs(search(node, tags, nofollow)) do -- ./compiler/lua54.can:150
+table["insert"](found, n) -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+end -- ./compiler/lua54.can:151
+if tagsCheck[node["tag"]] then -- ./compiler/lua54.can:154
+table["insert"](found, node) -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+end -- ./compiler/lua54.can:155
+return found -- ./compiler/lua54.can:159
+end -- ./compiler/lua54.can:159
+local function all(list, tags) -- ./compiler/lua54.can:163
+for _, node in ipairs(list) do -- ./compiler/lua54.can:164
+local ok = false -- ./compiler/lua54.can:165
+for _, tag in ipairs(tags) do -- ./compiler/lua54.can:166
+if node["tag"] == tag then -- ./compiler/lua54.can:167
+ok = true -- ./compiler/lua54.can:168
+break -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+end -- ./compiler/lua54.can:169
+if not ok then -- ./compiler/lua54.can:172
+return false -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+end -- ./compiler/lua54.can:173
+return true -- ./compiler/lua54.can:176
+end -- ./compiler/lua54.can:176
+local tags -- ./compiler/lua54.can:180
+local function lua(ast, forceTag, ...) -- ./compiler/lua54.can:182
+if options["mapLines"] and ast["pos"] then -- ./compiler/lua54.can:183
+lastInputPos = ast["pos"] -- ./compiler/lua54.can:184
 end -- ./compiler/lua54.can:184
-local UNPACK = function(list, i, j) -- ./compiler/lua54.can:188
-return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:189
-end -- ./compiler/lua54.can:189
-local APPEND = function(t, toAppend) -- ./compiler/lua54.can:191
-return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:192
-end -- ./compiler/lua54.can:192
-local CONTINUE_START = function() -- ./compiler/lua54.can:194
-return "do" .. indent() -- ./compiler/lua54.can:195
-end -- ./compiler/lua54.can:195
-local CONTINUE_STOP = function() -- ./compiler/lua54.can:197
-return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:198
-end -- ./compiler/lua54.can:198
-local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:200
-if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:200
-if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:200
-local vars = {} -- ./compiler/lua54.can:201
-local values = {} -- ./compiler/lua54.can:202
-for _, list in ipairs(destructured) do -- ./compiler/lua54.can:203
-for _, v in ipairs(list) do -- ./compiler/lua54.can:204
-local var, val -- ./compiler/lua54.can:205
-if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:206
-var = v -- ./compiler/lua54.can:207
-val = { -- ./compiler/lua54.can:208
-["tag"] = "Index", -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "Id", -- ./compiler/lua54.can:208
-list["id"] -- ./compiler/lua54.can:208
-}, -- ./compiler/lua54.can:208
-{ -- ./compiler/lua54.can:208
-["tag"] = "String", -- ./compiler/lua54.can:208
-v[1] -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-} -- ./compiler/lua54.can:208
-elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:209
-var = v[2] -- ./compiler/lua54.can:210
-val = { -- ./compiler/lua54.can:211
-["tag"] = "Index", -- ./compiler/lua54.can:211
-{ -- ./compiler/lua54.can:211
-["tag"] = "Id", -- ./compiler/lua54.can:211
-list["id"] -- ./compiler/lua54.can:211
-}, -- ./compiler/lua54.can:211
-v[1] -- ./compiler/lua54.can:211
-} -- ./compiler/lua54.can:211
-else -- ./compiler/lua54.can:211
-error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:213
-end -- ./compiler/lua54.can:213
-if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:215
-val = { -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["rightOp"], -- ./compiler/lua54.can:216
-var, -- ./compiler/lua54.can:216
-{ -- ./compiler/lua54.can:216
-["tag"] = "Op", -- ./compiler/lua54.can:216
-destructured["leftOp"], -- ./compiler/lua54.can:216
-val, -- ./compiler/lua54.can:216
-var -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-} -- ./compiler/lua54.can:216
-elseif destructured["rightOp"] then -- ./compiler/lua54.can:217
+return tags[forceTag or ast["tag"]](ast, ...) -- ./compiler/lua54.can:186
+end -- ./compiler/lua54.can:186
+local UNPACK = function(list, i, j) -- ./compiler/lua54.can:190
+return "table.unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/lua54.can:191
+end -- ./compiler/lua54.can:191
+local APPEND = function(t, toAppend) -- ./compiler/lua54.can:193
+return "do" .. indent() .. "local " .. var("a") .. " = table.pack(" .. toAppend .. ")" .. newline() .. "table.move(" .. var("a") .. ", 1, " .. var("a") .. ".n, #" .. t .. "+1, " .. t .. ")" .. unindent() .. "end" -- ./compiler/lua54.can:194
+end -- ./compiler/lua54.can:194
+local CONTINUE_START = function() -- ./compiler/lua54.can:196
+return "do" .. indent() -- ./compiler/lua54.can:197
+end -- ./compiler/lua54.can:197
+local CONTINUE_STOP = function() -- ./compiler/lua54.can:199
+return unindent() .. "end" .. newline() .. "::" .. var("continue") .. "::" -- ./compiler/lua54.can:200
+end -- ./compiler/lua54.can:200
+local DESTRUCTURING_ASSIGN = function(destructured, newlineAfter, noLocal) -- ./compiler/lua54.can:202
+if newlineAfter == nil then newlineAfter = false end -- ./compiler/lua54.can:202
+if noLocal == nil then noLocal = false end -- ./compiler/lua54.can:202
+local vars = {} -- ./compiler/lua54.can:203
+local values = {} -- ./compiler/lua54.can:204
+for _, list in ipairs(destructured) do -- ./compiler/lua54.can:205
+for _, v in ipairs(list) do -- ./compiler/lua54.can:206
+local var, val -- ./compiler/lua54.can:207
+if v["tag"] == "Id" or v["tag"] == "AttributeId" then -- ./compiler/lua54.can:208
+var = v -- ./compiler/lua54.can:209
+val = { -- ./compiler/lua54.can:210
+["tag"] = "Index", -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "Id", -- ./compiler/lua54.can:210
+list["id"] -- ./compiler/lua54.can:210
+}, -- ./compiler/lua54.can:210
+{ -- ./compiler/lua54.can:210
+["tag"] = "String", -- ./compiler/lua54.can:210
+v[1] -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+} -- ./compiler/lua54.can:210
+elseif v["tag"] == "Pair" then -- ./compiler/lua54.can:211
+var = v[2] -- ./compiler/lua54.can:212
+val = { -- ./compiler/lua54.can:213
+["tag"] = "Index", -- ./compiler/lua54.can:213
+{ -- ./compiler/lua54.can:213
+["tag"] = "Id", -- ./compiler/lua54.can:213
+list["id"] -- ./compiler/lua54.can:213
+}, -- ./compiler/lua54.can:213
+v[1] -- ./compiler/lua54.can:213
+} -- ./compiler/lua54.can:213
+else -- ./compiler/lua54.can:213
+error("unknown destructuring element type: " .. tostring(v["tag"])) -- ./compiler/lua54.can:215
+end -- ./compiler/lua54.can:215
+if destructured["rightOp"] and destructured["leftOp"] then -- ./compiler/lua54.can:217
 val = { -- ./compiler/lua54.can:218
 ["tag"] = "Op", -- ./compiler/lua54.can:218
 destructured["rightOp"], -- ./compiler/lua54.can:218
 var, -- ./compiler/lua54.can:218
-val -- ./compiler/lua54.can:218
+{ -- ./compiler/lua54.can:218
+["tag"] = "Op", -- ./compiler/lua54.can:218
+destructured["leftOp"], -- ./compiler/lua54.can:218
+val, -- ./compiler/lua54.can:218
+var -- ./compiler/lua54.can:218
 } -- ./compiler/lua54.can:218
-elseif destructured["leftOp"] then -- ./compiler/lua54.can:219
+} -- ./compiler/lua54.can:218
+elseif destructured["rightOp"] then -- ./compiler/lua54.can:219
 val = { -- ./compiler/lua54.can:220
 ["tag"] = "Op", -- ./compiler/lua54.can:220
-destructured["leftOp"], -- ./compiler/lua54.can:220
-val, -- ./compiler/lua54.can:220
-var -- ./compiler/lua54.can:220
+destructured["rightOp"], -- ./compiler/lua54.can:220
+var, -- ./compiler/lua54.can:220
+val -- ./compiler/lua54.can:220
 } -- ./compiler/lua54.can:220
-end -- ./compiler/lua54.can:220
-table["insert"](vars, lua(var)) -- ./compiler/lua54.can:222
-table["insert"](values, lua(val)) -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-end -- ./compiler/lua54.can:223
-if # vars > 0 then -- ./compiler/lua54.can:226
-local decl = noLocal and "" or "local " -- ./compiler/lua54.can:227
-if newlineAfter then -- ./compiler/lua54.can:228
-return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:229
-else -- ./compiler/lua54.can:229
-return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:231
-end -- ./compiler/lua54.can:231
+elseif destructured["leftOp"] then -- ./compiler/lua54.can:221
+val = { -- ./compiler/lua54.can:222
+["tag"] = "Op", -- ./compiler/lua54.can:222
+destructured["leftOp"], -- ./compiler/lua54.can:222
+val, -- ./compiler/lua54.can:222
+var -- ./compiler/lua54.can:222
+} -- ./compiler/lua54.can:222
+end -- ./compiler/lua54.can:222
+table["insert"](vars, lua(var)) -- ./compiler/lua54.can:224
+table["insert"](values, lua(val)) -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+end -- ./compiler/lua54.can:225
+if # vars > 0 then -- ./compiler/lua54.can:228
+local decl = noLocal and "" or "local " -- ./compiler/lua54.can:229
+if newlineAfter then -- ./compiler/lua54.can:230
+return decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") .. newline() -- ./compiler/lua54.can:231
 else -- ./compiler/lua54.can:231
-return "" -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-end -- ./compiler/lua54.can:234
-tags = setmetatable({ -- ./compiler/lua54.can:239
-["Block"] = function(t) -- ./compiler/lua54.can:241
-local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:242
-if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:243
-hasPush["tag"] = "Return" -- ./compiler/lua54.can:244
-hasPush = false -- ./compiler/lua54.can:245
-end -- ./compiler/lua54.can:245
-local r = push("scope", {}) -- ./compiler/lua54.can:247
-if hasPush then -- ./compiler/lua54.can:248
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:249
-end -- ./compiler/lua54.can:249
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:251
-r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:252
-end -- ./compiler/lua54.can:252
-if t[# t] then -- ./compiler/lua54.can:254
-r = r .. (lua(t[# t])) -- ./compiler/lua54.can:255
-end -- ./compiler/lua54.can:255
-if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:257
-r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:258
-end -- ./compiler/lua54.can:258
-return r .. pop("scope") -- ./compiler/lua54.can:260
-end, -- ./compiler/lua54.can:260
-["Do"] = function(t) -- ./compiler/lua54.can:266
-return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:267
-end, -- ./compiler/lua54.can:267
-["Set"] = function(t) -- ./compiler/lua54.can:270
-local expr = t[# t] -- ./compiler/lua54.can:272
-local vars, values = {}, {} -- ./compiler/lua54.can:273
-local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:274
-for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:275
-if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:276
-table["insert"](destructuringVars, n) -- ./compiler/lua54.can:277
-table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:278
-else -- ./compiler/lua54.can:278
-table["insert"](vars, n) -- ./compiler/lua54.can:280
-table["insert"](values, expr[i]) -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-end -- ./compiler/lua54.can:281
-if # t == 2 or # t == 3 then -- ./compiler/lua54.can:285
-local r = "" -- ./compiler/lua54.can:286
-if # vars > 0 then -- ./compiler/lua54.can:287
-r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:288
-end -- ./compiler/lua54.can:288
-if # destructuringVars > 0 then -- ./compiler/lua54.can:290
-local destructured = {} -- ./compiler/lua54.can:291
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:292
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:293
-end -- ./compiler/lua54.can:293
-return r -- ./compiler/lua54.can:295
-elseif # t == 4 then -- ./compiler/lua54.can:296
-if t[3] == "=" then -- ./compiler/lua54.can:297
-local r = "" -- ./compiler/lua54.can:298
-if # vars > 0 then -- ./compiler/lua54.can:299
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:300
-t[2], -- ./compiler/lua54.can:300
-vars[1], -- ./compiler/lua54.can:300
-{ -- ./compiler/lua54.can:300
-["tag"] = "Paren", -- ./compiler/lua54.can:300
-values[1] -- ./compiler/lua54.can:300
-} -- ./compiler/lua54.can:300
-}, "Op")) -- ./compiler/lua54.can:300
-for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:301
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:302
+return newline() .. decl .. table["concat"](vars, ", ") .. " = " .. table["concat"](values, ", ") -- ./compiler/lua54.can:233
+end -- ./compiler/lua54.can:233
+else -- ./compiler/lua54.can:233
+return "" -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+end -- ./compiler/lua54.can:236
+tags = setmetatable({ -- ./compiler/lua54.can:241
+["Block"] = function(t) -- ./compiler/lua54.can:243
+local hasPush = peek("push") == nil and any(t, { "Push" }, func) -- ./compiler/lua54.can:244
+if hasPush and hasPush == t[# t] then -- ./compiler/lua54.can:245
+hasPush["tag"] = "Return" -- ./compiler/lua54.can:246
+hasPush = false -- ./compiler/lua54.can:247
+end -- ./compiler/lua54.can:247
+local r = push("scope", {}) -- ./compiler/lua54.can:249
+if hasPush then -- ./compiler/lua54.can:250
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:251
+end -- ./compiler/lua54.can:251
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:253
+r = r .. (lua(t[i]) .. newline()) -- ./compiler/lua54.can:254
+end -- ./compiler/lua54.can:254
+if t[# t] then -- ./compiler/lua54.can:256
+r = r .. (lua(t[# t])) -- ./compiler/lua54.can:257
+end -- ./compiler/lua54.can:257
+if hasPush and (t[# t] and t[# t]["tag"] ~= "Return") then -- ./compiler/lua54.can:259
+r = r .. (newline() .. "return " .. UNPACK(var("push")) .. pop("push")) -- ./compiler/lua54.can:260
+end -- ./compiler/lua54.can:260
+return r .. pop("scope") -- ./compiler/lua54.can:262
+end, -- ./compiler/lua54.can:262
+["Do"] = function(t) -- ./compiler/lua54.can:268
+return "do" .. indent() .. lua(t, "Block") .. unindent() .. "end" -- ./compiler/lua54.can:269
+end, -- ./compiler/lua54.can:269
+["Set"] = function(t) -- ./compiler/lua54.can:272
+local expr = t[# t] -- ./compiler/lua54.can:274
+local vars, values = {}, {} -- ./compiler/lua54.can:275
+local destructuringVars, destructuringValues = {}, {} -- ./compiler/lua54.can:276
+for i, n in ipairs(t[1]) do -- ./compiler/lua54.can:277
+if n["tag"] == "DestructuringId" then -- ./compiler/lua54.can:278
+table["insert"](destructuringVars, n) -- ./compiler/lua54.can:279
+table["insert"](destructuringValues, expr[i]) -- ./compiler/lua54.can:280
+else -- ./compiler/lua54.can:280
+table["insert"](vars, n) -- ./compiler/lua54.can:282
+table["insert"](values, expr[i]) -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+end -- ./compiler/lua54.can:283
+if # t == 2 or # t == 3 then -- ./compiler/lua54.can:287
+local r = "" -- ./compiler/lua54.can:288
+if # vars > 0 then -- ./compiler/lua54.can:289
+r = lua(vars, "_lhs") .. " = " .. lua(values, "_lhs") -- ./compiler/lua54.can:290
+end -- ./compiler/lua54.can:290
+if # destructuringVars > 0 then -- ./compiler/lua54.can:292
+local destructured = {} -- ./compiler/lua54.can:293
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:294
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:295
+end -- ./compiler/lua54.can:295
+return r -- ./compiler/lua54.can:297
+elseif # t == 4 then -- ./compiler/lua54.can:298
+if t[3] == "=" then -- ./compiler/lua54.can:299
+local r = "" -- ./compiler/lua54.can:300
+if # vars > 0 then -- ./compiler/lua54.can:301
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:302
 t[2], -- ./compiler/lua54.can:302
-vars[i], -- ./compiler/lua54.can:302
+vars[1], -- ./compiler/lua54.can:302
 { -- ./compiler/lua54.can:302
 ["tag"] = "Paren", -- ./compiler/lua54.can:302
-values[i] -- ./compiler/lua54.can:302
+values[1] -- ./compiler/lua54.can:302
 } -- ./compiler/lua54.can:302
 }, "Op")) -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-end -- ./compiler/lua54.can:302
-if # destructuringVars > 0 then -- ./compiler/lua54.can:305
-local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:306
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:307
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:308
-end -- ./compiler/lua54.can:308
-return r -- ./compiler/lua54.can:310
-else -- ./compiler/lua54.can:310
-local r = "" -- ./compiler/lua54.can:312
-if # vars > 0 then -- ./compiler/lua54.can:313
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:314
-t[3], -- ./compiler/lua54.can:314
-{ -- ./compiler/lua54.can:314
-["tag"] = "Paren", -- ./compiler/lua54.can:314
-values[1] -- ./compiler/lua54.can:314
-}, -- ./compiler/lua54.can:314
-vars[1] -- ./compiler/lua54.can:314
-}, "Op")) -- ./compiler/lua54.can:314
-for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:315
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:316
+for i = 2, math["min"](# t[4], # vars), 1 do -- ./compiler/lua54.can:303
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:304
+t[2], -- ./compiler/lua54.can:304
+vars[i], -- ./compiler/lua54.can:304
+{ -- ./compiler/lua54.can:304
+["tag"] = "Paren", -- ./compiler/lua54.can:304
+values[i] -- ./compiler/lua54.can:304
+} -- ./compiler/lua54.can:304
+}, "Op")) -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+end -- ./compiler/lua54.can:304
+if # destructuringVars > 0 then -- ./compiler/lua54.can:307
+local destructured = { ["rightOp"] = t[2] } -- ./compiler/lua54.can:308
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:309
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:310
+end -- ./compiler/lua54.can:310
+return r -- ./compiler/lua54.can:312
+else -- ./compiler/lua54.can:312
+local r = "" -- ./compiler/lua54.can:314
+if # vars > 0 then -- ./compiler/lua54.can:315
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:316
 t[3], -- ./compiler/lua54.can:316
 { -- ./compiler/lua54.can:316
 ["tag"] = "Paren", -- ./compiler/lua54.can:316
-values[i] -- ./compiler/lua54.can:316
+values[1] -- ./compiler/lua54.can:316
 }, -- ./compiler/lua54.can:316
-vars[i] -- ./compiler/lua54.can:316
+vars[1] -- ./compiler/lua54.can:316
 }, "Op")) -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-end -- ./compiler/lua54.can:316
-if # destructuringVars > 0 then -- ./compiler/lua54.can:319
-local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:320
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:321
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:322
-end -- ./compiler/lua54.can:322
-return r -- ./compiler/lua54.can:324
+for i = 2, math["min"](# t[4], # t[1]), 1 do -- ./compiler/lua54.can:317
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:318
+t[3], -- ./compiler/lua54.can:318
+{ -- ./compiler/lua54.can:318
+["tag"] = "Paren", -- ./compiler/lua54.can:318
+values[i] -- ./compiler/lua54.can:318
+}, -- ./compiler/lua54.can:318
+vars[i] -- ./compiler/lua54.can:318
+}, "Op")) -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+end -- ./compiler/lua54.can:318
+if # destructuringVars > 0 then -- ./compiler/lua54.can:321
+local destructured = { ["leftOp"] = t[3] } -- ./compiler/lua54.can:322
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:323
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:324
 end -- ./compiler/lua54.can:324
-else -- ./compiler/lua54.can:324
-local r = "" -- ./compiler/lua54.can:327
-if # vars > 0 then -- ./compiler/lua54.can:328
-r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:329
-t[2], -- ./compiler/lua54.can:329
-vars[1], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Op", -- ./compiler/lua54.can:329
-t[4], -- ./compiler/lua54.can:329
-{ -- ./compiler/lua54.can:329
-["tag"] = "Paren", -- ./compiler/lua54.can:329
-values[1] -- ./compiler/lua54.can:329
-}, -- ./compiler/lua54.can:329
-vars[1] -- ./compiler/lua54.can:329
-} -- ./compiler/lua54.can:329
-}, "Op")) -- ./compiler/lua54.can:329
-for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:330
-r = r .. (", " .. lua({ -- ./compiler/lua54.can:331
+return r -- ./compiler/lua54.can:326
+end -- ./compiler/lua54.can:326
+else -- ./compiler/lua54.can:326
+local r = "" -- ./compiler/lua54.can:329
+if # vars > 0 then -- ./compiler/lua54.can:330
+r = r .. (lua(vars, "_lhs") .. " = " .. lua({ -- ./compiler/lua54.can:331
 t[2], -- ./compiler/lua54.can:331
-vars[i], -- ./compiler/lua54.can:331
+vars[1], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Op", -- ./compiler/lua54.can:331
 t[4], -- ./compiler/lua54.can:331
 { -- ./compiler/lua54.can:331
 ["tag"] = "Paren", -- ./compiler/lua54.can:331
-values[i] -- ./compiler/lua54.can:331
+values[1] -- ./compiler/lua54.can:331
 }, -- ./compiler/lua54.can:331
-vars[i] -- ./compiler/lua54.can:331
+vars[1] -- ./compiler/lua54.can:331
 } -- ./compiler/lua54.can:331
 }, "Op")) -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-end -- ./compiler/lua54.can:331
-if # destructuringVars > 0 then -- ./compiler/lua54.can:334
-local destructured = { -- ./compiler/lua54.can:335
-["rightOp"] = t[2], -- ./compiler/lua54.can:335
-["leftOp"] = t[4] -- ./compiler/lua54.can:335
-} -- ./compiler/lua54.can:335
-r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:336
-return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:337
-end -- ./compiler/lua54.can:337
-return r -- ./compiler/lua54.can:339
+for i = 2, math["min"](# t[5], # t[1]), 1 do -- ./compiler/lua54.can:332
+r = r .. (", " .. lua({ -- ./compiler/lua54.can:333
+t[2], -- ./compiler/lua54.can:333
+vars[i], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Op", -- ./compiler/lua54.can:333
+t[4], -- ./compiler/lua54.can:333
+{ -- ./compiler/lua54.can:333
+["tag"] = "Paren", -- ./compiler/lua54.can:333
+values[i] -- ./compiler/lua54.can:333
+}, -- ./compiler/lua54.can:333
+vars[i] -- ./compiler/lua54.can:333
+} -- ./compiler/lua54.can:333
+}, "Op")) -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+end -- ./compiler/lua54.can:333
+if # destructuringVars > 0 then -- ./compiler/lua54.can:336
+local destructured = { -- ./compiler/lua54.can:337
+["rightOp"] = t[2], -- ./compiler/lua54.can:337
+["leftOp"] = t[4] -- ./compiler/lua54.can:337
+} -- ./compiler/lua54.can:337
+r = r .. ("local " .. push("destructuring", destructured) .. lua(destructuringVars, "_lhs") .. pop("destructuring") .. " = " .. lua(destructuringValues, "_lhs")) -- ./compiler/lua54.can:338
+return r .. DESTRUCTURING_ASSIGN(destructured, nil, true) -- ./compiler/lua54.can:339
 end -- ./compiler/lua54.can:339
-end, -- ./compiler/lua54.can:339
-["While"] = function(t) -- ./compiler/lua54.can:343
-local r = "" -- ./compiler/lua54.can:344
-local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:345
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:346
-if # lets > 0 then -- ./compiler/lua54.can:347
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:348
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:349
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-end -- ./compiler/lua54.can:350
-r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:353
-if # lets > 0 then -- ./compiler/lua54.can:354
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:355
-end -- ./compiler/lua54.can:355
-if hasContinue then -- ./compiler/lua54.can:357
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:358
-end -- ./compiler/lua54.can:358
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:360
-if hasContinue then -- ./compiler/lua54.can:361
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:362
-end -- ./compiler/lua54.can:362
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:364
-if # lets > 0 then -- ./compiler/lua54.can:365
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:366
-r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:367
-end -- ./compiler/lua54.can:367
-r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:369
+return r -- ./compiler/lua54.can:341
+end -- ./compiler/lua54.can:341
+end, -- ./compiler/lua54.can:341
+["While"] = function(t) -- ./compiler/lua54.can:345
+local r = "" -- ./compiler/lua54.can:346
+local hasContinue = any(t[2], { "Continue" }, loop) -- ./compiler/lua54.can:347
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:348
+if # lets > 0 then -- ./compiler/lua54.can:349
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:350
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:351
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+end -- ./compiler/lua54.can:352
+r = r .. ("while " .. lua(t[1]) .. " do" .. indent()) -- ./compiler/lua54.can:355
+if # lets > 0 then -- ./compiler/lua54.can:356
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:357
+end -- ./compiler/lua54.can:357
+if hasContinue then -- ./compiler/lua54.can:359
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:360
+end -- ./compiler/lua54.can:360
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:362
+if hasContinue then -- ./compiler/lua54.can:363
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:364
+end -- ./compiler/lua54.can:364
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:366
+if # lets > 0 then -- ./compiler/lua54.can:367
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:368
+r = r .. (newline() .. lua(l, "Set")) -- ./compiler/lua54.can:369
 end -- ./compiler/lua54.can:369
-return r -- ./compiler/lua54.can:371
-end, -- ./compiler/lua54.can:371
-["Repeat"] = function(t) -- ./compiler/lua54.can:374
-local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:375
-local r = "repeat" .. indent() -- ./compiler/lua54.can:376
-if hasContinue then -- ./compiler/lua54.can:377
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:378
-end -- ./compiler/lua54.can:378
-r = r .. (lua(t[1])) -- ./compiler/lua54.can:380
-if hasContinue then -- ./compiler/lua54.can:381
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:382
-end -- ./compiler/lua54.can:382
-r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:384
-return r -- ./compiler/lua54.can:385
-end, -- ./compiler/lua54.can:385
-["If"] = function(t) -- ./compiler/lua54.can:388
-local r = "" -- ./compiler/lua54.can:389
-local toClose = 0 -- ./compiler/lua54.can:390
-local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:391
-if # lets > 0 then -- ./compiler/lua54.can:392
-r = r .. ("do" .. indent()) -- ./compiler/lua54.can:393
-toClose = toClose + (1) -- ./compiler/lua54.can:394
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:395
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-end -- ./compiler/lua54.can:396
-r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:399
-for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:400
-lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:401
-if # lets > 0 then -- ./compiler/lua54.can:402
-r = r .. ("else" .. indent()) -- ./compiler/lua54.can:403
-toClose = toClose + (1) -- ./compiler/lua54.can:404
-for _, l in ipairs(lets) do -- ./compiler/lua54.can:405
-r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:406
-end -- ./compiler/lua54.can:406
-else -- ./compiler/lua54.can:406
-r = r .. ("else") -- ./compiler/lua54.can:409
-end -- ./compiler/lua54.can:409
-r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:411
+r = r .. (unindent() .. "end" .. unindent() .. "end") -- ./compiler/lua54.can:371
+end -- ./compiler/lua54.can:371
+return r -- ./compiler/lua54.can:373
+end, -- ./compiler/lua54.can:373
+["Repeat"] = function(t) -- ./compiler/lua54.can:376
+local hasContinue = any(t[1], { "Continue" }, loop) -- ./compiler/lua54.can:377
+local r = "repeat" .. indent() -- ./compiler/lua54.can:378
+if hasContinue then -- ./compiler/lua54.can:379
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:380
+end -- ./compiler/lua54.can:380
+r = r .. (lua(t[1])) -- ./compiler/lua54.can:382
+if hasContinue then -- ./compiler/lua54.can:383
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:384
+end -- ./compiler/lua54.can:384
+r = r .. (unindent() .. "until " .. lua(t[2])) -- ./compiler/lua54.can:386
+return r -- ./compiler/lua54.can:387
+end, -- ./compiler/lua54.can:387
+["If"] = function(t) -- ./compiler/lua54.can:390
+local r = "" -- ./compiler/lua54.can:391
+local toClose = 0 -- ./compiler/lua54.can:392
+local lets = search({ t[1] }, { "LetExpr" }) -- ./compiler/lua54.can:393
+if # lets > 0 then -- ./compiler/lua54.can:394
+r = r .. ("do" .. indent()) -- ./compiler/lua54.can:395
+toClose = toClose + (1) -- ./compiler/lua54.can:396
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:397
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+end -- ./compiler/lua54.can:398
+r = r .. ("if " .. lua(t[1]) .. " then" .. indent() .. lua(t[2]) .. unindent()) -- ./compiler/lua54.can:401
+for i = 3, # t - 1, 2 do -- ./compiler/lua54.can:402
+lets = search({ t[i] }, { "LetExpr" }) -- ./compiler/lua54.can:403
+if # lets > 0 then -- ./compiler/lua54.can:404
+r = r .. ("else" .. indent()) -- ./compiler/lua54.can:405
+toClose = toClose + (1) -- ./compiler/lua54.can:406
+for _, l in ipairs(lets) do -- ./compiler/lua54.can:407
+r = r .. (lua(l, "Let") .. newline()) -- ./compiler/lua54.can:408
+end -- ./compiler/lua54.can:408
+else -- ./compiler/lua54.can:408
+r = r .. ("else") -- ./compiler/lua54.can:411
 end -- ./compiler/lua54.can:411
-if # t % 2 == 1 then -- ./compiler/lua54.can:413
-r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:414
-end -- ./compiler/lua54.can:414
-r = r .. ("end") -- ./compiler/lua54.can:416
-for i = 1, toClose do -- ./compiler/lua54.can:417
-r = r .. (unindent() .. "end") -- ./compiler/lua54.can:418
-end -- ./compiler/lua54.can:418
-return r -- ./compiler/lua54.can:420
-end, -- ./compiler/lua54.can:420
-["Fornum"] = function(t) -- ./compiler/lua54.can:423
-local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:424
-if # t == 5 then -- ./compiler/lua54.can:425
-local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:426
-r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:427
-if hasContinue then -- ./compiler/lua54.can:428
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:429
-end -- ./compiler/lua54.can:429
-r = r .. (lua(t[5])) -- ./compiler/lua54.can:431
-if hasContinue then -- ./compiler/lua54.can:432
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:433
-end -- ./compiler/lua54.can:433
-return r .. unindent() .. "end" -- ./compiler/lua54.can:435
-else -- ./compiler/lua54.can:435
-local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:437
-r = r .. (" do" .. indent()) -- ./compiler/lua54.can:438
-if hasContinue then -- ./compiler/lua54.can:439
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:440
-end -- ./compiler/lua54.can:440
-r = r .. (lua(t[4])) -- ./compiler/lua54.can:442
-if hasContinue then -- ./compiler/lua54.can:443
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:444
-end -- ./compiler/lua54.can:444
-return r .. unindent() .. "end" -- ./compiler/lua54.can:446
+r = r .. ("if " .. lua(t[i]) .. " then" .. indent() .. lua(t[i + 1]) .. unindent()) -- ./compiler/lua54.can:413
+end -- ./compiler/lua54.can:413
+if # t % 2 == 1 then -- ./compiler/lua54.can:415
+r = r .. ("else" .. indent() .. lua(t[# t]) .. unindent()) -- ./compiler/lua54.can:416
+end -- ./compiler/lua54.can:416
+r = r .. ("end") -- ./compiler/lua54.can:418
+for i = 1, toClose do -- ./compiler/lua54.can:419
+r = r .. (unindent() .. "end") -- ./compiler/lua54.can:420
+end -- ./compiler/lua54.can:420
+return r -- ./compiler/lua54.can:422
+end, -- ./compiler/lua54.can:422
+["Fornum"] = function(t) -- ./compiler/lua54.can:425
+local r = "for " .. lua(t[1]) .. " = " .. lua(t[2]) .. ", " .. lua(t[3]) -- ./compiler/lua54.can:426
+if # t == 5 then -- ./compiler/lua54.can:427
+local hasContinue = any(t[5], { "Continue" }, loop) -- ./compiler/lua54.can:428
+r = r .. (", " .. lua(t[4]) .. " do" .. indent()) -- ./compiler/lua54.can:429
+if hasContinue then -- ./compiler/lua54.can:430
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:431
+end -- ./compiler/lua54.can:431
+r = r .. (lua(t[5])) -- ./compiler/lua54.can:433
+if hasContinue then -- ./compiler/lua54.can:434
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:435
+end -- ./compiler/lua54.can:435
+return r .. unindent() .. "end" -- ./compiler/lua54.can:437
+else -- ./compiler/lua54.can:437
+local hasContinue = any(t[4], { "Continue" }, loop) -- ./compiler/lua54.can:439
+r = r .. (" do" .. indent()) -- ./compiler/lua54.can:440
+if hasContinue then -- ./compiler/lua54.can:441
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:442
+end -- ./compiler/lua54.can:442
+r = r .. (lua(t[4])) -- ./compiler/lua54.can:444
+if hasContinue then -- ./compiler/lua54.can:445
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:446
 end -- ./compiler/lua54.can:446
-end, -- ./compiler/lua54.can:446
-["Forin"] = function(t) -- ./compiler/lua54.can:450
-local destructured = {} -- ./compiler/lua54.can:451
-local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:452
-local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:453
-if hasContinue then -- ./compiler/lua54.can:454
-r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:455
-end -- ./compiler/lua54.can:455
-r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:457
-if hasContinue then -- ./compiler/lua54.can:458
-r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:459
-end -- ./compiler/lua54.can:459
-return r .. unindent() .. "end" -- ./compiler/lua54.can:461
-end, -- ./compiler/lua54.can:461
-["Local"] = function(t) -- ./compiler/lua54.can:464
-local destructured = {} -- ./compiler/lua54.can:465
-local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:466
-if t[2][1] then -- ./compiler/lua54.can:467
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:468
-end -- ./compiler/lua54.can:468
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:470
-end, -- ./compiler/lua54.can:470
-["Let"] = function(t) -- ./compiler/lua54.can:473
-local destructured = {} -- ./compiler/lua54.can:474
-local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:475
-local r = "local " .. nameList -- ./compiler/lua54.can:476
-if t[2][1] then -- ./compiler/lua54.can:477
-if all(t[2], { -- ./compiler/lua54.can:478
-"Nil", -- ./compiler/lua54.can:478
-"Dots", -- ./compiler/lua54.can:478
-"Boolean", -- ./compiler/lua54.can:478
-"Number", -- ./compiler/lua54.can:478
-"String" -- ./compiler/lua54.can:478
-}) then -- ./compiler/lua54.can:478
-r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:479
-else -- ./compiler/lua54.can:479
-r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-end -- ./compiler/lua54.can:481
-return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:484
-end, -- ./compiler/lua54.can:484
-["Localrec"] = function(t) -- ./compiler/lua54.can:487
-return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:488
-end, -- ./compiler/lua54.can:488
-["Goto"] = function(t) -- ./compiler/lua54.can:491
-return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:492
-end, -- ./compiler/lua54.can:492
-["Label"] = function(t) -- ./compiler/lua54.can:495
-return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:496
-end, -- ./compiler/lua54.can:496
-["Return"] = function(t) -- ./compiler/lua54.can:499
-local push = peek("push") -- ./compiler/lua54.can:500
-if push then -- ./compiler/lua54.can:501
-local r = "" -- ./compiler/lua54.can:502
-for _, val in ipairs(t) do -- ./compiler/lua54.can:503
-r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:504
-end -- ./compiler/lua54.can:504
-return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:506
-else -- ./compiler/lua54.can:506
-return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:508
-end -- ./compiler/lua54.can:508
-end, -- ./compiler/lua54.can:508
-["Push"] = function(t) -- ./compiler/lua54.can:512
-local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:513
-r = "" -- ./compiler/lua54.can:514
-for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:515
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:516
-end -- ./compiler/lua54.can:516
-if t[# t] then -- ./compiler/lua54.can:518
-if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:519
-r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:520
-else -- ./compiler/lua54.can:520
-r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-end -- ./compiler/lua54.can:522
-return r -- ./compiler/lua54.can:525
-end, -- ./compiler/lua54.can:525
-["Break"] = function() -- ./compiler/lua54.can:528
-return "break" -- ./compiler/lua54.can:529
-end, -- ./compiler/lua54.can:529
-["Continue"] = function() -- ./compiler/lua54.can:532
-return "goto " .. var("continue") -- ./compiler/lua54.can:533
-end, -- ./compiler/lua54.can:533
-["Nil"] = function() -- ./compiler/lua54.can:540
-return "nil" -- ./compiler/lua54.can:541
-end, -- ./compiler/lua54.can:541
-["Dots"] = function() -- ./compiler/lua54.can:544
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:545
-if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:546
-nomacro["variables"]["..."] = true -- ./compiler/lua54.can:547
-local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:548
-nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:549
-return r -- ./compiler/lua54.can:550
-else -- ./compiler/lua54.can:550
-return "..." -- ./compiler/lua54.can:552
-end -- ./compiler/lua54.can:552
-end, -- ./compiler/lua54.can:552
-["Boolean"] = function(t) -- ./compiler/lua54.can:556
-return tostring(t[1]) -- ./compiler/lua54.can:557
-end, -- ./compiler/lua54.can:557
-["Number"] = function(t) -- ./compiler/lua54.can:560
-return tostring(t[1]) -- ./compiler/lua54.can:561
-end, -- ./compiler/lua54.can:561
-["String"] = function(t) -- ./compiler/lua54.can:564
-return ("%q"):format(t[1]) -- ./compiler/lua54.can:565
-end, -- ./compiler/lua54.can:565
-["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:568
-local r = "(" -- ./compiler/lua54.can:569
-local decl = {} -- ./compiler/lua54.can:570
-if t[1][1] then -- ./compiler/lua54.can:571
-if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:572
-local id = lua(t[1][1][1]) -- ./compiler/lua54.can:573
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:574
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:575
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:576
-r = r .. (id) -- ./compiler/lua54.can:577
-else -- ./compiler/lua54.can:577
-r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:579
-end -- ./compiler/lua54.can:579
-for i = 2, # t[1], 1 do -- ./compiler/lua54.can:581
-if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:582
-local id = lua(t[1][i][1]) -- ./compiler/lua54.can:583
-indentLevel = indentLevel + (1) -- ./compiler/lua54.can:584
-table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:585
-indentLevel = indentLevel - (1) -- ./compiler/lua54.can:586
-r = r .. (", " .. id) -- ./compiler/lua54.can:587
-else -- ./compiler/lua54.can:587
-r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-end -- ./compiler/lua54.can:589
-r = r .. (")" .. indent()) -- ./compiler/lua54.can:593
-for _, d in ipairs(decl) do -- ./compiler/lua54.can:594
-r = r .. (d .. newline()) -- ./compiler/lua54.can:595
-end -- ./compiler/lua54.can:595
-if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:597
-t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:598
-end -- ./compiler/lua54.can:598
-local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:600
-if hasPush then -- ./compiler/lua54.can:601
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:602
-else -- ./compiler/lua54.can:602
-push("push", false) -- ./compiler/lua54.can:604
-end -- ./compiler/lua54.can:604
-r = r .. (lua(t[2])) -- ./compiler/lua54.can:606
-if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:607
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:608
-end -- ./compiler/lua54.can:608
-pop("push") -- ./compiler/lua54.can:610
-return r .. unindent() .. "end" -- ./compiler/lua54.can:611
-end, -- ./compiler/lua54.can:611
-["Function"] = function(t) -- ./compiler/lua54.can:613
-return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:614
-end, -- ./compiler/lua54.can:614
-["Pair"] = function(t) -- ./compiler/lua54.can:617
-return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:618
-end, -- ./compiler/lua54.can:618
-["Table"] = function(t) -- ./compiler/lua54.can:620
-if # t == 0 then -- ./compiler/lua54.can:621
-return "{}" -- ./compiler/lua54.can:622
-elseif # t == 1 then -- ./compiler/lua54.can:623
-return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:624
-else -- ./compiler/lua54.can:624
-return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:626
-end -- ./compiler/lua54.can:626
-end, -- ./compiler/lua54.can:626
-["TableCompr"] = function(t) -- ./compiler/lua54.can:630
-return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:631
-end, -- ./compiler/lua54.can:631
-["Op"] = function(t) -- ./compiler/lua54.can:634
-local r -- ./compiler/lua54.can:635
-if # t == 2 then -- ./compiler/lua54.can:636
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:637
-r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:638
-else -- ./compiler/lua54.can:638
-r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:640
-end -- ./compiler/lua54.can:640
+return r .. unindent() .. "end" -- ./compiler/lua54.can:448
+end -- ./compiler/lua54.can:448
+end, -- ./compiler/lua54.can:448
+["Forin"] = function(t) -- ./compiler/lua54.can:452
+local destructured = {} -- ./compiler/lua54.can:453
+local hasContinue = any(t[3], { "Continue" }, loop) -- ./compiler/lua54.can:454
+local r = "for " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") .. " in " .. lua(t[2], "_lhs") .. " do" .. indent() -- ./compiler/lua54.can:455
+if hasContinue then -- ./compiler/lua54.can:456
+r = r .. (CONTINUE_START()) -- ./compiler/lua54.can:457
+end -- ./compiler/lua54.can:457
+r = r .. (DESTRUCTURING_ASSIGN(destructured, true) .. lua(t[3])) -- ./compiler/lua54.can:459
+if hasContinue then -- ./compiler/lua54.can:460
+r = r .. (CONTINUE_STOP()) -- ./compiler/lua54.can:461
+end -- ./compiler/lua54.can:461
+return r .. unindent() .. "end" -- ./compiler/lua54.can:463
+end, -- ./compiler/lua54.can:463
+["Local"] = function(t) -- ./compiler/lua54.can:466
+local destructured = {} -- ./compiler/lua54.can:467
+local r = "local " .. push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:468
+if t[2][1] then -- ./compiler/lua54.can:469
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:470
+end -- ./compiler/lua54.can:470
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:472
+end, -- ./compiler/lua54.can:472
+["Let"] = function(t) -- ./compiler/lua54.can:475
+local destructured = {} -- ./compiler/lua54.can:476
+local nameList = push("destructuring", destructured) .. lua(t[1], "_lhs") .. pop("destructuring") -- ./compiler/lua54.can:477
+local r = "local " .. nameList -- ./compiler/lua54.can:478
+if t[2][1] then -- ./compiler/lua54.can:479
+if all(t[2], { -- ./compiler/lua54.can:480
+"Nil", -- ./compiler/lua54.can:480
+"Dots", -- ./compiler/lua54.can:480
+"Boolean", -- ./compiler/lua54.can:480
+"Number", -- ./compiler/lua54.can:480
+"String" -- ./compiler/lua54.can:480
+}) then -- ./compiler/lua54.can:480
+r = r .. (" = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:481
+else -- ./compiler/lua54.can:481
+r = r .. (newline() .. nameList .. " = " .. lua(t[2], "_lhs")) -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+end -- ./compiler/lua54.can:483
+return r .. DESTRUCTURING_ASSIGN(destructured) -- ./compiler/lua54.can:486
+end, -- ./compiler/lua54.can:486
+["Localrec"] = function(t) -- ./compiler/lua54.can:489
+return "local function " .. lua(t[1][1]) .. lua(t[2][1], "_functionWithoutKeyword") -- ./compiler/lua54.can:490
+end, -- ./compiler/lua54.can:490
+["Goto"] = function(t) -- ./compiler/lua54.can:493
+return "goto " .. lua(t, "Id") -- ./compiler/lua54.can:494
+end, -- ./compiler/lua54.can:494
+["Label"] = function(t) -- ./compiler/lua54.can:497
+return "::" .. lua(t, "Id") .. "::" -- ./compiler/lua54.can:498
+end, -- ./compiler/lua54.can:498
+["Return"] = function(t) -- ./compiler/lua54.can:501
+local push = peek("push") -- ./compiler/lua54.can:502
+if push then -- ./compiler/lua54.can:503
+local r = "" -- ./compiler/lua54.can:504
+for _, val in ipairs(t) do -- ./compiler/lua54.can:505
+r = r .. (push .. "[#" .. push .. "+1] = " .. lua(val) .. newline()) -- ./compiler/lua54.can:506
+end -- ./compiler/lua54.can:506
+return r .. "return " .. UNPACK(push) -- ./compiler/lua54.can:508
+else -- ./compiler/lua54.can:508
+return "return " .. lua(t, "_lhs") -- ./compiler/lua54.can:510
+end -- ./compiler/lua54.can:510
+end, -- ./compiler/lua54.can:510
+["Push"] = function(t) -- ./compiler/lua54.can:514
+local var = assert(peek("push"), "no context given for push") -- ./compiler/lua54.can:515
+r = "" -- ./compiler/lua54.can:516
+for i = 1, # t - 1, 1 do -- ./compiler/lua54.can:517
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[i]) .. newline()) -- ./compiler/lua54.can:518
+end -- ./compiler/lua54.can:518
+if t[# t] then -- ./compiler/lua54.can:520
+if t[# t]["tag"] == "Call" then -- ./compiler/lua54.can:521
+r = r .. (APPEND(var, lua(t[# t]))) -- ./compiler/lua54.can:522
+else -- ./compiler/lua54.can:522
+r = r .. (var .. "[#" .. var .. "+1] = " .. lua(t[# t])) -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+end -- ./compiler/lua54.can:524
+return r -- ./compiler/lua54.can:527
+end, -- ./compiler/lua54.can:527
+["Break"] = function() -- ./compiler/lua54.can:530
+return "break" -- ./compiler/lua54.can:531
+end, -- ./compiler/lua54.can:531
+["Continue"] = function() -- ./compiler/lua54.can:534
+return "goto " .. var("continue") -- ./compiler/lua54.can:535
+end, -- ./compiler/lua54.can:535
+["Nil"] = function() -- ./compiler/lua54.can:542
+return "nil" -- ./compiler/lua54.can:543
+end, -- ./compiler/lua54.can:543
+["Dots"] = function() -- ./compiler/lua54.can:546
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:547
+if macroargs and not nomacro["variables"]["..."] and macroargs["..."] then -- ./compiler/lua54.can:548
+nomacro["variables"]["..."] = true -- ./compiler/lua54.can:549
+local r = lua(macroargs["..."], "_lhs") -- ./compiler/lua54.can:550
+nomacro["variables"]["..."] = nil -- ./compiler/lua54.can:551
+return r -- ./compiler/lua54.can:552
+else -- ./compiler/lua54.can:552
+return "..." -- ./compiler/lua54.can:554
+end -- ./compiler/lua54.can:554
+end, -- ./compiler/lua54.can:554
+["Boolean"] = function(t) -- ./compiler/lua54.can:558
+return tostring(t[1]) -- ./compiler/lua54.can:559
+end, -- ./compiler/lua54.can:559
+["Number"] = function(t) -- ./compiler/lua54.can:562
+return tostring(t[1]) -- ./compiler/lua54.can:563
+end, -- ./compiler/lua54.can:563
+["String"] = function(t) -- ./compiler/lua54.can:566
+return ("%q"):format(t[1]) -- ./compiler/lua54.can:567
+end, -- ./compiler/lua54.can:567
+["_functionWithoutKeyword"] = function(t) -- ./compiler/lua54.can:570
+local r = "(" -- ./compiler/lua54.can:571
+local decl = {} -- ./compiler/lua54.can:572
+if t[1][1] then -- ./compiler/lua54.can:573
+if t[1][1]["tag"] == "ParPair" then -- ./compiler/lua54.can:574
+local id = lua(t[1][1][1]) -- ./compiler/lua54.can:575
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:576
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][1][2]) .. " end") -- ./compiler/lua54.can:577
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:578
+r = r .. (id) -- ./compiler/lua54.can:579
+else -- ./compiler/lua54.can:579
+r = r .. (lua(t[1][1])) -- ./compiler/lua54.can:581
+end -- ./compiler/lua54.can:581
+for i = 2, # t[1], 1 do -- ./compiler/lua54.can:583
+if t[1][i]["tag"] == "ParPair" then -- ./compiler/lua54.can:584
+local id = lua(t[1][i][1]) -- ./compiler/lua54.can:585
+indentLevel = indentLevel + (1) -- ./compiler/lua54.can:586
+table["insert"](decl, "if " .. id .. " == nil then " .. id .. " = " .. lua(t[1][i][2]) .. " end") -- ./compiler/lua54.can:587
+indentLevel = indentLevel - (1) -- ./compiler/lua54.can:588
+r = r .. (", " .. id) -- ./compiler/lua54.can:589
+else -- ./compiler/lua54.can:589
+r = r .. (", " .. lua(t[1][i])) -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+end -- ./compiler/lua54.can:591
+r = r .. (")" .. indent()) -- ./compiler/lua54.can:595
+for _, d in ipairs(decl) do -- ./compiler/lua54.can:596
+r = r .. (d .. newline()) -- ./compiler/lua54.can:597
+end -- ./compiler/lua54.can:597
+if t[2][# t[2]] and t[2][# t[2]]["tag"] == "Push" then -- ./compiler/lua54.can:599
+t[2][# t[2]]["tag"] = "Return" -- ./compiler/lua54.can:600
+end -- ./compiler/lua54.can:600
+local hasPush = any(t[2], { "Push" }, func) -- ./compiler/lua54.can:602
+if hasPush then -- ./compiler/lua54.can:603
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:604
+else -- ./compiler/lua54.can:604
+push("push", false) -- ./compiler/lua54.can:606
+end -- ./compiler/lua54.can:606
+r = r .. (lua(t[2])) -- ./compiler/lua54.can:608
+if hasPush and (t[2][# t[2]] and t[2][# t[2]]["tag"] ~= "Return") then -- ./compiler/lua54.can:609
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:610
+end -- ./compiler/lua54.can:610
+pop("push") -- ./compiler/lua54.can:612
+return r .. unindent() .. "end" -- ./compiler/lua54.can:613
+end, -- ./compiler/lua54.can:613
+["Function"] = function(t) -- ./compiler/lua54.can:615
+return "function" .. lua(t, "_functionWithoutKeyword") -- ./compiler/lua54.can:616
+end, -- ./compiler/lua54.can:616
+["Pair"] = function(t) -- ./compiler/lua54.can:619
+return "[" .. lua(t[1]) .. "] = " .. lua(t[2]) -- ./compiler/lua54.can:620
+end, -- ./compiler/lua54.can:620
+["Table"] = function(t) -- ./compiler/lua54.can:622
+if # t == 0 then -- ./compiler/lua54.can:623
+return "{}" -- ./compiler/lua54.can:624
+elseif # t == 1 then -- ./compiler/lua54.can:625
+return "{ " .. lua(t, "_lhs") .. " }" -- ./compiler/lua54.can:626
+else -- ./compiler/lua54.can:626
+return "{" .. indent() .. lua(t, "_lhs", nil, true) .. unindent() .. "}" -- ./compiler/lua54.can:628
+end -- ./compiler/lua54.can:628
+end, -- ./compiler/lua54.can:628
+["TableCompr"] = function(t) -- ./compiler/lua54.can:632
+return push("push", "self") .. "(function()" .. indent() .. "local self = {}" .. newline() .. lua(t[1]) .. newline() .. "return self" .. unindent() .. "end)()" .. pop("push") -- ./compiler/lua54.can:633
+end, -- ./compiler/lua54.can:633
+["Op"] = function(t) -- ./compiler/lua54.can:636
+local r -- ./compiler/lua54.can:637
+if # t == 2 then -- ./compiler/lua54.can:638
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:639
+r = tags["_opid"][t[1]] .. " " .. lua(t[2]) -- ./compiler/lua54.can:640
 else -- ./compiler/lua54.can:640
-if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:643
-r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:644
-else -- ./compiler/lua54.can:644
-r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-end -- ./compiler/lua54.can:646
-return r -- ./compiler/lua54.can:649
-end, -- ./compiler/lua54.can:649
-["Paren"] = function(t) -- ./compiler/lua54.can:652
-return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:653
-end, -- ./compiler/lua54.can:653
-["MethodStub"] = function(t) -- ./compiler/lua54.can:656
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:662
-end, -- ./compiler/lua54.can:662
-["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:665
-return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:672
-end, -- ./compiler/lua54.can:672
-["LetExpr"] = function(t) -- ./compiler/lua54.can:679
-return lua(t[1][1]) -- ./compiler/lua54.can:680
-end, -- ./compiler/lua54.can:680
-["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:684
-local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:685
-local r = "(function()" .. indent() -- ./compiler/lua54.can:686
-if hasPush then -- ./compiler/lua54.can:687
-r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:688
-else -- ./compiler/lua54.can:688
-push("push", false) -- ./compiler/lua54.can:690
-end -- ./compiler/lua54.can:690
-r = r .. (lua(t, stat)) -- ./compiler/lua54.can:692
-if hasPush then -- ./compiler/lua54.can:693
-r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:694
-end -- ./compiler/lua54.can:694
-pop("push") -- ./compiler/lua54.can:696
-r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:697
-return r -- ./compiler/lua54.can:698
-end, -- ./compiler/lua54.can:698
-["DoExpr"] = function(t) -- ./compiler/lua54.can:701
-if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:702
-t[# t]["tag"] = "Return" -- ./compiler/lua54.can:703
-end -- ./compiler/lua54.can:703
-return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:705
-end, -- ./compiler/lua54.can:705
-["WhileExpr"] = function(t) -- ./compiler/lua54.can:708
-return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:709
-end, -- ./compiler/lua54.can:709
-["RepeatExpr"] = function(t) -- ./compiler/lua54.can:712
-return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:713
-end, -- ./compiler/lua54.can:713
-["IfExpr"] = function(t) -- ./compiler/lua54.can:716
-for i = 2, # t do -- ./compiler/lua54.can:717
-local block = t[i] -- ./compiler/lua54.can:718
-if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:719
-block[# block]["tag"] = "Return" -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-end -- ./compiler/lua54.can:720
-return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:723
-end, -- ./compiler/lua54.can:723
-["FornumExpr"] = function(t) -- ./compiler/lua54.can:726
-return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:727
-end, -- ./compiler/lua54.can:727
-["ForinExpr"] = function(t) -- ./compiler/lua54.can:730
-return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:731
-end, -- ./compiler/lua54.can:731
-["Call"] = function(t) -- ./compiler/lua54.can:737
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:738
-return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:739
-elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:740
-local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:741
-local replacement = macro["replacement"] -- ./compiler/lua54.can:742
-local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:743
-for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:744
-if arg["tag"] == "Dots" then -- ./compiler/lua54.can:745
-macroargs["..."] = (function() -- ./compiler/lua54.can:746
-local self = {} -- ./compiler/lua54.can:746
-for j = i + 1, # t do -- ./compiler/lua54.can:746
-self[#self+1] = t[j] -- ./compiler/lua54.can:746
-end -- ./compiler/lua54.can:746
-return self -- ./compiler/lua54.can:746
-end)() -- ./compiler/lua54.can:746
-elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:747
-if t[i + 1] == nil then -- ./compiler/lua54.can:748
-error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:749
-end -- ./compiler/lua54.can:749
-macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:751
-else -- ./compiler/lua54.can:751
-error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-end -- ./compiler/lua54.can:753
-push("macroargs", macroargs) -- ./compiler/lua54.can:756
-nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:757
-local r = lua(replacement) -- ./compiler/lua54.can:758
-nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:759
-pop("macroargs") -- ./compiler/lua54.can:760
-return r -- ./compiler/lua54.can:761
-elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:762
-if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:763
-return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:764
-else -- ./compiler/lua54.can:764
-return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:766
-end -- ./compiler/lua54.can:766
-else -- ./compiler/lua54.can:766
-return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:769
+r = tags["_opid"][t[1]](t[2]) -- ./compiler/lua54.can:642
+end -- ./compiler/lua54.can:642
+else -- ./compiler/lua54.can:642
+if type(tags["_opid"][t[1]]) == "string" then -- ./compiler/lua54.can:645
+r = lua(t[2]) .. " " .. tags["_opid"][t[1]] .. " " .. lua(t[3]) -- ./compiler/lua54.can:646
+else -- ./compiler/lua54.can:646
+r = tags["_opid"][t[1]](t[2], t[3]) -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+end -- ./compiler/lua54.can:648
+return r -- ./compiler/lua54.can:651
+end, -- ./compiler/lua54.can:651
+["Paren"] = function(t) -- ./compiler/lua54.can:654
+return "(" .. lua(t[1]) .. ")" -- ./compiler/lua54.can:655
+end, -- ./compiler/lua54.can:655
+["MethodStub"] = function(t) -- ./compiler/lua54.can:658
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:664
+end, -- ./compiler/lua54.can:664
+["SafeMethodStub"] = function(t) -- ./compiler/lua54.can:667
+return "(function()" .. indent() .. "local " .. var("object") .. " = " .. lua(t[1]) .. newline() .. "if " .. var("object") .. " == nil then return nil end" .. newline() .. "local " .. var("method") .. " = " .. var("object") .. "." .. lua(t[2], "Id") .. newline() .. "if " .. var("method") .. " == nil then return nil end" .. newline() .. "return function(...) return " .. var("method") .. "(" .. var("object") .. ", ...) end" .. unindent() .. "end)()" -- ./compiler/lua54.can:674
+end, -- ./compiler/lua54.can:674
+["LetExpr"] = function(t) -- ./compiler/lua54.can:681
+return lua(t[1][1]) -- ./compiler/lua54.can:682
+end, -- ./compiler/lua54.can:682
+["_statexpr"] = function(t, stat) -- ./compiler/lua54.can:686
+local hasPush = any(t, { "Push" }, func) -- ./compiler/lua54.can:687
+local r = "(function()" .. indent() -- ./compiler/lua54.can:688
+if hasPush then -- ./compiler/lua54.can:689
+r = r .. (push("push", var("push")) .. "local " .. var("push") .. " = {}" .. newline()) -- ./compiler/lua54.can:690
+else -- ./compiler/lua54.can:690
+push("push", false) -- ./compiler/lua54.can:692
+end -- ./compiler/lua54.can:692
+r = r .. (lua(t, stat)) -- ./compiler/lua54.can:694
+if hasPush then -- ./compiler/lua54.can:695
+r = r .. (newline() .. "return " .. UNPACK(var("push"))) -- ./compiler/lua54.can:696
+end -- ./compiler/lua54.can:696
+pop("push") -- ./compiler/lua54.can:698
+r = r .. (unindent() .. "end)()") -- ./compiler/lua54.can:699
+return r -- ./compiler/lua54.can:700
+end, -- ./compiler/lua54.can:700
+["DoExpr"] = function(t) -- ./compiler/lua54.can:703
+if t[# t]["tag"] == "Push" then -- ./compiler/lua54.can:704
+t[# t]["tag"] = "Return" -- ./compiler/lua54.can:705
+end -- ./compiler/lua54.can:705
+return lua(t, "_statexpr", "Do") -- ./compiler/lua54.can:707
+end, -- ./compiler/lua54.can:707
+["WhileExpr"] = function(t) -- ./compiler/lua54.can:710
+return lua(t, "_statexpr", "While") -- ./compiler/lua54.can:711
+end, -- ./compiler/lua54.can:711
+["RepeatExpr"] = function(t) -- ./compiler/lua54.can:714
+return lua(t, "_statexpr", "Repeat") -- ./compiler/lua54.can:715
+end, -- ./compiler/lua54.can:715
+["IfExpr"] = function(t) -- ./compiler/lua54.can:718
+for i = 2, # t do -- ./compiler/lua54.can:719
+local block = t[i] -- ./compiler/lua54.can:720
+if block[# block] and block[# block]["tag"] == "Push" then -- ./compiler/lua54.can:721
+block[# block]["tag"] = "Return" -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+end -- ./compiler/lua54.can:722
+return lua(t, "_statexpr", "If") -- ./compiler/lua54.can:725
+end, -- ./compiler/lua54.can:725
+["FornumExpr"] = function(t) -- ./compiler/lua54.can:728
+return lua(t, "_statexpr", "Fornum") -- ./compiler/lua54.can:729
+end, -- ./compiler/lua54.can:729
+["ForinExpr"] = function(t) -- ./compiler/lua54.can:732
+return lua(t, "_statexpr", "Forin") -- ./compiler/lua54.can:733
+end, -- ./compiler/lua54.can:733
+["Call"] = function(t) -- ./compiler/lua54.can:739
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:740
+return "(" .. lua(t[1]) .. ")(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:741
+elseif t[1]["tag"] == "Id" and not nomacro["functions"][t[1][1]] and macros["functions"][t[1][1]] then -- ./compiler/lua54.can:742
+local macro = macros["functions"][t[1][1]] -- ./compiler/lua54.can:743
+local replacement = macro["replacement"] -- ./compiler/lua54.can:744
+local r -- ./compiler/lua54.can:745
+nomacro["functions"][t[1][1]] = true -- ./compiler/lua54.can:746
+if type(replacement) == "function" then -- ./compiler/lua54.can:747
+local args = {} -- ./compiler/lua54.can:748
+for i = 2, # t do -- ./compiler/lua54.can:749
+table["insert"](args, lua(t[i])) -- ./compiler/lua54.can:750
+end -- ./compiler/lua54.can:750
+r = replacement(unpack(args)) -- ./compiler/lua54.can:752
+else -- ./compiler/lua54.can:752
+local macroargs = util["merge"](peek("macroargs")) -- ./compiler/lua54.can:754
+for i, arg in ipairs(macro["args"]) do -- ./compiler/lua54.can:755
+if arg["tag"] == "Dots" then -- ./compiler/lua54.can:756
+macroargs["..."] = (function() -- ./compiler/lua54.can:757
+local self = {} -- ./compiler/lua54.can:757
+for j = i + 1, # t do -- ./compiler/lua54.can:757
+self[#self+1] = t[j] -- ./compiler/lua54.can:757
+end -- ./compiler/lua54.can:757
+return self -- ./compiler/lua54.can:757
+end)() -- ./compiler/lua54.can:757
+elseif arg["tag"] == "Id" then -- ./compiler/lua54.can:758
+if t[i + 1] == nil then -- ./compiler/lua54.can:759
+error(("bad argument #%s to macro %s (value expected)"):format(i, t[1][1])) -- ./compiler/lua54.can:760
+end -- ./compiler/lua54.can:760
+macroargs[arg[1]] = t[i + 1] -- ./compiler/lua54.can:762
+else -- ./compiler/lua54.can:762
+error(("unexpected argument type %s in macro %s"):format(arg["tag"], t[1][1])) -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+end -- ./compiler/lua54.can:764
+push("macroargs", macroargs) -- ./compiler/lua54.can:767
+r = lua(replacement) -- ./compiler/lua54.can:768
+pop("macroargs") -- ./compiler/lua54.can:769
 end -- ./compiler/lua54.can:769
-end, -- ./compiler/lua54.can:769
-["SafeCall"] = function(t) -- ./compiler/lua54.can:773
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:774
-return lua(t, "SafeIndex") -- ./compiler/lua54.can:775
+nomacro["functions"][t[1][1]] = nil -- ./compiler/lua54.can:771
+return r -- ./compiler/lua54.can:772
+elseif t[1]["tag"] == "MethodStub" then -- ./compiler/lua54.can:773
+if t[1][1]["tag"] == "String" or t[1][1]["tag"] == "Table" then -- ./compiler/lua54.can:774
+return "(" .. lua(t[1][1]) .. "):" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:775
 else -- ./compiler/lua54.can:775
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:777
+return lua(t[1][1]) .. ":" .. lua(t[1][2], "Id") .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:777
 end -- ./compiler/lua54.can:777
-end, -- ./compiler/lua54.can:777
-["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:782
-if start == nil then start = 1 end -- ./compiler/lua54.can:782
-local r -- ./compiler/lua54.can:783
-if t[start] then -- ./compiler/lua54.can:784
-r = lua(t[start]) -- ./compiler/lua54.can:785
-for i = start + 1, # t, 1 do -- ./compiler/lua54.can:786
-r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:787
-end -- ./compiler/lua54.can:787
-else -- ./compiler/lua54.can:787
-r = "" -- ./compiler/lua54.can:790
-end -- ./compiler/lua54.can:790
-return r -- ./compiler/lua54.can:792
-end, -- ./compiler/lua54.can:792
-["Id"] = function(t) -- ./compiler/lua54.can:795
-local macroargs = peek("macroargs") -- ./compiler/lua54.can:796
-if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:797
-if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:798
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:799
-local r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:800
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:801
-return r -- ./compiler/lua54.can:802
-elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:803
-nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:804
-local r = lua(macros["variables"][t[1]]) -- ./compiler/lua54.can:805
-nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:806
-return r -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-end -- ./compiler/lua54.can:807
-return t[1] -- ./compiler/lua54.can:810
-end, -- ./compiler/lua54.can:810
-["AttributeId"] = function(t) -- ./compiler/lua54.can:813
-if t[2] then -- ./compiler/lua54.can:814
-return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:815
-else -- ./compiler/lua54.can:815
-return t[1] -- ./compiler/lua54.can:817
-end -- ./compiler/lua54.can:817
-end, -- ./compiler/lua54.can:817
-["DestructuringId"] = function(t) -- ./compiler/lua54.can:821
-if t["id"] then -- ./compiler/lua54.can:822
-return t["id"] -- ./compiler/lua54.can:823
-else -- ./compiler/lua54.can:823
-local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:825
-local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:826
-for j = 1, # t, 1 do -- ./compiler/lua54.can:827
-table["insert"](vars, t[j]) -- ./compiler/lua54.can:828
-end -- ./compiler/lua54.can:828
-table["insert"](d, vars) -- ./compiler/lua54.can:830
-t["id"] = vars["id"] -- ./compiler/lua54.can:831
-return vars["id"] -- ./compiler/lua54.can:832
-end -- ./compiler/lua54.can:832
-end, -- ./compiler/lua54.can:832
-["Index"] = function(t) -- ./compiler/lua54.can:836
-if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:837
-return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:838
-else -- ./compiler/lua54.can:838
-return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:840
-end -- ./compiler/lua54.can:840
-end, -- ./compiler/lua54.can:840
-["SafeIndex"] = function(t) -- ./compiler/lua54.can:844
-if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:845
-local l = {} -- ./compiler/lua54.can:846
-while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:847
-table["insert"](l, 1, t) -- ./compiler/lua54.can:848
-t = t[1] -- ./compiler/lua54.can:849
-end -- ./compiler/lua54.can:849
-local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:851
-for _, e in ipairs(l) do -- ./compiler/lua54.can:852
-r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:853
-if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:854
-r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:855
-else -- ./compiler/lua54.can:855
-r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-end -- ./compiler/lua54.can:857
-r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:860
-return r -- ./compiler/lua54.can:861
-else -- ./compiler/lua54.can:861
-return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:863
-end -- ./compiler/lua54.can:863
-end, -- ./compiler/lua54.can:863
-["_opid"] = { -- ./compiler/lua54.can:868
-["add"] = "+", -- ./compiler/lua54.can:869
-["sub"] = "-", -- ./compiler/lua54.can:869
-["mul"] = "*", -- ./compiler/lua54.can:869
-["div"] = "/", -- ./compiler/lua54.can:869
-["idiv"] = "//", -- ./compiler/lua54.can:870
-["mod"] = "%", -- ./compiler/lua54.can:870
-["pow"] = "^", -- ./compiler/lua54.can:870
-["concat"] = "..", -- ./compiler/lua54.can:870
-["band"] = "&", -- ./compiler/lua54.can:871
-["bor"] = "|", -- ./compiler/lua54.can:871
-["bxor"] = "~", -- ./compiler/lua54.can:871
-["shl"] = "<<", -- ./compiler/lua54.can:871
-["shr"] = ">>", -- ./compiler/lua54.can:871
-["eq"] = "==", -- ./compiler/lua54.can:872
-["ne"] = "~=", -- ./compiler/lua54.can:872
-["lt"] = "<", -- ./compiler/lua54.can:872
-["gt"] = ">", -- ./compiler/lua54.can:872
-["le"] = "<=", -- ./compiler/lua54.can:872
-["ge"] = ">=", -- ./compiler/lua54.can:872
-["and"] = "and", -- ./compiler/lua54.can:873
-["or"] = "or", -- ./compiler/lua54.can:873
-["unm"] = "-", -- ./compiler/lua54.can:873
-["len"] = "#", -- ./compiler/lua54.can:873
-["bnot"] = "~", -- ./compiler/lua54.can:873
-["not"] = "not" -- ./compiler/lua54.can:873
-} -- ./compiler/lua54.can:873
-}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:876
-error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:877
-end }) -- ./compiler/lua54.can:877
+else -- ./compiler/lua54.can:777
+return lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ")" -- ./compiler/lua54.can:780
+end -- ./compiler/lua54.can:780
+end, -- ./compiler/lua54.can:780
+["SafeCall"] = function(t) -- ./compiler/lua54.can:784
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:785
+return lua(t, "SafeIndex") -- ./compiler/lua54.can:786
+else -- ./compiler/lua54.can:786
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "(" .. lua(t, "_lhs", 2) .. ") or nil)" -- ./compiler/lua54.can:788
+end -- ./compiler/lua54.can:788
+end, -- ./compiler/lua54.can:788
+["_lhs"] = function(t, start, newlines) -- ./compiler/lua54.can:793
+if start == nil then start = 1 end -- ./compiler/lua54.can:793
+local r -- ./compiler/lua54.can:794
+if t[start] then -- ./compiler/lua54.can:795
+r = lua(t[start]) -- ./compiler/lua54.can:796
+for i = start + 1, # t, 1 do -- ./compiler/lua54.can:797
+r = r .. ("," .. (newlines and newline() or " ") .. lua(t[i])) -- ./compiler/lua54.can:798
+end -- ./compiler/lua54.can:798
+else -- ./compiler/lua54.can:798
+r = "" -- ./compiler/lua54.can:801
+end -- ./compiler/lua54.can:801
+return r -- ./compiler/lua54.can:803
+end, -- ./compiler/lua54.can:803
+["Id"] = function(t) -- ./compiler/lua54.can:806
+local r = t[1] -- ./compiler/lua54.can:807
+local macroargs = peek("macroargs") -- ./compiler/lua54.can:808
+if not nomacro["variables"][t[1]] then -- ./compiler/lua54.can:809
+nomacro["variables"][t[1]] = true -- ./compiler/lua54.can:810
+if macroargs and macroargs[t[1]] then -- ./compiler/lua54.can:811
+r = lua(macroargs[t[1]]) -- ./compiler/lua54.can:812
+elseif macros["variables"][t[1]] ~= nil then -- ./compiler/lua54.can:813
+local macro = macros["variables"][t[1]] -- ./compiler/lua54.can:814
+if type(macro) == "function" then -- ./compiler/lua54.can:815
+r = macro() -- ./compiler/lua54.can:816
+else -- ./compiler/lua54.can:816
+r = lua(macro) -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+end -- ./compiler/lua54.can:818
+nomacro["variables"][t[1]] = nil -- ./compiler/lua54.can:821
+end -- ./compiler/lua54.can:821
+return r -- ./compiler/lua54.can:823
+end, -- ./compiler/lua54.can:823
+["AttributeId"] = function(t) -- ./compiler/lua54.can:826
+if t[2] then -- ./compiler/lua54.can:827
+return t[1] .. " <" .. t[2] .. ">" -- ./compiler/lua54.can:828
+else -- ./compiler/lua54.can:828
+return t[1] -- ./compiler/lua54.can:830
+end -- ./compiler/lua54.can:830
+end, -- ./compiler/lua54.can:830
+["DestructuringId"] = function(t) -- ./compiler/lua54.can:834
+if t["id"] then -- ./compiler/lua54.can:835
+return t["id"] -- ./compiler/lua54.can:836
+else -- ./compiler/lua54.can:836
+local d = assert(peek("destructuring"), "DestructuringId not in a destructurable assignement") -- ./compiler/lua54.can:838
+local vars = { ["id"] = tmp() } -- ./compiler/lua54.can:839
+for j = 1, # t, 1 do -- ./compiler/lua54.can:840
+table["insert"](vars, t[j]) -- ./compiler/lua54.can:841
+end -- ./compiler/lua54.can:841
+table["insert"](d, vars) -- ./compiler/lua54.can:843
+t["id"] = vars["id"] -- ./compiler/lua54.can:844
+return vars["id"] -- ./compiler/lua54.can:845
+end -- ./compiler/lua54.can:845
+end, -- ./compiler/lua54.can:845
+["Index"] = function(t) -- ./compiler/lua54.can:849
+if t[1]["tag"] == "String" or t[1]["tag"] == "Table" then -- ./compiler/lua54.can:850
+return "(" .. lua(t[1]) .. ")[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:851
+else -- ./compiler/lua54.can:851
+return lua(t[1]) .. "[" .. lua(t[2]) .. "]" -- ./compiler/lua54.can:853
+end -- ./compiler/lua54.can:853
+end, -- ./compiler/lua54.can:853
+["SafeIndex"] = function(t) -- ./compiler/lua54.can:857
+if t[1]["tag"] ~= "Id" then -- ./compiler/lua54.can:858
+local l = {} -- ./compiler/lua54.can:859
+while t["tag"] == "SafeIndex" or t["tag"] == "SafeCall" do -- ./compiler/lua54.can:860
+table["insert"](l, 1, t) -- ./compiler/lua54.can:861
+t = t[1] -- ./compiler/lua54.can:862
+end -- ./compiler/lua54.can:862
+local r = "(function()" .. indent() .. "local " .. var("safe") .. " = " .. lua(l[1][1]) .. newline() -- ./compiler/lua54.can:864
+for _, e in ipairs(l) do -- ./compiler/lua54.can:865
+r = r .. ("if " .. var("safe") .. " == nil then return nil end" .. newline()) -- ./compiler/lua54.can:866
+if e["tag"] == "SafeIndex" then -- ./compiler/lua54.can:867
+r = r .. (var("safe") .. " = " .. var("safe") .. "[" .. lua(e[2]) .. "]" .. newline()) -- ./compiler/lua54.can:868
+else -- ./compiler/lua54.can:868
+r = r .. (var("safe") .. " = " .. var("safe") .. "(" .. lua(e, "_lhs", 2) .. ")" .. newline()) -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+end -- ./compiler/lua54.can:870
+r = r .. ("return " .. var("safe") .. unindent() .. "end)()") -- ./compiler/lua54.can:873
+return r -- ./compiler/lua54.can:874
+else -- ./compiler/lua54.can:874
+return "(" .. lua(t[1]) .. " ~= nil and " .. lua(t[1]) .. "[" .. lua(t[2]) .. "] or nil)" -- ./compiler/lua54.can:876
+end -- ./compiler/lua54.can:876
+end, -- ./compiler/lua54.can:876
+["_opid"] = { -- ./compiler/lua54.can:881
+["add"] = "+", -- ./compiler/lua54.can:882
+["sub"] = "-", -- ./compiler/lua54.can:882
+["mul"] = "*", -- ./compiler/lua54.can:882
+["div"] = "/", -- ./compiler/lua54.can:882
+["idiv"] = "//", -- ./compiler/lua54.can:883
+["mod"] = "%", -- ./compiler/lua54.can:883
+["pow"] = "^", -- ./compiler/lua54.can:883
+["concat"] = "..", -- ./compiler/lua54.can:883
+["band"] = "&", -- ./compiler/lua54.can:884
+["bor"] = "|", -- ./compiler/lua54.can:884
+["bxor"] = "~", -- ./compiler/lua54.can:884
+["shl"] = "<<", -- ./compiler/lua54.can:884
+["shr"] = ">>", -- ./compiler/lua54.can:884
+["eq"] = "==", -- ./compiler/lua54.can:885
+["ne"] = "~=", -- ./compiler/lua54.can:885
+["lt"] = "<", -- ./compiler/lua54.can:885
+["gt"] = ">", -- ./compiler/lua54.can:885
+["le"] = "<=", -- ./compiler/lua54.can:885
+["ge"] = ">=", -- ./compiler/lua54.can:885
+["and"] = "and", -- ./compiler/lua54.can:886
+["or"] = "or", -- ./compiler/lua54.can:886
+["unm"] = "-", -- ./compiler/lua54.can:886
+["len"] = "#", -- ./compiler/lua54.can:886
+["bnot"] = "~", -- ./compiler/lua54.can:886
+["not"] = "not" -- ./compiler/lua54.can:886
+} -- ./compiler/lua54.can:886
+}, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
+error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
+end }) -- ./compiler/lua54.can:890
 targetName = "Lua 5.3" -- ./compiler/lua53.can:1
 tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
 if t[2] then -- ./compiler/lua53.can:5
@@ -4961,11 +5021,11 @@ end -- ./compiler/lua51.can:26
 tags["Label"] = function() -- ./compiler/lua51.can:28
 error("target " .. targetName .. " does not support goto labels") -- ./compiler/lua51.can:29
 end -- ./compiler/lua51.can:29
-local code = lua(ast) .. newline() -- ./compiler/lua54.can:883
-return requireStr .. code -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-end -- ./compiler/lua54.can:884
-local lua54 = _() or lua54 -- ./compiler/lua54.can:889
+local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
+return requireStr .. code -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+end -- ./compiler/lua54.can:897
+local lua54 = _() or lua54 -- ./compiler/lua54.can:902
 return lua54 -- ./compiler/lua53.can:18
 end -- ./compiler/lua53.can:18
 local lua53 = _() or lua53 -- ./compiler/lua53.can:22
@@ -6851,192 +6911,197 @@ end -- candran.can:146
 env["define"] = function(identifier, replacement) -- candran.can:149
 local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:151
 if not iast then -- candran.can:152
-return error(("in macro identifier: %s"):format(ierr)) -- candran.can:153
+return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:153
 end -- candran.can:153
-local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:156
-if not rast then -- candran.can:157
-return error(("in macro replacement: %s"):format(rerr)) -- candran.can:158
-end -- candran.can:158
-if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:161
-rast = rast[1][1] -- candran.can:162
-end -- candran.can:162
-if iast["tag"] == "MacroFunction" then -- candran.can:165
-macros["functions"][iast[1][1]] = { -- candran.can:166
-["args"] = iast[2], -- candran.can:166
-["replacement"] = rast -- candran.can:166
-} -- candran.can:166
-elseif iast["tag"] == "Id" then -- candran.can:167
-macros["variables"][iast[1]] = rast -- candran.can:168
-else -- candran.can:168
-error(("invalid macro type %s"):format(iast["tag"])) -- candran.can:170
-end -- candran.can:170
-end -- candran.can:170
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:175
-if not preprocess then -- candran.can:176
-return nil, "in preprocessor: " .. err -- candran.can:177
-end -- candran.can:177
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:180
+if type(replacement) == "string" then -- candran.can:156
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:157
+if not rast then -- candran.can:158
+return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:159
+end -- candran.can:159
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:162
+rast = rast[1][1] -- candran.can:163
+end -- candran.can:163
+replacement = rast -- candran.can:165
+elseif type(replacement) ~= "function" then -- candran.can:166
+error("bad argument #2 to 'define' (string or function expected)") -- candran.can:167
+end -- candran.can:167
+if iast["tag"] == "MacroFunction" then -- candran.can:170
+macros["functions"][iast[1][1]] = { -- candran.can:171
+["args"] = iast[2], -- candran.can:171
+["replacement"] = replacement -- candran.can:171
+} -- candran.can:171
+elseif iast["tag"] == "Id" then -- candran.can:172
+macros["variables"][iast[1]] = replacement -- candran.can:173
+else -- candran.can:173
+error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:175
+end -- candran.can:175
+end -- candran.can:175
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:180
 if not preprocess then -- candran.can:181
 return nil, "in preprocessor: " .. err -- candran.can:182
 end -- candran.can:182
-local success, output = pcall(preprocess) -- candran.can:186
-if not success then -- candran.can:187
-return nil, "in preprocessor: " .. output -- candran.can:188
-end -- candran.can:188
-return output, macros -- candran.can:191
-end -- candran.can:191
-candran["compile"] = function(input, options, macros) -- candran.can:201
-if options == nil then options = {} end -- candran.can:201
-options = util["merge"](candran["default"], options) -- candran.can:202
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:204
-if not ast then -- candran.can:206
-return nil, errmsg -- candran.can:207
-end -- candran.can:207
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:210
-end -- candran.can:210
-candran["make"] = function(code, options) -- candran.can:219
-local r, err = candran["preprocess"](code, options) -- candran.can:220
-if r then -- candran.can:221
-r, err = candran["compile"](r, options, err) -- candran.can:222
-if r then -- candran.can:223
-return r -- candran.can:224
-end -- candran.can:224
-end -- candran.can:224
-return r, err -- candran.can:227
-end -- candran.can:227
-local errorRewritingActive = false -- candran.can:230
-local codeCache = {} -- candran.can:231
-candran["loadfile"] = function(filepath, env, options) -- candran.can:234
-local f, err = io["open"](filepath) -- candran.can:235
-if not f then -- candran.can:236
-return nil, ("cannot open %s"):format(err) -- candran.can:237
-end -- candran.can:237
-local content = f:read("*a") -- candran.can:239
-f:close() -- candran.can:240
-return candran["load"](content, filepath, env, options) -- candran.can:242
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:185
+if not preprocess then -- candran.can:186
+return nil, "in preprocessor: " .. err -- candran.can:187
+end -- candran.can:187
+local success, output = pcall(preprocess) -- candran.can:191
+if not success then -- candran.can:192
+return nil, "in preprocessor: " .. output -- candran.can:193
+end -- candran.can:193
+return output, macros -- candran.can:196
+end -- candran.can:196
+candran["compile"] = function(input, options, macros) -- candran.can:206
+if options == nil then options = {} end -- candran.can:206
+options = util["merge"](candran["default"], options) -- candran.can:207
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:209
+if not ast then -- candran.can:211
+return nil, errmsg -- candran.can:212
+end -- candran.can:212
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:215
+end -- candran.can:215
+candran["make"] = function(code, options) -- candran.can:224
+local r, err = candran["preprocess"](code, options) -- candran.can:225
+if r then -- candran.can:226
+r, err = candran["compile"](r, options, err) -- candran.can:227
+if r then -- candran.can:228
+return r -- candran.can:229
+end -- candran.can:229
+end -- candran.can:229
+return r, err -- candran.can:232
+end -- candran.can:232
+local errorRewritingActive = false -- candran.can:235
+local codeCache = {} -- candran.can:236
+candran["loadfile"] = function(filepath, env, options) -- candran.can:239
+local f, err = io["open"](filepath) -- candran.can:240
+if not f then -- candran.can:241
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:242
 end -- candran.can:242
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:247
-if options == nil then options = {} end -- candran.can:247
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:248
-local code, err = candran["make"](chunk, options) -- candran.can:250
-if not code then -- candran.can:251
-return code, err -- candran.can:252
-end -- candran.can:252
-codeCache[options["chunkname"]] = code -- candran.can:255
-local f -- candran.can:256
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:257
-if f == nil then -- candran.can:262
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:263
-end -- candran.can:263
-if options["rewriteErrors"] == false then -- candran.can:266
-return f -- candran.can:267
-else -- candran.can:267
-return function(...) -- candran.can:269
-if not errorRewritingActive then -- candran.can:270
-errorRewritingActive = true -- candran.can:271
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:272
-errorRewritingActive = false -- candran.can:273
-if t[1] == false then -- candran.can:274
-error(t[2], 0) -- candran.can:275
-end -- candran.can:275
-return unpack(t, 2) -- candran.can:277
-else -- candran.can:277
-return f(...) -- candran.can:279
-end -- candran.can:279
-end -- candran.can:279
-end -- candran.can:279
-end -- candran.can:279
-candran["dofile"] = function(filename, options) -- candran.can:287
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:288
-if f == nil then -- candran.can:290
-error(err) -- candran.can:291
-else -- candran.can:291
-return f() -- candran.can:293
-end -- candran.can:293
-end -- candran.can:293
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:299
+local content = f:read("*a") -- candran.can:244
+f:close() -- candran.can:245
+return candran["load"](content, filepath, env, options) -- candran.can:247
+end -- candran.can:247
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:252
+if options == nil then options = {} end -- candran.can:252
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:253
+local code, err = candran["make"](chunk, options) -- candran.can:255
+if not code then -- candran.can:256
+return code, err -- candran.can:257
+end -- candran.can:257
+codeCache[options["chunkname"]] = code -- candran.can:260
+local f -- candran.can:261
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:262
+if f == nil then -- candran.can:267
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:268
+end -- candran.can:268
+if options["rewriteErrors"] == false then -- candran.can:271
+return f -- candran.can:272
+else -- candran.can:272
+return function(...) -- candran.can:274
+if not errorRewritingActive then -- candran.can:275
+errorRewritingActive = true -- candran.can:276
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:277
+errorRewritingActive = false -- candran.can:278
+if t[1] == false then -- candran.can:279
+error(t[2], 0) -- candran.can:280
+end -- candran.can:280
+return unpack(t, 2) -- candran.can:282
+else -- candran.can:282
+return f(...) -- candran.can:284
+end -- candran.can:284
+end -- candran.can:284
+end -- candran.can:284
+end -- candran.can:284
+candran["dofile"] = function(filename, options) -- candran.can:292
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:293
+if f == nil then -- candran.can:295
+error(err) -- candran.can:296
+else -- candran.can:296
+return f() -- candran.can:298
+end -- candran.can:298
+end -- candran.can:298
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:304
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:300
-message = debug["traceback"](message, 2) -- candran.can:301
-end -- candran.can:301
+") then -- candran.can:305
+message = debug["traceback"](message, 2) -- candran.can:306
+end -- candran.can:306
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:303
-line = tonumber(line) -- candran.can:304
-local originalFile -- candran.can:306
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:307
-if strName then -- candran.can:308
-if codeCache[strName] then -- candran.can:309
-originalFile = codeCache[strName] -- candran.can:310
-source = strName -- candran.can:311
-end -- candran.can:311
-else -- candran.can:311
-do -- candran.can:314
-local fi -- candran.can:314
-fi = io["open"](source, "r") -- candran.can:314
-if fi then -- candran.can:314
-originalFile = fi:read("*a") -- candran.can:315
-fi:close() -- candran.can:316
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:308
+line = tonumber(line) -- candran.can:309
+local originalFile -- candran.can:311
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:312
+if strName then -- candran.can:313
+if codeCache[strName] then -- candran.can:314
+originalFile = codeCache[strName] -- candran.can:315
+source = strName -- candran.can:316
 end -- candran.can:316
-end -- candran.can:316
-end -- candran.can:316
-if originalFile then -- candran.can:320
-local i = 0 -- candran.can:321
+else -- candran.can:316
+do -- candran.can:319
+local fi -- candran.can:319
+fi = io["open"](source, "r") -- candran.can:319
+if fi then -- candran.can:319
+originalFile = fi:read("*a") -- candran.can:320
+fi:close() -- candran.can:321
+end -- candran.can:321
+end -- candran.can:321
+end -- candran.can:321
+if originalFile then -- candran.can:325
+local i = 0 -- candran.can:326
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:322
-i = i + 1 -- candran.can:323
-if i == line then -- candran.can:324
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:325
-if lineMap then -- candran.can:326
-if extSource ~= source then -- candran.can:327
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:328
-else -- candran.can:328
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:330
-end -- candran.can:330
-end -- candran.can:330
-break -- candran.can:333
-end -- candran.can:333
-end -- candran.can:333
-end -- candran.can:333
-end) -- candran.can:333
-end -- candran.can:333
-candran["searcher"] = function(modpath) -- candran.can:341
-local filepath = util["search"](modpath, { "can" }) -- candran.can:342
-if not filepath then -- candran.can:343
-if _VERSION == "Lua 5.4" then -- candran.can:344
-return "no candran file in package.path" -- candran.can:345
-else -- candran.can:345
+") do -- candran.can:327
+i = i + 1 -- candran.can:328
+if i == line then -- candran.can:329
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:330
+if lineMap then -- candran.can:331
+if extSource ~= source then -- candran.can:332
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:333
+else -- candran.can:333
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:335
+end -- candran.can:335
+end -- candran.can:335
+break -- candran.can:338
+end -- candran.can:338
+end -- candran.can:338
+end -- candran.can:338
+end) -- candran.can:338
+end -- candran.can:338
+candran["searcher"] = function(modpath) -- candran.can:346
+local filepath = util["search"](modpath, { "can" }) -- candran.can:347
+if not filepath then -- candran.can:348
+if _VERSION == "Lua 5.4" then -- candran.can:349
+return "no candran file in package.path" -- candran.can:350
+else -- candran.can:350
 return "\
-\9no candran file in package.path" -- candran.can:347
-end -- candran.can:347
-end -- candran.can:347
-return function(modpath) -- candran.can:350
-local r, s = candran["loadfile"](filepath) -- candran.can:351
-if r then -- candran.can:352
-return r(modpath, filepath) -- candran.can:353
-else -- candran.can:353
+\9no candran file in package.path" -- candran.can:352
+end -- candran.can:352
+end -- candran.can:352
+return function(modpath) -- candran.can:355
+local r, s = candran["loadfile"](filepath) -- candran.can:356
+if r then -- candran.can:357
+return r(modpath, filepath) -- candran.can:358
+else -- candran.can:358
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, s), 0) -- candran.can:355
-end -- candran.can:355
-end, filepath -- candran.can:357
-end -- candran.can:357
-candran["setup"] = function() -- candran.can:361
-local searchers = (function() -- candran.can:362
-if _VERSION == "Lua 5.1" then -- candran.can:362
-return package["loaders"] -- candran.can:363
-else -- candran.can:363
-return package["searchers"] -- candran.can:365
-end -- candran.can:365
-end)() -- candran.can:365
-for _, s in ipairs(searchers) do -- candran.can:368
-if s == candran["searcher"] then -- candran.can:369
-return candran -- candran.can:370
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:360
+end -- candran.can:360
+end, filepath -- candran.can:362
+end -- candran.can:362
+candran["setup"] = function() -- candran.can:366
+local searchers = (function() -- candran.can:367
+if _VERSION == "Lua 5.1" then -- candran.can:367
+return package["loaders"] -- candran.can:368
+else -- candran.can:368
+return package["searchers"] -- candran.can:370
 end -- candran.can:370
-end -- candran.can:370
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:374
+end)() -- candran.can:370
+for _, s in ipairs(searchers) do -- candran.can:373
+if s == candran["searcher"] then -- candran.can:374
 return candran -- candran.can:375
 end -- candran.can:375
-return candran -- candran.can:378
+end -- candran.can:375
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:379
+return candran -- candran.can:380
+end -- candran.can:380
+return candran -- candran.can:383
diff --git a/compiler/lua54.can b/compiler/lua54.can
index f8a3df8..49bf3a1 100644
--- a/compiler/lua54.can
+++ b/compiler/lua54.can
@@ -2,6 +2,8 @@ local util = require("candran.util")
 
 local targetName = "Lua 5.4"
 
+local unpack = unpack or table.unpack
+
 return function(code, ast, options, macros={functions={}, variables={}})
 	--- Line mapping
 	local lastInputPos = 1 -- last token position in the input code
@@ -740,24 +742,33 @@ return function(code, ast, options, macros={functions={}, variables={}})
 			elseif t[1].tag == "Id" and not nomacro.functions[t[1][1]] and macros.functions[t[1][1]] then
 				local macro = macros.functions[t[1][1]]
 				local replacement = macro.replacement
-				local macroargs = util.merge(peek("macroargs"))
-				for i, arg in ipairs(macro.args) do
-					if arg.tag == "Dots" then
-						macroargs["..."] = [for j=i+1, #t do t[j] end]
-					elseif arg.tag == "Id" then
-						if t[i+1] == nil then
-							error("bad argument #%s to macro %s (value expected)":format(i, t[1][1]))
-						end
-						macroargs[arg[1]] = t[i+1]
-					else
-						error("unexpected argument type %s in macro %s":format(arg.tag, t[1][1]))
-					end
-				end
-				push("macroargs", macroargs)
+				local r
 				nomacro.functions[t[1][1]] = true
-				local r = lua(replacement)
+				if type(replacement) == "function" then
+					local args = {}
+					for i=2, #t do
+						table.insert(args, lua(t[i]))
+					end
+					r = replacement(unpack(args))
+				else
+					local macroargs = util.merge(peek("macroargs"))
+					for i, arg in ipairs(macro.args) do
+						if arg.tag == "Dots" then
+							macroargs["..."] = [for j=i+1, #t do t[j] end]
+						elseif arg.tag == "Id" then
+							if t[i+1] == nil then
+								error("bad argument #%s to macro %s (value expected)":format(i, t[1][1]))
+							end
+							macroargs[arg[1]] = t[i+1]
+						else
+							error("unexpected argument type %s in macro %s":format(arg.tag, t[1][1]))
+						end
+					end
+					push("macroargs", macroargs)
+					r = lua(replacement)
+					pop("macroargs")
+				end
 				nomacro.functions[t[1][1]] = nil
-				pop("macroargs")
 				return r
 			elseif t[1].tag == "MethodStub" then -- method call
 				if t[1][1].tag == "String" or t[1][1].tag == "Table" then
@@ -793,21 +804,23 @@ return function(code, ast, options, macros={functions={}, variables={}})
 		end,
 		-- Id{ <string> }
 		Id = (t)
+			local r = t[1]
 			local macroargs = peek("macroargs")
 			if not nomacro.variables[t[1]] then
+				nomacro.variables[t[1]] = true
 				if macroargs and macroargs[t[1]] then -- replace with macro argument
-					nomacro.variables[t[1]] = true
-					local r = lua(macroargs[t[1]])
-					nomacro.variables[t[1]] = nil
-					return r
+					r = lua(macroargs[t[1]])
 				elseif macros.variables[t[1]] ~= nil then -- replace with macro variable
-					nomacro.variables[t[1]] = true
-					local r = lua(macros.variables[t[1]])
-					nomacro.variables[t[1]] = nil
-					return r
+					local macro = macros.variables[t[1]]
+					if type(macro) == "function" then
+						r = macro()
+					else
+						r = lua(macro)
+					end
 				end
+				nomacro.variables[t[1]] = nil
 			end
-			return t[1]
+			return r
 		end,
 		-- AttributeId{ <string> <string>? }
 		AttributeId = (t)
diff --git a/test/test.lua b/test/test.lua
index 0a5f635..531df53 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -199,6 +199,17 @@ x = f(x)
 return x
 ]], 42)
 
+test("preprocessor macro replace variable with function", [[
+#define("a", function() return "42" end)
+return a
+]], 42)
+
+test("preprocessor macro replace function with function", [[
+#define("test(x)", function(x) return ("%s = 42"):format(x) end)
+test(hello)
+return hello
+]], 42)
+
 ----------------------
 -- SYNTAX ADDITIONS --
 ----------------------

From ea54376aa6a03ed136684b45c00d17c9d041f7be Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 11 Jun 2021 14:17:55 +0200
Subject: [PATCH 28/43] Add constexpr and __STR__ default macros

---
 candran.can         |   9 +
 candran.lua         | 851 +++++++++++++++++++++++++++++---------------
 candran/serpent.lua | 163 +++++++++
 3 files changed, 736 insertions(+), 287 deletions(-)
 create mode 100644 candran/serpent.lua

diff --git a/candran.can b/candran.can
index cdb0ab7..cf1a7ce 100644
--- a/candran.can
+++ b/candran.can
@@ -1,5 +1,6 @@
 #import("candran.util")
 #import("candran.cmdline")
+#import("candran.serpent")
 
 #import("compiler.lua54")
 #import("compiler.lua53")
@@ -176,6 +177,14 @@ function candran.preprocess(input, options={})
 		end
 	end
 
+	-- default macros
+	-- TODO make it optional
+	env.define("__STR__(x)", function(x) return ("%q"):format(x) end)
+	local s = require("candran.serpent")
+	env.define("constexpr(expr)", function(expr)
+		return s.block(assert(candran.load(expr))(), {fatal = true})
+	end)
+
 	-- compile & load preprocessor
 	local preprocess, err = candran.compile(preprocessor, options)
 	if not preprocess then
diff --git a/candran.lua b/candran.lua
index 6148a8f..eb17932 100644
--- a/candran.lua
+++ b/candran.lua
@@ -141,7 +141,277 @@ end -- ./candran/cmdline.lua:125
 end -- ./candran/cmdline.lua:125
 local cmdline = _() or cmdline -- ./candran/cmdline.lua:130
 package["loaded"]["candran.cmdline"] = cmdline or true -- ./candran/cmdline.lua:131
-local function _() -- ./candran/cmdline.lua:135
+local function _() -- ./candran/cmdline.lua:134
+local n, v = "serpent", "0.302" -- ./candran/serpent.lua:24
+local c, d = "Paul Kulchenko", "Lua serializer and pretty printer" -- ./candran/serpent.lua:25
+local snum = { -- ./candran/serpent.lua:26
+[tostring(1 / 0)] = "1/0 --[[math.huge]]", -- ./candran/serpent.lua:26
+[tostring(- 1 / 0)] = "-1/0 --[[-math.huge]]", -- ./candran/serpent.lua:26
+[tostring(0 / 0)] = "0/0" -- ./candran/serpent.lua:26
+} -- ./candran/serpent.lua:26
+local badtype = { -- ./candran/serpent.lua:27
+["thread"] = true, -- ./candran/serpent.lua:27
+["userdata"] = true, -- ./candran/serpent.lua:27
+["cdata"] = true -- ./candran/serpent.lua:27
+} -- ./candran/serpent.lua:27
+local getmetatable = debug and debug["getmetatable"] or getmetatable -- ./candran/serpent.lua:28
+local pairs = function(t) -- ./candran/serpent.lua:29
+return next, t -- ./candran/serpent.lua:29
+end -- ./candran/serpent.lua:29
+local keyword, globals, G = {}, {}, (_G or _ENV) -- ./candran/serpent.lua:30
+for _, k in ipairs({ -- ./candran/serpent.lua:31
+"and", -- ./candran/serpent.lua:31
+"break", -- ./candran/serpent.lua:31
+"do", -- ./candran/serpent.lua:31
+"else", -- ./candran/serpent.lua:31
+"elseif", -- ./candran/serpent.lua:31
+"end", -- ./candran/serpent.lua:31
+"false", -- ./candran/serpent.lua:31
+"for", -- ./candran/serpent.lua:32
+"function", -- ./candran/serpent.lua:32
+"goto", -- ./candran/serpent.lua:32
+"if", -- ./candran/serpent.lua:32
+"in", -- ./candran/serpent.lua:32
+"local", -- ./candran/serpent.lua:32
+"nil", -- ./candran/serpent.lua:32
+"not", -- ./candran/serpent.lua:32
+"or", -- ./candran/serpent.lua:32
+"repeat", -- ./candran/serpent.lua:32
+"return", -- ./candran/serpent.lua:33
+"then", -- ./candran/serpent.lua:33
+"true", -- ./candran/serpent.lua:33
+"until", -- ./candran/serpent.lua:33
+"while" -- ./candran/serpent.lua:33
+}) do -- ./candran/serpent.lua:33
+keyword[k] = true -- ./candran/serpent.lua:33
+end -- ./candran/serpent.lua:33
+for k, v in pairs(G) do -- ./candran/serpent.lua:34
+globals[v] = k -- ./candran/serpent.lua:34
+end -- ./candran/serpent.lua:34
+for _, g in ipairs({ -- ./candran/serpent.lua:35
+"coroutine", -- ./candran/serpent.lua:35
+"debug", -- ./candran/serpent.lua:35
+"io", -- ./candran/serpent.lua:35
+"math", -- ./candran/serpent.lua:35
+"string", -- ./candran/serpent.lua:35
+"table", -- ./candran/serpent.lua:35
+"os" -- ./candran/serpent.lua:35
+}) do -- ./candran/serpent.lua:35
+for k, v in pairs(type(G[g]) == "table" and G[g] or {}) do -- ./candran/serpent.lua:36
+globals[v] = g .. "." .. k -- ./candran/serpent.lua:36
+end -- ./candran/serpent.lua:36
+end -- ./candran/serpent.lua:36
+local function s(t, opts) -- ./candran/serpent.lua:38
+local name, indent, fatal, maxnum = opts["name"], opts["indent"], opts["fatal"], opts["maxnum"] -- ./candran/serpent.lua:39
+local sparse, custom, huge = opts["sparse"], opts["custom"], not opts["nohuge"] -- ./candran/serpent.lua:40
+local space, maxl = (opts["compact"] and "" or " "), (opts["maxlevel"] or math["huge"]) -- ./candran/serpent.lua:41
+local maxlen, metatostring = tonumber(opts["maxlength"]), opts["metatostring"] -- ./candran/serpent.lua:42
+local iname, comm = "_" .. (name or ""), opts["comment"] and (tonumber(opts["comment"]) or math["huge"]) -- ./candran/serpent.lua:43
+local numformat = opts["numformat"] or "%.17g" -- ./candran/serpent.lua:44
+local seen, sref, syms, symn = {}, { "local " .. iname .. "={}" }, {}, 0 -- ./candran/serpent.lua:45
+local function gensym(val) -- ./candran/serpent.lua:46
+return "_" .. (tostring(tostring(val)):gsub("[^%w]", ""):gsub("(%d%w+)", function(s) -- ./candran/serpent.lua:48
+if not syms[s] then -- ./candran/serpent.lua:48
+symn = symn + 1 -- ./candran/serpent.lua:48
+syms[s] = symn -- ./candran/serpent.lua:48
+end -- ./candran/serpent.lua:48
+return tostring(syms[s]) -- ./candran/serpent.lua:48
+end)) -- ./candran/serpent.lua:48
+end -- ./candran/serpent.lua:48
+local function safestr(s) -- ./candran/serpent.lua:49
+return type(s) == "number" and tostring(huge and snum[tostring(s)] or numformat:format(s)) or type(s) ~= "string" and tostring(s) or ("%q"):format(s):gsub("\
+", "n"):gsub("\26", "\\026") -- ./candran/serpent.lua:51
+end -- ./candran/serpent.lua:51
+local function comment(s, l) -- ./candran/serpent.lua:52
+return comm and (l or 0) < comm and " --[[" .. select(2, pcall(tostring, s)) .. "]]" or "" -- ./candran/serpent.lua:52
+end -- ./candran/serpent.lua:52
+local function globerr(s, l) -- ./candran/serpent.lua:53
+return globals[s] and globals[s] .. comment(s, l) or not fatal and safestr(select(2, pcall(tostring, s))) or error("Can't serialize " .. tostring(s)) -- ./candran/serpent.lua:54
+end -- ./candran/serpent.lua:54
+local function safename(path, name) -- ./candran/serpent.lua:55
+local n = name == nil and "" or name -- ./candran/serpent.lua:56
+local plain = type(n) == "string" and n:match("^[%l%u_][%w_]*$") and not keyword[n] -- ./candran/serpent.lua:57
+local safe = plain and n or "[" .. safestr(n) .. "]" -- ./candran/serpent.lua:58
+return (path or "") .. (plain and path and "." or "") .. safe, safe -- ./candran/serpent.lua:59
+end -- ./candran/serpent.lua:59
+local alphanumsort = type(opts["sortkeys"]) == "function" and opts["sortkeys"] or function(k, o, n) -- ./candran/serpent.lua:60
+local maxn, to = tonumber(n) or 12, { -- ./candran/serpent.lua:61
+["number"] = "a", -- ./candran/serpent.lua:61
+["string"] = "b" -- ./candran/serpent.lua:61
+} -- ./candran/serpent.lua:61
+local function padnum(d) -- ./candran/serpent.lua:62
+return ("%0" .. tostring(maxn) .. "d"):format(tonumber(d)) -- ./candran/serpent.lua:62
+end -- ./candran/serpent.lua:62
+table["sort"](k, function(a, b) -- ./candran/serpent.lua:63
+return (k[a] ~= nil and 0 or to[type(a)] or "z") .. (tostring(a):gsub("%d+", padnum)) < (k[b] ~= nil and 0 or to[type(b)] or "z") .. (tostring(b):gsub("%d+", padnum)) -- ./candran/serpent.lua:66
+end) -- ./candran/serpent.lua:66
+end -- ./candran/serpent.lua:66
+local function val2str(t, name, indent, insref, path, plainindex, level) -- ./candran/serpent.lua:67
+local ttype, level, mt = type(t), (level or 0), getmetatable(t) -- ./candran/serpent.lua:68
+local spath, sname = safename(path, name) -- ./candran/serpent.lua:69
+local tag = plainindex and ((type(name) == "number") and "" or name .. space .. "=" .. space) or (name ~= nil and sname .. space .. "=" .. space or "") -- ./candran/serpent.lua:72
+if seen[t] then -- ./candran/serpent.lua:73
+sref[# sref + 1] = spath .. space .. "=" .. space .. seen[t] -- ./candran/serpent.lua:74
+return tag .. "nil" .. comment("ref", level) -- ./candran/serpent.lua:75
+end -- ./candran/serpent.lua:75
+if type(mt) == "table" and metatostring ~= false then -- ./candran/serpent.lua:77
+local to, tr = pcall(function() -- ./candran/serpent.lua:78
+return mt["__tostring"](t) -- ./candran/serpent.lua:78
+end) -- ./candran/serpent.lua:78
+local so, sr = pcall(function() -- ./candran/serpent.lua:79
+return mt["__serialize"](t) -- ./candran/serpent.lua:79
+end) -- ./candran/serpent.lua:79
+if (to or so) then -- ./candran/serpent.lua:80
+seen[t] = insref or spath -- ./candran/serpent.lua:81
+t = so and sr or tr -- ./candran/serpent.lua:82
+ttype = type(t) -- ./candran/serpent.lua:83
+end -- ./candran/serpent.lua:83
+end -- ./candran/serpent.lua:83
+if ttype == "table" then -- ./candran/serpent.lua:86
+if level >= maxl then -- ./candran/serpent.lua:87
+return tag .. "{}" .. comment("maxlvl", level) -- ./candran/serpent.lua:87
+end -- ./candran/serpent.lua:87
+seen[t] = insref or spath -- ./candran/serpent.lua:88
+if next(t) == nil then -- ./candran/serpent.lua:89
+return tag .. "{}" .. comment(t, level) -- ./candran/serpent.lua:89
+end -- ./candran/serpent.lua:89
+if maxlen and maxlen < 0 then -- ./candran/serpent.lua:90
+return tag .. "{}" .. comment("maxlen", level) -- ./candran/serpent.lua:90
+end -- ./candran/serpent.lua:90
+local maxn, o, out = math["min"](# t, maxnum or # t), {}, {} -- ./candran/serpent.lua:91
+for key = 1, maxn do -- ./candran/serpent.lua:92
+o[key] = key -- ./candran/serpent.lua:92
+end -- ./candran/serpent.lua:92
+if not maxnum or # o < maxnum then -- ./candran/serpent.lua:93
+local n = # o -- ./candran/serpent.lua:94
+for key in pairs(t) do -- ./candran/serpent.lua:95
+if o[key] ~= key then -- ./candran/serpent.lua:95
+n = n + 1 -- ./candran/serpent.lua:95
+o[n] = key -- ./candran/serpent.lua:95
+end -- ./candran/serpent.lua:95
+end -- ./candran/serpent.lua:95
+end -- ./candran/serpent.lua:95
+if maxnum and # o > maxnum then -- ./candran/serpent.lua:96
+o[maxnum + 1] = nil -- ./candran/serpent.lua:96
+end -- ./candran/serpent.lua:96
+if opts["sortkeys"] and # o > maxn then -- ./candran/serpent.lua:97
+alphanumsort(o, t, opts["sortkeys"]) -- ./candran/serpent.lua:97
+end -- ./candran/serpent.lua:97
+local sparse = sparse and # o > maxn -- ./candran/serpent.lua:98
+for n, key in ipairs(o) do -- ./candran/serpent.lua:99
+local value, ktype, plainindex = t[key], type(key), n <= maxn and not sparse -- ./candran/serpent.lua:100
+if opts["valignore"] and opts["valignore"][value] or opts["keyallow"] and not opts["keyallow"][key] or opts["keyignore"] and opts["keyignore"][key] or opts["valtypeignore"] and opts["valtypeignore"][type(value)] or sparse and value == nil then -- ./candran/serpent.lua:105
+ -- ./candran/serpent.lua:106
+elseif ktype == "table" or ktype == "function" or badtype[ktype] then -- ./candran/serpent.lua:106
+if not seen[key] and not globals[key] then -- ./candran/serpent.lua:107
+sref[# sref + 1] = "placeholder" -- ./candran/serpent.lua:108
+local sname = safename(iname, gensym(key)) -- ./candran/serpent.lua:109
+sref[# sref] = val2str(key, sname, indent, sname, iname, true) -- ./candran/serpent.lua:110
+end -- ./candran/serpent.lua:110
+sref[# sref + 1] = "placeholder" -- ./candran/serpent.lua:111
+local path = seen[t] .. "[" .. tostring(seen[key] or globals[key] or gensym(key)) .. "]" -- ./candran/serpent.lua:112
+sref[# sref] = path .. space .. "=" .. space .. tostring(seen[value] or val2str(value, nil, indent, path)) -- ./candran/serpent.lua:113
+else -- ./candran/serpent.lua:113
+out[# out + 1] = val2str(value, key, indent, nil, seen[t], plainindex, level + 1) -- ./candran/serpent.lua:115
+if maxlen then -- ./candran/serpent.lua:116
+maxlen = maxlen - # out[# out] -- ./candran/serpent.lua:117
+if maxlen < 0 then -- ./candran/serpent.lua:118
+break -- ./candran/serpent.lua:118
+end -- ./candran/serpent.lua:118
+end -- ./candran/serpent.lua:118
+end -- ./candran/serpent.lua:118
+end -- ./candran/serpent.lua:118
+local prefix = string["rep"](indent or "", level) -- ./candran/serpent.lua:122
+local head = indent and "{\
+" .. prefix .. indent or "{" -- ./candran/serpent.lua:123
+local body = table["concat"](out, "," .. (indent and "\
+" .. prefix .. indent or space)) -- ./candran/serpent.lua:124
+local tail = indent and "\
+" .. prefix .. "}" or "}" -- ./candran/serpent.lua:125
+return (custom and custom(tag, head, body, tail, level) or tag .. head .. body .. tail) .. comment(t, level) -- ./candran/serpent.lua:126
+elseif badtype[ttype] then -- ./candran/serpent.lua:127
+seen[t] = insref or spath -- ./candran/serpent.lua:128
+return tag .. globerr(t, level) -- ./candran/serpent.lua:129
+elseif ttype == "function" then -- ./candran/serpent.lua:130
+seen[t] = insref or spath -- ./candran/serpent.lua:131
+if opts["nocode"] then -- ./candran/serpent.lua:132
+return tag .. "function() --[[..skipped..]] end" .. comment(t, level) -- ./candran/serpent.lua:132
+end -- ./candran/serpent.lua:132
+local ok, res = pcall(string["dump"], t) -- ./candran/serpent.lua:133
+local func = ok and "((loadstring or load)(" .. safestr(res) .. ",'@serialized'))" .. comment(t, level) -- ./candran/serpent.lua:134
+return tag .. (func or globerr(t, level)) -- ./candran/serpent.lua:135
+else -- ./candran/serpent.lua:135
+return tag .. safestr(t) -- ./candran/serpent.lua:136
+end -- ./candran/serpent.lua:136
+end -- ./candran/serpent.lua:136
+local sepr = indent and "\
+" or ";" .. space -- ./candran/serpent.lua:138
+local body = val2str(t, name, indent) -- ./candran/serpent.lua:139
+local tail = # sref > 1 and table["concat"](sref, sepr) .. sepr or "" -- ./candran/serpent.lua:140
+local warn = opts["comment"] and # sref > 1 and space .. "--[[incomplete output with shared/self-references skipped]]" or "" -- ./candran/serpent.lua:141
+return not name and body .. warn or "do local " .. body .. sepr .. tail .. "return " .. name .. sepr .. "end" -- ./candran/serpent.lua:142
+end -- ./candran/serpent.lua:142
+local function deserialize(data, opts) -- ./candran/serpent.lua:145
+local env = (opts and opts["safe"] == false) and G or setmetatable({}, { -- ./candran/serpent.lua:147
+["__index"] = function(t, k) -- ./candran/serpent.lua:148
+return t -- ./candran/serpent.lua:148
+end, -- ./candran/serpent.lua:148
+["__call"] = function(t, ...) -- ./candran/serpent.lua:149
+error("cannot call functions") -- ./candran/serpent.lua:149
+end -- ./candran/serpent.lua:149
+}) -- ./candran/serpent.lua:149
+local f, res = (loadstring or load)("return " .. data, nil, nil, env) -- ./candran/serpent.lua:151
+if not f then -- ./candran/serpent.lua:152
+f, res = (loadstring or load)(data, nil, nil, env) -- ./candran/serpent.lua:152
+end -- ./candran/serpent.lua:152
+if not f then -- ./candran/serpent.lua:153
+return f, res -- ./candran/serpent.lua:153
+end -- ./candran/serpent.lua:153
+if setfenv then -- ./candran/serpent.lua:154
+setfenv(f, env) -- ./candran/serpent.lua:154
+end -- ./candran/serpent.lua:154
+return pcall(f) -- ./candran/serpent.lua:155
+end -- ./candran/serpent.lua:155
+local function merge(a, b) -- ./candran/serpent.lua:158
+if b then -- ./candran/serpent.lua:158
+for k, v in pairs(b) do -- ./candran/serpent.lua:158
+a[k] = v -- ./candran/serpent.lua:158
+end -- ./candran/serpent.lua:158
+end -- ./candran/serpent.lua:158
+return a -- ./candran/serpent.lua:158
+end -- ./candran/serpent.lua:158
+return { -- ./candran/serpent.lua:159
+["_NAME"] = n, -- ./candran/serpent.lua:159
+["_COPYRIGHT"] = c, -- ./candran/serpent.lua:159
+["_DESCRIPTION"] = d, -- ./candran/serpent.lua:159
+["_VERSION"] = v, -- ./candran/serpent.lua:159
+["serialize"] = s, -- ./candran/serpent.lua:159
+["load"] = deserialize, -- ./candran/serpent.lua:160
+["dump"] = function(a, opts) -- ./candran/serpent.lua:161
+return s(a, merge({ -- ./candran/serpent.lua:161
+["name"] = "_", -- ./candran/serpent.lua:161
+["compact"] = true, -- ./candran/serpent.lua:161
+["sparse"] = true -- ./candran/serpent.lua:161
+}, opts)) -- ./candran/serpent.lua:161
+end, -- ./candran/serpent.lua:161
+["line"] = function(a, opts) -- ./candran/serpent.lua:162
+return s(a, merge({ -- ./candran/serpent.lua:162
+["sortkeys"] = true, -- ./candran/serpent.lua:162
+["comment"] = true -- ./candran/serpent.lua:162
+}, opts)) -- ./candran/serpent.lua:162
+end, -- ./candran/serpent.lua:162
+["block"] = function(a, opts) -- ./candran/serpent.lua:163
+return s(a, merge({ -- ./candran/serpent.lua:163
+["indent"] = "  ", -- ./candran/serpent.lua:163
+["sortkeys"] = true, -- ./candran/serpent.lua:163
+["comment"] = true -- ./candran/serpent.lua:163
+}, opts)) -- ./candran/serpent.lua:163
+end -- ./candran/serpent.lua:163
+} -- ./candran/serpent.lua:163
+end -- ./candran/serpent.lua:163
+local serpent = _() or serpent -- ./candran/serpent.lua:167
+package["loaded"]["candran.serpent"] = serpent or true -- ./candran/serpent.lua:168
+local function _() -- ./candran/serpent.lua:172
 local util = require("candran.util") -- ./compiler/lua54.can:1
 local targetName = "Lua 5.4" -- ./compiler/lua54.can:3
 local unpack = unpack or table["unpack"] -- ./compiler/lua54.can:5
@@ -6797,311 +7067,318 @@ return parser -- ./candran/can-parser/parser.lua:807
 end -- ./candran/can-parser/parser.lua:807
 local parser = _() or parser -- ./candran/can-parser/parser.lua:811
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:812
-local unpack = unpack or table["unpack"] -- candran.can:15
-local candran = { ["VERSION"] = "0.14.0" } -- candran.can:18
-package["loaded"]["candran"] = candran -- candran.can:20
-candran["default"] = { -- candran.can:23
-["target"] = "lua54", -- candran.can:24
-["indentation"] = "", -- candran.can:25
+local unpack = unpack or table["unpack"] -- candran.can:16
+local candran = { ["VERSION"] = "0.14.0" } -- candran.can:19
+package["loaded"]["candran"] = candran -- candran.can:21
+candran["default"] = { -- candran.can:24
+["target"] = "lua54", -- candran.can:25
+["indentation"] = "", -- candran.can:26
 ["newline"] = "\
-", -- candran.can:26
-["variablePrefix"] = "__CAN_", -- candran.can:27
-["mapLines"] = true, -- candran.can:28
-["chunkname"] = "nil", -- candran.can:29
-["rewriteErrors"] = true -- candran.can:30
-} -- candran.can:30
-if _VERSION == "Lua 5.1" then -- candran.can:34
-if package["loaded"]["jit"] then -- candran.can:35
-candran["default"]["target"] = "luajit" -- candran.can:36
-else -- candran.can:36
-candran["default"]["target"] = "lua51" -- candran.can:38
-end -- candran.can:38
-elseif _VERSION == "Lua 5.2" then -- candran.can:40
-candran["default"]["target"] = "lua52" -- candran.can:41
-elseif _VERSION == "Lua 5.3" then -- candran.can:42
-candran["default"]["target"] = "lua53" -- candran.can:43
-end -- candran.can:43
-candran["preprocess"] = function(input, options) -- candran.can:53
-if options == nil then options = {} end -- candran.can:53
-options = util["merge"](candran["default"], options) -- candran.can:54
-local macros = { -- candran.can:55
-["functions"] = {}, -- candran.can:56
-["variables"] = {} -- candran.can:57
-} -- candran.can:57
-local preprocessor = "" -- candran.can:61
-local i = 0 -- candran.can:62
-local inLongString = false -- candran.can:63
-local inComment = false -- candran.can:64
+", -- candran.can:27
+["variablePrefix"] = "__CAN_", -- candran.can:28
+["mapLines"] = true, -- candran.can:29
+["chunkname"] = "nil", -- candran.can:30
+["rewriteErrors"] = true -- candran.can:31
+} -- candran.can:31
+if _VERSION == "Lua 5.1" then -- candran.can:35
+if package["loaded"]["jit"] then -- candran.can:36
+candran["default"]["target"] = "luajit" -- candran.can:37
+else -- candran.can:37
+candran["default"]["target"] = "lua51" -- candran.can:39
+end -- candran.can:39
+elseif _VERSION == "Lua 5.2" then -- candran.can:41
+candran["default"]["target"] = "lua52" -- candran.can:42
+elseif _VERSION == "Lua 5.3" then -- candran.can:43
+candran["default"]["target"] = "lua53" -- candran.can:44
+end -- candran.can:44
+candran["preprocess"] = function(input, options) -- candran.can:54
+if options == nil then options = {} end -- candran.can:54
+options = util["merge"](candran["default"], options) -- candran.can:55
+local macros = { -- candran.can:56
+["functions"] = {}, -- candran.can:57
+["variables"] = {} -- candran.can:58
+} -- candran.can:58
+local preprocessor = "" -- candran.can:62
+local i = 0 -- candran.can:63
+local inLongString = false -- candran.can:64
+local inComment = false -- candran.can:65
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:65
-i = i + (1) -- candran.can:66
-if inComment then -- candran.can:68
-inComment = not line:match("%]%]") -- candran.can:69
-elseif inLongString then -- candran.can:70
-inLongString = not line:match("%]%]") -- candran.can:71
-else -- candran.can:71
-if line:match("[^%-]%[%[") then -- candran.can:73
-inLongString = true -- candran.can:74
-elseif line:match("%-%-%[%[") then -- candran.can:75
-inComment = true -- candran.can:76
-end -- candran.can:76
-end -- candran.can:76
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:79
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:80
-else -- candran.can:80
-local l = line:sub(1, - 2) -- candran.can:82
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:83
+)") do -- candran.can:66
+i = i + (1) -- candran.can:67
+if inComment then -- candran.can:69
+inComment = not line:match("%]%]") -- candran.can:70
+elseif inLongString then -- candran.can:71
+inLongString = not line:match("%]%]") -- candran.can:72
+else -- candran.can:72
+if line:match("[^%-]%[%[") then -- candran.can:74
+inLongString = true -- candran.can:75
+elseif line:match("%-%-%[%[") then -- candran.can:76
+inComment = true -- candran.can:77
+end -- candran.can:77
+end -- candran.can:77
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:80
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:81
+else -- candran.can:81
+local l = line:sub(1, - 2) -- candran.can:83
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:84
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:84
-else -- candran.can:84
+") -- candran.can:85
+else -- candran.can:85
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:86
-end -- candran.can:86
-end -- candran.can:86
-end -- candran.can:86
-preprocessor = preprocessor .. ("return output") -- candran.can:90
-local env = util["merge"](_G, options) -- candran.can:93
-env["candran"] = candran -- candran.can:95
-env["output"] = "" -- candran.can:97
-env["import"] = function(modpath, margs) -- candran.can:104
-if margs == nil then margs = {} end -- candran.can:104
-local filepath = assert(util["search"](modpath, { -- candran.can:105
-"can", -- candran.can:105
-"lua" -- candran.can:105
-}), "No module named \"" .. modpath .. "\"") -- candran.can:105
-local f = io["open"](filepath) -- candran.can:108
-if not f then -- candran.can:109
-error("can't open the module file to import") -- candran.can:109
-end -- candran.can:109
-margs = util["merge"](options, { -- candran.can:111
-["chunkname"] = filepath, -- candran.can:111
-["loadLocal"] = true, -- candran.can:111
-["loadPackage"] = true -- candran.can:111
-}, margs) -- candran.can:111
-local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:112
-macros = util["recmerge"](macros, modmacros) -- candran.can:113
-f:close() -- candran.can:114
-local modname = modpath:match("[^%.]+$") -- candran.can:117
+") -- candran.can:87
+end -- candran.can:87
+end -- candran.can:87
+end -- candran.can:87
+preprocessor = preprocessor .. ("return output") -- candran.can:91
+local env = util["merge"](_G, options) -- candran.can:94
+env["candran"] = candran -- candran.can:96
+env["output"] = "" -- candran.can:98
+env["import"] = function(modpath, margs) -- candran.can:105
+if margs == nil then margs = {} end -- candran.can:105
+local filepath = assert(util["search"](modpath, { -- candran.can:106
+"can", -- candran.can:106
+"lua" -- candran.can:106
+}), "No module named \"" .. modpath .. "\"") -- candran.can:106
+local f = io["open"](filepath) -- candran.can:109
+if not f then -- candran.can:110
+error("can't open the module file to import") -- candran.can:110
+end -- candran.can:110
+margs = util["merge"](options, { -- candran.can:112
+["chunkname"] = filepath, -- candran.can:112
+["loadLocal"] = true, -- candran.can:112
+["loadPackage"] = true -- candran.can:112
+}, margs) -- candran.can:112
+local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:113
+macros = util["recmerge"](macros, modmacros) -- candran.can:114
+f:close() -- candran.can:115
+local modname = modpath:match("[^%.]+$") -- candran.can:118
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:126
-end -- candran.can:126
-env["include"] = function(file) -- candran.can:131
-local f = io["open"](file) -- candran.can:132
-if not f then -- candran.can:133
-error("can't open the file " .. file .. " to include") -- candran.can:133
-end -- candran.can:133
-env["write"](f:read("*a")) -- candran.can:134
-f:close() -- candran.can:135
-end -- candran.can:135
-env["write"] = function(...) -- candran.can:139
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:127
+end -- candran.can:127
+env["include"] = function(file) -- candran.can:132
+local f = io["open"](file) -- candran.can:133
+if not f then -- candran.can:134
+error("can't open the file " .. file .. " to include") -- candran.can:134
+end -- candran.can:134
+env["write"](f:read("*a")) -- candran.can:135
+f:close() -- candran.can:136
+end -- candran.can:136
+env["write"] = function(...) -- candran.can:140
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:140
-end -- candran.can:140
-env["placeholder"] = function(name) -- candran.can:144
-if env[name] then -- candran.can:145
-env["write"](env[name]) -- candran.can:146
-end -- candran.can:146
-end -- candran.can:146
-env["define"] = function(identifier, replacement) -- candran.can:149
-local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:151
-if not iast then -- candran.can:152
-return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:153
-end -- candran.can:153
-if type(replacement) == "string" then -- candran.can:156
-local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:157
-if not rast then -- candran.can:158
-return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:159
-end -- candran.can:159
-if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:162
-rast = rast[1][1] -- candran.can:163
-end -- candran.can:163
-replacement = rast -- candran.can:165
-elseif type(replacement) ~= "function" then -- candran.can:166
-error("bad argument #2 to 'define' (string or function expected)") -- candran.can:167
-end -- candran.can:167
-if iast["tag"] == "MacroFunction" then -- candran.can:170
-macros["functions"][iast[1][1]] = { -- candran.can:171
-["args"] = iast[2], -- candran.can:171
-["replacement"] = replacement -- candran.can:171
-} -- candran.can:171
-elseif iast["tag"] == "Id" then -- candran.can:172
-macros["variables"][iast[1]] = replacement -- candran.can:173
-else -- candran.can:173
-error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:175
-end -- candran.can:175
-end -- candran.can:175
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:180
-if not preprocess then -- candran.can:181
-return nil, "in preprocessor: " .. err -- candran.can:182
-end -- candran.can:182
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:185
-if not preprocess then -- candran.can:186
-return nil, "in preprocessor: " .. err -- candran.can:187
-end -- candran.can:187
-local success, output = pcall(preprocess) -- candran.can:191
-if not success then -- candran.can:192
-return nil, "in preprocessor: " .. output -- candran.can:193
-end -- candran.can:193
-return output, macros -- candran.can:196
+") -- candran.can:141
+end -- candran.can:141
+env["placeholder"] = function(name) -- candran.can:145
+if env[name] then -- candran.can:146
+env["write"](env[name]) -- candran.can:147
+end -- candran.can:147
+end -- candran.can:147
+env["define"] = function(identifier, replacement) -- candran.can:150
+local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:152
+if not iast then -- candran.can:153
+return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:154
+end -- candran.can:154
+if type(replacement) == "string" then -- candran.can:157
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:158
+if not rast then -- candran.can:159
+return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:160
+end -- candran.can:160
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:163
+rast = rast[1][1] -- candran.can:164
+end -- candran.can:164
+replacement = rast -- candran.can:166
+elseif type(replacement) ~= "function" then -- candran.can:167
+error("bad argument #2 to 'define' (string or function expected)") -- candran.can:168
+end -- candran.can:168
+if iast["tag"] == "MacroFunction" then -- candran.can:171
+macros["functions"][iast[1][1]] = { -- candran.can:172
+["args"] = iast[2], -- candran.can:172
+["replacement"] = replacement -- candran.can:172
+} -- candran.can:172
+elseif iast["tag"] == "Id" then -- candran.can:173
+macros["variables"][iast[1]] = replacement -- candran.can:174
+else -- candran.can:174
+error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:176
+end -- candran.can:176
+end -- candran.can:176
+env["define"]("__STR__(x)", function(x) -- candran.can:182
+return ("%q"):format(x) -- candran.can:182
+end) -- candran.can:182
+local s = require("candran.serpent") -- candran.can:183
+env["define"]("constexpr(expr)", function(expr) -- candran.can:184
+return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:185
+end) -- candran.can:185
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:189
+if not preprocess then -- candran.can:190
+return nil, "in preprocessor: " .. err -- candran.can:191
+end -- candran.can:191
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:194
+if not preprocess then -- candran.can:195
+return nil, "in preprocessor: " .. err -- candran.can:196
 end -- candran.can:196
-candran["compile"] = function(input, options, macros) -- candran.can:206
-if options == nil then options = {} end -- candran.can:206
-options = util["merge"](candran["default"], options) -- candran.can:207
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:209
-if not ast then -- candran.can:211
-return nil, errmsg -- candran.can:212
-end -- candran.can:212
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:215
-end -- candran.can:215
-candran["make"] = function(code, options) -- candran.can:224
-local r, err = candran["preprocess"](code, options) -- candran.can:225
-if r then -- candran.can:226
-r, err = candran["compile"](r, options, err) -- candran.can:227
-if r then -- candran.can:228
-return r -- candran.can:229
-end -- candran.can:229
-end -- candran.can:229
-return r, err -- candran.can:232
-end -- candran.can:232
-local errorRewritingActive = false -- candran.can:235
-local codeCache = {} -- candran.can:236
-candran["loadfile"] = function(filepath, env, options) -- candran.can:239
-local f, err = io["open"](filepath) -- candran.can:240
-if not f then -- candran.can:241
-return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:242
-end -- candran.can:242
-local content = f:read("*a") -- candran.can:244
-f:close() -- candran.can:245
-return candran["load"](content, filepath, env, options) -- candran.can:247
-end -- candran.can:247
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:252
-if options == nil then options = {} end -- candran.can:252
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:253
-local code, err = candran["make"](chunk, options) -- candran.can:255
-if not code then -- candran.can:256
-return code, err -- candran.can:257
-end -- candran.can:257
-codeCache[options["chunkname"]] = code -- candran.can:260
-local f -- candran.can:261
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:262
-if f == nil then -- candran.can:267
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:268
-end -- candran.can:268
-if options["rewriteErrors"] == false then -- candran.can:271
-return f -- candran.can:272
-else -- candran.can:272
-return function(...) -- candran.can:274
-if not errorRewritingActive then -- candran.can:275
-errorRewritingActive = true -- candran.can:276
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:277
-errorRewritingActive = false -- candran.can:278
-if t[1] == false then -- candran.can:279
-error(t[2], 0) -- candran.can:280
-end -- candran.can:280
-return unpack(t, 2) -- candran.can:282
-else -- candran.can:282
-return f(...) -- candran.can:284
-end -- candran.can:284
-end -- candran.can:284
-end -- candran.can:284
-end -- candran.can:284
-candran["dofile"] = function(filename, options) -- candran.can:292
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:293
-if f == nil then -- candran.can:295
-error(err) -- candran.can:296
-else -- candran.can:296
-return f() -- candran.can:298
-end -- candran.can:298
-end -- candran.can:298
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:304
+local success, output = pcall(preprocess) -- candran.can:200
+if not success then -- candran.can:201
+return nil, "in preprocessor: " .. output -- candran.can:202
+end -- candran.can:202
+return output, macros -- candran.can:205
+end -- candran.can:205
+candran["compile"] = function(input, options, macros) -- candran.can:215
+if options == nil then options = {} end -- candran.can:215
+options = util["merge"](candran["default"], options) -- candran.can:216
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:218
+if not ast then -- candran.can:220
+return nil, errmsg -- candran.can:221
+end -- candran.can:221
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:224
+end -- candran.can:224
+candran["make"] = function(code, options) -- candran.can:233
+local r, err = candran["preprocess"](code, options) -- candran.can:234
+if r then -- candran.can:235
+r, err = candran["compile"](r, options, err) -- candran.can:236
+if r then -- candran.can:237
+return r -- candran.can:238
+end -- candran.can:238
+end -- candran.can:238
+return r, err -- candran.can:241
+end -- candran.can:241
+local errorRewritingActive = false -- candran.can:244
+local codeCache = {} -- candran.can:245
+candran["loadfile"] = function(filepath, env, options) -- candran.can:248
+local f, err = io["open"](filepath) -- candran.can:249
+if not f then -- candran.can:250
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:251
+end -- candran.can:251
+local content = f:read("*a") -- candran.can:253
+f:close() -- candran.can:254
+return candran["load"](content, filepath, env, options) -- candran.can:256
+end -- candran.can:256
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:261
+if options == nil then options = {} end -- candran.can:261
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:262
+local code, err = candran["make"](chunk, options) -- candran.can:264
+if not code then -- candran.can:265
+return code, err -- candran.can:266
+end -- candran.can:266
+codeCache[options["chunkname"]] = code -- candran.can:269
+local f -- candran.can:270
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:271
+if f == nil then -- candran.can:276
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:277
+end -- candran.can:277
+if options["rewriteErrors"] == false then -- candran.can:280
+return f -- candran.can:281
+else -- candran.can:281
+return function(...) -- candran.can:283
+if not errorRewritingActive then -- candran.can:284
+errorRewritingActive = true -- candran.can:285
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:286
+errorRewritingActive = false -- candran.can:287
+if t[1] == false then -- candran.can:288
+error(t[2], 0) -- candran.can:289
+end -- candran.can:289
+return unpack(t, 2) -- candran.can:291
+else -- candran.can:291
+return f(...) -- candran.can:293
+end -- candran.can:293
+end -- candran.can:293
+end -- candran.can:293
+end -- candran.can:293
+candran["dofile"] = function(filename, options) -- candran.can:301
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:302
+if f == nil then -- candran.can:304
+error(err) -- candran.can:305
+else -- candran.can:305
+return f() -- candran.can:307
+end -- candran.can:307
+end -- candran.can:307
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:313
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:305
-message = debug["traceback"](message, 2) -- candran.can:306
-end -- candran.can:306
+") then -- candran.can:314
+message = debug["traceback"](message, 2) -- candran.can:315
+end -- candran.can:315
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:308
-line = tonumber(line) -- candran.can:309
-local originalFile -- candran.can:311
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:312
-if strName then -- candran.can:313
-if codeCache[strName] then -- candran.can:314
-originalFile = codeCache[strName] -- candran.can:315
-source = strName -- candran.can:316
-end -- candran.can:316
-else -- candran.can:316
-do -- candran.can:319
-local fi -- candran.can:319
-fi = io["open"](source, "r") -- candran.can:319
-if fi then -- candran.can:319
-originalFile = fi:read("*a") -- candran.can:320
-fi:close() -- candran.can:321
-end -- candran.can:321
-end -- candran.can:321
-end -- candran.can:321
-if originalFile then -- candran.can:325
-local i = 0 -- candran.can:326
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:317
+line = tonumber(line) -- candran.can:318
+local originalFile -- candran.can:320
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:321
+if strName then -- candran.can:322
+if codeCache[strName] then -- candran.can:323
+originalFile = codeCache[strName] -- candran.can:324
+source = strName -- candran.can:325
+end -- candran.can:325
+else -- candran.can:325
+do -- candran.can:328
+local fi -- candran.can:328
+fi = io["open"](source, "r") -- candran.can:328
+if fi then -- candran.can:328
+originalFile = fi:read("*a") -- candran.can:329
+fi:close() -- candran.can:330
+end -- candran.can:330
+end -- candran.can:330
+end -- candran.can:330
+if originalFile then -- candran.can:334
+local i = 0 -- candran.can:335
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:327
-i = i + 1 -- candran.can:328
-if i == line then -- candran.can:329
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:330
-if lineMap then -- candran.can:331
-if extSource ~= source then -- candran.can:332
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:333
-else -- candran.can:333
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:335
-end -- candran.can:335
-end -- candran.can:335
-break -- candran.can:338
-end -- candran.can:338
-end -- candran.can:338
-end -- candran.can:338
-end) -- candran.can:338
-end -- candran.can:338
-candran["searcher"] = function(modpath) -- candran.can:346
-local filepath = util["search"](modpath, { "can" }) -- candran.can:347
-if not filepath then -- candran.can:348
-if _VERSION == "Lua 5.4" then -- candran.can:349
-return "no candran file in package.path" -- candran.can:350
-else -- candran.can:350
+") do -- candran.can:336
+i = i + 1 -- candran.can:337
+if i == line then -- candran.can:338
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:339
+if lineMap then -- candran.can:340
+if extSource ~= source then -- candran.can:341
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:342
+else -- candran.can:342
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:344
+end -- candran.can:344
+end -- candran.can:344
+break -- candran.can:347
+end -- candran.can:347
+end -- candran.can:347
+end -- candran.can:347
+end) -- candran.can:347
+end -- candran.can:347
+candran["searcher"] = function(modpath) -- candran.can:355
+local filepath = util["search"](modpath, { "can" }) -- candran.can:356
+if not filepath then -- candran.can:357
+if _VERSION == "Lua 5.4" then -- candran.can:358
+return "no candran file in package.path" -- candran.can:359
+else -- candran.can:359
 return "\
-\9no candran file in package.path" -- candran.can:352
-end -- candran.can:352
-end -- candran.can:352
-return function(modpath) -- candran.can:355
-local r, s = candran["loadfile"](filepath) -- candran.can:356
-if r then -- candran.can:357
-return r(modpath, filepath) -- candran.can:358
-else -- candran.can:358
+\9no candran file in package.path" -- candran.can:361
+end -- candran.can:361
+end -- candran.can:361
+return function(modpath) -- candran.can:364
+local r, s = candran["loadfile"](filepath) -- candran.can:365
+if r then -- candran.can:366
+return r(modpath, filepath) -- candran.can:367
+else -- candran.can:367
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:360
-end -- candran.can:360
-end, filepath -- candran.can:362
-end -- candran.can:362
-candran["setup"] = function() -- candran.can:366
-local searchers = (function() -- candran.can:367
-if _VERSION == "Lua 5.1" then -- candran.can:367
-return package["loaders"] -- candran.can:368
-else -- candran.can:368
-return package["searchers"] -- candran.can:370
-end -- candran.can:370
-end)() -- candran.can:370
-for _, s in ipairs(searchers) do -- candran.can:373
-if s == candran["searcher"] then -- candran.can:374
-return candran -- candran.can:375
-end -- candran.can:375
-end -- candran.can:375
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:379
-return candran -- candran.can:380
-end -- candran.can:380
-return candran -- candran.can:383
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:369
+end -- candran.can:369
+end, filepath -- candran.can:371
+end -- candran.can:371
+candran["setup"] = function() -- candran.can:375
+local searchers = (function() -- candran.can:376
+if _VERSION == "Lua 5.1" then -- candran.can:376
+return package["loaders"] -- candran.can:377
+else -- candran.can:377
+return package["searchers"] -- candran.can:379
+end -- candran.can:379
+end)() -- candran.can:379
+for _, s in ipairs(searchers) do -- candran.can:382
+if s == candran["searcher"] then -- candran.can:383
+return candran -- candran.can:384
+end -- candran.can:384
+end -- candran.can:384
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:388
+return candran -- candran.can:389
+end -- candran.can:389
+return candran -- candran.can:392
diff --git a/candran/serpent.lua b/candran/serpent.lua
new file mode 100644
index 0000000..067bb29
--- /dev/null
+++ b/candran/serpent.lua
@@ -0,0 +1,163 @@
+--[[
+Serpent source is released under the MIT License
+
+Copyright (c) 2012-2018 Paul Kulchenko (paul@kulchenko.com)
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.
+]]
+local n, v = "serpent", "0.302" -- (C) 2012-18 Paul Kulchenko; MIT License
+local c, d = "Paul Kulchenko", "Lua serializer and pretty printer"
+local snum = {[tostring(1/0)]='1/0 --[[math.huge]]',[tostring(-1/0)]='-1/0 --[[-math.huge]]',[tostring(0/0)]='0/0'}
+local badtype = {thread = true, userdata = true, cdata = true}
+local getmetatable = debug and debug.getmetatable or getmetatable
+local pairs = function(t) return next, t end -- avoid using __pairs in Lua 5.2+
+local keyword, globals, G = {}, {}, (_G or _ENV)
+for _,k in ipairs({'and', 'break', 'do', 'else', 'elseif', 'end', 'false',
+  'for', 'function', 'goto', 'if', 'in', 'local', 'nil', 'not', 'or', 'repeat',
+  'return', 'then', 'true', 'until', 'while'}) do keyword[k] = true end
+for k,v in pairs(G) do globals[v] = k end -- build func to name mapping
+for _,g in ipairs({'coroutine', 'debug', 'io', 'math', 'string', 'table', 'os'}) do
+  for k,v in pairs(type(G[g]) == 'table' and G[g] or {}) do globals[v] = g..'.'..k end end
+
+local function s(t, opts)
+  local name, indent, fatal, maxnum = opts.name, opts.indent, opts.fatal, opts.maxnum
+  local sparse, custom, huge = opts.sparse, opts.custom, not opts.nohuge
+  local space, maxl = (opts.compact and '' or ' '), (opts.maxlevel or math.huge)
+  local maxlen, metatostring = tonumber(opts.maxlength), opts.metatostring
+  local iname, comm = '_'..(name or ''), opts.comment and (tonumber(opts.comment) or math.huge)
+  local numformat = opts.numformat or "%.17g"
+  local seen, sref, syms, symn = {}, {'local '..iname..'={}'}, {}, 0
+  local function gensym(val) return '_'..(tostring(tostring(val)):gsub("[^%w]",""):gsub("(%d%w+)",
+    -- tostring(val) is needed because __tostring may return a non-string value
+    function(s) if not syms[s] then symn = symn+1; syms[s] = symn end return tostring(syms[s]) end)) end
+  local function safestr(s) return type(s) == "number" and tostring(huge and snum[tostring(s)] or numformat:format(s))
+    or type(s) ~= "string" and tostring(s) -- escape NEWLINE/010 and EOF/026
+    or ("%q"):format(s):gsub("\010","n"):gsub("\026","\\026") end
+  local function comment(s,l) return comm and (l or 0) < comm and ' --[['..select(2, pcall(tostring, s))..']]' or '' end
+  local function globerr(s,l) return globals[s] and globals[s]..comment(s,l) or not fatal
+    and safestr(select(2, pcall(tostring, s))) or error("Can't serialize "..tostring(s)) end
+  local function safename(path, name) -- generates foo.bar, foo[3], or foo['b a r']
+    local n = name == nil and '' or name
+    local plain = type(n) == "string" and n:match("^[%l%u_][%w_]*$") and not keyword[n]
+    local safe = plain and n or '['..safestr(n)..']'
+    return (path or '')..(plain and path and '.' or '')..safe, safe end
+  local alphanumsort = type(opts.sortkeys) == 'function' and opts.sortkeys or function(k, o, n) -- k=keys, o=originaltable, n=padding
+    local maxn, to = tonumber(n) or 12, {number = 'a', string = 'b'}
+    local function padnum(d) return ("%0"..tostring(maxn).."d"):format(tonumber(d)) end
+    table.sort(k, function(a,b)
+      -- sort numeric keys first: k[key] is not nil for numerical keys
+      return (k[a] ~= nil and 0 or to[type(a)] or 'z')..(tostring(a):gsub("%d+",padnum))
+           < (k[b] ~= nil and 0 or to[type(b)] or 'z')..(tostring(b):gsub("%d+",padnum)) end) end
+  local function val2str(t, name, indent, insref, path, plainindex, level)
+    local ttype, level, mt = type(t), (level or 0), getmetatable(t)
+    local spath, sname = safename(path, name)
+    local tag = plainindex and
+      ((type(name) == "number") and '' or name..space..'='..space) or
+      (name ~= nil and sname..space..'='..space or '')
+    if seen[t] then -- already seen this element
+      sref[#sref+1] = spath..space..'='..space..seen[t]
+      return tag..'nil'..comment('ref', level) end
+    -- protect from those cases where __tostring may fail
+    if type(mt) == 'table' and metatostring ~= false then
+      local to, tr = pcall(function() return mt.__tostring(t) end)
+      local so, sr = pcall(function() return mt.__serialize(t) end)
+      if (to or so) then -- knows how to serialize itself
+        seen[t] = insref or spath
+        t = so and sr or tr
+        ttype = type(t)
+      end -- new value falls through to be serialized
+    end
+    if ttype == "table" then
+      if level >= maxl then return tag..'{}'..comment('maxlvl', level) end
+      seen[t] = insref or spath
+      if next(t) == nil then return tag..'{}'..comment(t, level) end -- table empty
+      if maxlen and maxlen < 0 then return tag..'{}'..comment('maxlen', level) end
+      local maxn, o, out = math.min(#t, maxnum or #t), {}, {}
+      for key = 1, maxn do o[key] = key end
+      if not maxnum or #o < maxnum then
+        local n = #o -- n = n + 1; o[n] is much faster than o[#o+1] on large tables
+        for key in pairs(t) do if o[key] ~= key then n = n + 1; o[n] = key end end end
+      if maxnum and #o > maxnum then o[maxnum+1] = nil end
+      if opts.sortkeys and #o > maxn then alphanumsort(o, t, opts.sortkeys) end
+      local sparse = sparse and #o > maxn -- disable sparsness if only numeric keys (shorter output)
+      for n, key in ipairs(o) do
+        local value, ktype, plainindex = t[key], type(key), n <= maxn and not sparse
+        if opts.valignore and opts.valignore[value] -- skip ignored values; do nothing
+        or opts.keyallow and not opts.keyallow[key]
+        or opts.keyignore and opts.keyignore[key]
+        or opts.valtypeignore and opts.valtypeignore[type(value)] -- skipping ignored value types
+        or sparse and value == nil then -- skipping nils; do nothing
+        elseif ktype == 'table' or ktype == 'function' or badtype[ktype] then
+          if not seen[key] and not globals[key] then
+            sref[#sref+1] = 'placeholder'
+            local sname = safename(iname, gensym(key)) -- iname is table for local variables
+            sref[#sref] = val2str(key,sname,indent,sname,iname,true) end
+          sref[#sref+1] = 'placeholder'
+          local path = seen[t]..'['..tostring(seen[key] or globals[key] or gensym(key))..']'
+          sref[#sref] = path..space..'='..space..tostring(seen[value] or val2str(value,nil,indent,path))
+        else
+          out[#out+1] = val2str(value,key,indent,nil,seen[t],plainindex,level+1)
+          if maxlen then
+            maxlen = maxlen - #out[#out]
+            if maxlen < 0 then break end
+          end
+        end
+      end
+      local prefix = string.rep(indent or '', level)
+      local head = indent and '{\n'..prefix..indent or '{'
+      local body = table.concat(out, ','..(indent and '\n'..prefix..indent or space))
+      local tail = indent and "\n"..prefix..'}' or '}'
+      return (custom and custom(tag,head,body,tail,level) or tag..head..body..tail)..comment(t, level)
+    elseif badtype[ttype] then
+      seen[t] = insref or spath
+      return tag..globerr(t, level)
+    elseif ttype == 'function' then
+      seen[t] = insref or spath
+      if opts.nocode then return tag.."function() --[[..skipped..]] end"..comment(t, level) end
+      local ok, res = pcall(string.dump, t)
+      local func = ok and "((loadstring or load)("..safestr(res)..",'@serialized'))"..comment(t, level)
+      return tag..(func or globerr(t, level))
+    else return tag..safestr(t) end -- handle all other types
+  end
+  local sepr = indent and "\n" or ";"..space
+  local body = val2str(t, name, indent) -- this call also populates sref
+  local tail = #sref>1 and table.concat(sref, sepr)..sepr or ''
+  local warn = opts.comment and #sref>1 and space.."--[[incomplete output with shared/self-references skipped]]" or ''
+  return not name and body..warn or "do local "..body..sepr..tail.."return "..name..sepr.."end"
+end
+
+local function deserialize(data, opts)
+  local env = (opts and opts.safe == false) and G
+    or setmetatable({}, {
+        __index = function(t,k) return t end,
+        __call = function(t,...) error("cannot call functions") end
+      })
+  local f, res = (loadstring or load)('return '..data, nil, nil, env)
+  if not f then f, res = (loadstring or load)(data, nil, nil, env) end
+  if not f then return f, res end
+  if setfenv then setfenv(f, env) end
+  return pcall(f)
+end
+
+local function merge(a, b) if b then for k,v in pairs(b) do a[k] = v end end; return a; end
+return { _NAME = n, _COPYRIGHT = c, _DESCRIPTION = d, _VERSION = v, serialize = s,
+  load = deserialize,
+  dump = function(a, opts) return s(a, merge({name = '_', compact = true, sparse = true}, opts)) end,
+  line = function(a, opts) return s(a, merge({sortkeys = true, comment = true}, opts)) end,
+  block = function(a, opts) return s(a, merge({indent = '  ', sortkeys = true, comment = true}, opts)) end }

From b72aff807c9a0568a4f9e9d07e8842e1bc1823fd Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 11 Jun 2021 14:29:12 +0200
Subject: [PATCH 29/43] Update README

---
 README.md | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 083e23a..6b502ac 100644
--- a/README.md
+++ b/README.md
@@ -461,11 +461,13 @@ The preprocessor has access to the following variables:
 
 #### Macros
 
-Using `define(identifier, replacement)` in the preprocessor, you can define macros. Both identifier and replacement are expected to be string containing Candran/Lua code.
+Using `define(identifier, replacement)` in the preprocessor, you can define macros. `identifier` is expected to be string containing Candran/Lua code (representing either a identifier or a function call), and `replacement` can be either a string containing Candran/Lua code or a function.
 
-There are two types of macros: variables, which replace every instance of the given identifier with the replacement text; and functions, which will replace every call to this function with the replacement text, also replacing its arguments. The `...` will be replaced with every remaining argument. Macros can not be recursive.
+There are two types of macros identifiers: variables, which replace every instance of the given identifier with the replacement; and functions, which will replace every call to this function with the replacement, also replacing its arguments. The `...` will be replaced with every remaining argument. Macros can not be recursive.
 
-If the replacement text is empty, the macro will simply be removed from the compiled code.
+If `replacement` is a string, the macro will be replaced with this string, replacing the macros arguments in the string. If `replacement` is a function, the function will be called every time the macro is encoutered, with the macro arguments passed as strings, and is expected to return a string that will be used as a replacement.
+
+If `replacement` is the empty empty, the macro will simply be removed from the compiled code.
 
 ```lua
 -- Variable macro
@@ -481,8 +483,17 @@ log("network", "error") -- network: error
 
 #define("debug()", "")
 debug() -- not present in complied code
+
+#define("_assert(what, err)", function(what, err)
+#	return "if "..what.." then error("..err..") end"
+#end)
+_assert(5 = 2, "failed") -- replaced with if 5 = 2 then error("failed") end
 ```
 
+Candran provide some predefined macros by default:
+* `__STR__(expr)`: returns a string litteral representing the expression (e.g., `__STR__(5 + 2)` expands to `"5 + 2"`)
+* `constexpr(expr)`: calculate the result of the expression in the preprocessor, and returns a representation of the returned value, i.e. precalculate an expression at compile time
+
 Compile targets
 ---------------
 Candran is based on the Lua 5.4 syntax, but can be compiled to Lua 5.4, Lua 5.3, Lua 5.2, LuaJIT, and Lua 5.1 compatible code.

From dd22f2de3d782d7a2d7735b56a94819b46dd7a06 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 17 Jun 2021 18:03:34 +0200
Subject: [PATCH 30/43] Rename built-in macros to __*__, add flag to disable
 built-in macros

---
 README.md   |   4 +-
 candran.can |  16 +-
 candran.lua | 567 ++++++++++++++++++++++++++--------------------------
 3 files changed, 297 insertions(+), 290 deletions(-)

diff --git a/README.md b/README.md
index 6b502ac..8132861 100644
--- a/README.md
+++ b/README.md
@@ -492,7 +492,8 @@ _assert(5 = 2, "failed") -- replaced with if 5 = 2 then error("failed") end
 
 Candran provide some predefined macros by default:
 * `__STR__(expr)`: returns a string litteral representing the expression (e.g., `__STR__(5 + 2)` expands to `"5 + 2"`)
-* `constexpr(expr)`: calculate the result of the expression in the preprocessor, and returns a representation of the returned value, i.e. precalculate an expression at compile time
+* `__CONSTEXPR__(expr)`: calculate the result of the expression in the preprocessor, and returns a representation of the returned value, i.e. precalculate an expression at compile time
+You can disable these built-in macros using the `noBuiltInMacros` compiler option.
 
 Compile targets
 ---------------
@@ -669,6 +670,7 @@ variablePrefix = "__CAN_" -- Prefix used when Candran needs to set a local varia
 mapLines = true -- if true, compiled files will contain comments at the end of each line indicating the associated line and source file. Needed for error rewriting.
 chunkname = "nil" -- the chunkname used when running code using the helper functions and writing the line origin comments. Candran will try to set it to the original filename if it knows it.
 rewriteErrors = true -- true to enable error rewriting when loading code using the helper functions. Will wrap the whole code in a xpcall().
+noBuiltInMacros = false -- true to disable built-in macros __*__
 ```
 
 You can change the defaults used for these variables in the table `candran.default`.
diff --git a/candran.can b/candran.can
index cf1a7ce..159ac33 100644
--- a/candran.can
+++ b/candran.can
@@ -28,7 +28,8 @@ candran.default = {
 	variablePrefix = "__CAN_",
 	mapLines = true,
 	chunkname = "nil",
-	rewriteErrors = true
+	rewriteErrors = true,
+	noBuiltInMacros = false
 }
 
 -- Autodetect version
@@ -178,12 +179,13 @@ function candran.preprocess(input, options={})
 	end
 
 	-- default macros
-	-- TODO make it optional
-	env.define("__STR__(x)", function(x) return ("%q"):format(x) end)
-	local s = require("candran.serpent")
-	env.define("constexpr(expr)", function(expr)
-		return s.block(assert(candran.load(expr))(), {fatal = true})
-	end)
+	if not options.noBuiltInMacros then
+		env.define("__STR__(x)", function(x) return ("%q"):format(x) end)
+		local s = require("candran.serpent")
+		env.define("__CONSTEXPR__(expr)", function(expr)
+			return s.block(assert(candran.load(expr))(), {fatal = true})
+		end)
+	end
 
 	-- compile & load preprocessor
 	local preprocess, err = candran.compile(preprocessor, options)
diff --git a/candran.lua b/candran.lua
index eb17932..82260c7 100644
--- a/candran.lua
+++ b/candran.lua
@@ -7078,307 +7078,310 @@ candran["default"] = { -- candran.can:24
 ["variablePrefix"] = "__CAN_", -- candran.can:28
 ["mapLines"] = true, -- candran.can:29
 ["chunkname"] = "nil", -- candran.can:30
-["rewriteErrors"] = true -- candran.can:31
-} -- candran.can:31
-if _VERSION == "Lua 5.1" then -- candran.can:35
-if package["loaded"]["jit"] then -- candran.can:36
-candran["default"]["target"] = "luajit" -- candran.can:37
-else -- candran.can:37
-candran["default"]["target"] = "lua51" -- candran.can:39
-end -- candran.can:39
-elseif _VERSION == "Lua 5.2" then -- candran.can:41
-candran["default"]["target"] = "lua52" -- candran.can:42
-elseif _VERSION == "Lua 5.3" then -- candran.can:43
-candran["default"]["target"] = "lua53" -- candran.can:44
-end -- candran.can:44
-candran["preprocess"] = function(input, options) -- candran.can:54
-if options == nil then options = {} end -- candran.can:54
-options = util["merge"](candran["default"], options) -- candran.can:55
-local macros = { -- candran.can:56
-["functions"] = {}, -- candran.can:57
-["variables"] = {} -- candran.can:58
-} -- candran.can:58
-local preprocessor = "" -- candran.can:62
-local i = 0 -- candran.can:63
-local inLongString = false -- candran.can:64
-local inComment = false -- candran.can:65
+["rewriteErrors"] = true, -- candran.can:31
+["noBuiltInMacros"] = false -- candran.can:32
+} -- candran.can:32
+if _VERSION == "Lua 5.1" then -- candran.can:36
+if package["loaded"]["jit"] then -- candran.can:37
+candran["default"]["target"] = "luajit" -- candran.can:38
+else -- candran.can:38
+candran["default"]["target"] = "lua51" -- candran.can:40
+end -- candran.can:40
+elseif _VERSION == "Lua 5.2" then -- candran.can:42
+candran["default"]["target"] = "lua52" -- candran.can:43
+elseif _VERSION == "Lua 5.3" then -- candran.can:44
+candran["default"]["target"] = "lua53" -- candran.can:45
+end -- candran.can:45
+candran["preprocess"] = function(input, options) -- candran.can:55
+if options == nil then options = {} end -- candran.can:55
+options = util["merge"](candran["default"], options) -- candran.can:56
+local macros = { -- candran.can:57
+["functions"] = {}, -- candran.can:58
+["variables"] = {} -- candran.can:59
+} -- candran.can:59
+local preprocessor = "" -- candran.can:63
+local i = 0 -- candran.can:64
+local inLongString = false -- candran.can:65
+local inComment = false -- candran.can:66
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:66
-i = i + (1) -- candran.can:67
-if inComment then -- candran.can:69
-inComment = not line:match("%]%]") -- candran.can:70
-elseif inLongString then -- candran.can:71
-inLongString = not line:match("%]%]") -- candran.can:72
-else -- candran.can:72
-if line:match("[^%-]%[%[") then -- candran.can:74
-inLongString = true -- candran.can:75
-elseif line:match("%-%-%[%[") then -- candran.can:76
-inComment = true -- candran.can:77
-end -- candran.can:77
-end -- candran.can:77
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:80
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:81
-else -- candran.can:81
-local l = line:sub(1, - 2) -- candran.can:83
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:84
+)") do -- candran.can:67
+i = i + (1) -- candran.can:68
+if inComment then -- candran.can:70
+inComment = not line:match("%]%]") -- candran.can:71
+elseif inLongString then -- candran.can:72
+inLongString = not line:match("%]%]") -- candran.can:73
+else -- candran.can:73
+if line:match("[^%-]%[%[") then -- candran.can:75
+inLongString = true -- candran.can:76
+elseif line:match("%-%-%[%[") then -- candran.can:77
+inComment = true -- candran.can:78
+end -- candran.can:78
+end -- candran.can:78
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:81
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:82
+else -- candran.can:82
+local l = line:sub(1, - 2) -- candran.can:84
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:85
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:85
-else -- candran.can:85
+") -- candran.can:86
+else -- candran.can:86
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:87
-end -- candran.can:87
-end -- candran.can:87
-end -- candran.can:87
-preprocessor = preprocessor .. ("return output") -- candran.can:91
-local env = util["merge"](_G, options) -- candran.can:94
-env["candran"] = candran -- candran.can:96
-env["output"] = "" -- candran.can:98
-env["import"] = function(modpath, margs) -- candran.can:105
-if margs == nil then margs = {} end -- candran.can:105
-local filepath = assert(util["search"](modpath, { -- candran.can:106
-"can", -- candran.can:106
-"lua" -- candran.can:106
-}), "No module named \"" .. modpath .. "\"") -- candran.can:106
-local f = io["open"](filepath) -- candran.can:109
-if not f then -- candran.can:110
-error("can't open the module file to import") -- candran.can:110
-end -- candran.can:110
-margs = util["merge"](options, { -- candran.can:112
-["chunkname"] = filepath, -- candran.can:112
-["loadLocal"] = true, -- candran.can:112
-["loadPackage"] = true -- candran.can:112
-}, margs) -- candran.can:112
-local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:113
-macros = util["recmerge"](macros, modmacros) -- candran.can:114
-f:close() -- candran.can:115
-local modname = modpath:match("[^%.]+$") -- candran.can:118
+") -- candran.can:88
+end -- candran.can:88
+end -- candran.can:88
+end -- candran.can:88
+preprocessor = preprocessor .. ("return output") -- candran.can:92
+local env = util["merge"](_G, options) -- candran.can:95
+env["candran"] = candran -- candran.can:97
+env["output"] = "" -- candran.can:99
+env["import"] = function(modpath, margs) -- candran.can:106
+if margs == nil then margs = {} end -- candran.can:106
+local filepath = assert(util["search"](modpath, { -- candran.can:107
+"can", -- candran.can:107
+"lua" -- candran.can:107
+}), "No module named \"" .. modpath .. "\"") -- candran.can:107
+local f = io["open"](filepath) -- candran.can:110
+if not f then -- candran.can:111
+error("can't open the module file to import") -- candran.can:111
+end -- candran.can:111
+margs = util["merge"](options, { -- candran.can:113
+["chunkname"] = filepath, -- candran.can:113
+["loadLocal"] = true, -- candran.can:113
+["loadPackage"] = true -- candran.can:113
+}, margs) -- candran.can:113
+local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:114
+macros = util["recmerge"](macros, modmacros) -- candran.can:115
+f:close() -- candran.can:116
+local modname = modpath:match("[^%.]+$") -- candran.can:119
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:127
-end -- candran.can:127
-env["include"] = function(file) -- candran.can:132
-local f = io["open"](file) -- candran.can:133
-if not f then -- candran.can:134
-error("can't open the file " .. file .. " to include") -- candran.can:134
-end -- candran.can:134
-env["write"](f:read("*a")) -- candran.can:135
-f:close() -- candran.can:136
-end -- candran.can:136
-env["write"] = function(...) -- candran.can:140
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:128
+end -- candran.can:128
+env["include"] = function(file) -- candran.can:133
+local f = io["open"](file) -- candran.can:134
+if not f then -- candran.can:135
+error("can't open the file " .. file .. " to include") -- candran.can:135
+end -- candran.can:135
+env["write"](f:read("*a")) -- candran.can:136
+f:close() -- candran.can:137
+end -- candran.can:137
+env["write"] = function(...) -- candran.can:141
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:141
-end -- candran.can:141
-env["placeholder"] = function(name) -- candran.can:145
-if env[name] then -- candran.can:146
-env["write"](env[name]) -- candran.can:147
-end -- candran.can:147
-end -- candran.can:147
-env["define"] = function(identifier, replacement) -- candran.can:150
-local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:152
-if not iast then -- candran.can:153
-return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:154
-end -- candran.can:154
-if type(replacement) == "string" then -- candran.can:157
-local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:158
-if not rast then -- candran.can:159
-return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:160
-end -- candran.can:160
-if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:163
-rast = rast[1][1] -- candran.can:164
-end -- candran.can:164
-replacement = rast -- candran.can:166
-elseif type(replacement) ~= "function" then -- candran.can:167
-error("bad argument #2 to 'define' (string or function expected)") -- candran.can:168
-end -- candran.can:168
-if iast["tag"] == "MacroFunction" then -- candran.can:171
-macros["functions"][iast[1][1]] = { -- candran.can:172
-["args"] = iast[2], -- candran.can:172
-["replacement"] = replacement -- candran.can:172
-} -- candran.can:172
-elseif iast["tag"] == "Id" then -- candran.can:173
-macros["variables"][iast[1]] = replacement -- candran.can:174
-else -- candran.can:174
-error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:176
-end -- candran.can:176
-end -- candran.can:176
-env["define"]("__STR__(x)", function(x) -- candran.can:182
-return ("%q"):format(x) -- candran.can:182
-end) -- candran.can:182
-local s = require("candran.serpent") -- candran.can:183
-env["define"]("constexpr(expr)", function(expr) -- candran.can:184
-return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:185
-end) -- candran.can:185
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:189
-if not preprocess then -- candran.can:190
-return nil, "in preprocessor: " .. err -- candran.can:191
-end -- candran.can:191
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:194
-if not preprocess then -- candran.can:195
-return nil, "in preprocessor: " .. err -- candran.can:196
-end -- candran.can:196
-local success, output = pcall(preprocess) -- candran.can:200
-if not success then -- candran.can:201
-return nil, "in preprocessor: " .. output -- candran.can:202
-end -- candran.can:202
-return output, macros -- candran.can:205
-end -- candran.can:205
-candran["compile"] = function(input, options, macros) -- candran.can:215
-if options == nil then options = {} end -- candran.can:215
-options = util["merge"](candran["default"], options) -- candran.can:216
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:218
-if not ast then -- candran.can:220
-return nil, errmsg -- candran.can:221
-end -- candran.can:221
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:224
-end -- candran.can:224
-candran["make"] = function(code, options) -- candran.can:233
-local r, err = candran["preprocess"](code, options) -- candran.can:234
-if r then -- candran.can:235
-r, err = candran["compile"](r, options, err) -- candran.can:236
+") -- candran.can:142
+end -- candran.can:142
+env["placeholder"] = function(name) -- candran.can:146
+if env[name] then -- candran.can:147
+env["write"](env[name]) -- candran.can:148
+end -- candran.can:148
+end -- candran.can:148
+env["define"] = function(identifier, replacement) -- candran.can:151
+local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:153
+if not iast then -- candran.can:154
+return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:155
+end -- candran.can:155
+if type(replacement) == "string" then -- candran.can:158
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:159
+if not rast then -- candran.can:160
+return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:161
+end -- candran.can:161
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:164
+rast = rast[1][1] -- candran.can:165
+end -- candran.can:165
+replacement = rast -- candran.can:167
+elseif type(replacement) ~= "function" then -- candran.can:168
+error("bad argument #2 to 'define' (string or function expected)") -- candran.can:169
+end -- candran.can:169
+if iast["tag"] == "MacroFunction" then -- candran.can:172
+macros["functions"][iast[1][1]] = { -- candran.can:173
+["args"] = iast[2], -- candran.can:173
+["replacement"] = replacement -- candran.can:173
+} -- candran.can:173
+elseif iast["tag"] == "Id" then -- candran.can:174
+macros["variables"][iast[1]] = replacement -- candran.can:175
+else -- candran.can:175
+error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:177
+end -- candran.can:177
+end -- candran.can:177
+if not options["noBuiltInMacros"] then -- candran.can:182
+env["define"]("__STR__(x)", function(x) -- candran.can:183
+return ("%q"):format(x) -- candran.can:183
+end) -- candran.can:183
+local s = require("candran.serpent") -- candran.can:184
+env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:185
+return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:186
+end) -- candran.can:186
+end -- candran.can:186
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:191
+if not preprocess then -- candran.can:192
+return nil, "in preprocessor: " .. err -- candran.can:193
+end -- candran.can:193
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:196
+if not preprocess then -- candran.can:197
+return nil, "in preprocessor: " .. err -- candran.can:198
+end -- candran.can:198
+local success, output = pcall(preprocess) -- candran.can:202
+if not success then -- candran.can:203
+return nil, "in preprocessor: " .. output -- candran.can:204
+end -- candran.can:204
+return output, macros -- candran.can:207
+end -- candran.can:207
+candran["compile"] = function(input, options, macros) -- candran.can:217
+if options == nil then options = {} end -- candran.can:217
+options = util["merge"](candran["default"], options) -- candran.can:218
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:220
+if not ast then -- candran.can:222
+return nil, errmsg -- candran.can:223
+end -- candran.can:223
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:226
+end -- candran.can:226
+candran["make"] = function(code, options) -- candran.can:235
+local r, err = candran["preprocess"](code, options) -- candran.can:236
 if r then -- candran.can:237
-return r -- candran.can:238
-end -- candran.can:238
-end -- candran.can:238
-return r, err -- candran.can:241
-end -- candran.can:241
-local errorRewritingActive = false -- candran.can:244
-local codeCache = {} -- candran.can:245
-candran["loadfile"] = function(filepath, env, options) -- candran.can:248
-local f, err = io["open"](filepath) -- candran.can:249
-if not f then -- candran.can:250
-return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:251
-end -- candran.can:251
-local content = f:read("*a") -- candran.can:253
-f:close() -- candran.can:254
-return candran["load"](content, filepath, env, options) -- candran.can:256
-end -- candran.can:256
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:261
-if options == nil then options = {} end -- candran.can:261
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:262
-local code, err = candran["make"](chunk, options) -- candran.can:264
-if not code then -- candran.can:265
-return code, err -- candran.can:266
-end -- candran.can:266
-codeCache[options["chunkname"]] = code -- candran.can:269
-local f -- candran.can:270
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:271
-if f == nil then -- candran.can:276
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:277
-end -- candran.can:277
-if options["rewriteErrors"] == false then -- candran.can:280
-return f -- candran.can:281
-else -- candran.can:281
-return function(...) -- candran.can:283
-if not errorRewritingActive then -- candran.can:284
-errorRewritingActive = true -- candran.can:285
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:286
-errorRewritingActive = false -- candran.can:287
-if t[1] == false then -- candran.can:288
-error(t[2], 0) -- candran.can:289
-end -- candran.can:289
-return unpack(t, 2) -- candran.can:291
-else -- candran.can:291
-return f(...) -- candran.can:293
-end -- candran.can:293
-end -- candran.can:293
-end -- candran.can:293
-end -- candran.can:293
-candran["dofile"] = function(filename, options) -- candran.can:301
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:302
-if f == nil then -- candran.can:304
-error(err) -- candran.can:305
-else -- candran.can:305
-return f() -- candran.can:307
-end -- candran.can:307
-end -- candran.can:307
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:313
+r, err = candran["compile"](r, options, err) -- candran.can:238
+if r then -- candran.can:239
+return r -- candran.can:240
+end -- candran.can:240
+end -- candran.can:240
+return r, err -- candran.can:243
+end -- candran.can:243
+local errorRewritingActive = false -- candran.can:246
+local codeCache = {} -- candran.can:247
+candran["loadfile"] = function(filepath, env, options) -- candran.can:250
+local f, err = io["open"](filepath) -- candran.can:251
+if not f then -- candran.can:252
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:253
+end -- candran.can:253
+local content = f:read("*a") -- candran.can:255
+f:close() -- candran.can:256
+return candran["load"](content, filepath, env, options) -- candran.can:258
+end -- candran.can:258
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:263
+if options == nil then options = {} end -- candran.can:263
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:264
+local code, err = candran["make"](chunk, options) -- candran.can:266
+if not code then -- candran.can:267
+return code, err -- candran.can:268
+end -- candran.can:268
+codeCache[options["chunkname"]] = code -- candran.can:271
+local f -- candran.can:272
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:273
+if f == nil then -- candran.can:278
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:279
+end -- candran.can:279
+if options["rewriteErrors"] == false then -- candran.can:282
+return f -- candran.can:283
+else -- candran.can:283
+return function(...) -- candran.can:285
+if not errorRewritingActive then -- candran.can:286
+errorRewritingActive = true -- candran.can:287
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:288
+errorRewritingActive = false -- candran.can:289
+if t[1] == false then -- candran.can:290
+error(t[2], 0) -- candran.can:291
+end -- candran.can:291
+return unpack(t, 2) -- candran.can:293
+else -- candran.can:293
+return f(...) -- candran.can:295
+end -- candran.can:295
+end -- candran.can:295
+end -- candran.can:295
+end -- candran.can:295
+candran["dofile"] = function(filename, options) -- candran.can:303
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:304
+if f == nil then -- candran.can:306
+error(err) -- candran.can:307
+else -- candran.can:307
+return f() -- candran.can:309
+end -- candran.can:309
+end -- candran.can:309
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:315
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:314
-message = debug["traceback"](message, 2) -- candran.can:315
-end -- candran.can:315
+") then -- candran.can:316
+message = debug["traceback"](message, 2) -- candran.can:317
+end -- candran.can:317
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:317
-line = tonumber(line) -- candran.can:318
-local originalFile -- candran.can:320
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:321
-if strName then -- candran.can:322
-if codeCache[strName] then -- candran.can:323
-originalFile = codeCache[strName] -- candran.can:324
-source = strName -- candran.can:325
-end -- candran.can:325
-else -- candran.can:325
-do -- candran.can:328
-local fi -- candran.can:328
-fi = io["open"](source, "r") -- candran.can:328
-if fi then -- candran.can:328
-originalFile = fi:read("*a") -- candran.can:329
-fi:close() -- candran.can:330
-end -- candran.can:330
-end -- candran.can:330
-end -- candran.can:330
-if originalFile then -- candran.can:334
-local i = 0 -- candran.can:335
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:319
+line = tonumber(line) -- candran.can:320
+local originalFile -- candran.can:322
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:323
+if strName then -- candran.can:324
+if codeCache[strName] then -- candran.can:325
+originalFile = codeCache[strName] -- candran.can:326
+source = strName -- candran.can:327
+end -- candran.can:327
+else -- candran.can:327
+do -- candran.can:330
+local fi -- candran.can:330
+fi = io["open"](source, "r") -- candran.can:330
+if fi then -- candran.can:330
+originalFile = fi:read("*a") -- candran.can:331
+fi:close() -- candran.can:332
+end -- candran.can:332
+end -- candran.can:332
+end -- candran.can:332
+if originalFile then -- candran.can:336
+local i = 0 -- candran.can:337
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:336
-i = i + 1 -- candran.can:337
-if i == line then -- candran.can:338
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:339
-if lineMap then -- candran.can:340
-if extSource ~= source then -- candran.can:341
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:342
-else -- candran.can:342
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:344
-end -- candran.can:344
-end -- candran.can:344
-break -- candran.can:347
-end -- candran.can:347
-end -- candran.can:347
-end -- candran.can:347
-end) -- candran.can:347
-end -- candran.can:347
-candran["searcher"] = function(modpath) -- candran.can:355
-local filepath = util["search"](modpath, { "can" }) -- candran.can:356
-if not filepath then -- candran.can:357
-if _VERSION == "Lua 5.4" then -- candran.can:358
-return "no candran file in package.path" -- candran.can:359
-else -- candran.can:359
+") do -- candran.can:338
+i = i + 1 -- candran.can:339
+if i == line then -- candran.can:340
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:341
+if lineMap then -- candran.can:342
+if extSource ~= source then -- candran.can:343
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:344
+else -- candran.can:344
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:346
+end -- candran.can:346
+end -- candran.can:346
+break -- candran.can:349
+end -- candran.can:349
+end -- candran.can:349
+end -- candran.can:349
+end) -- candran.can:349
+end -- candran.can:349
+candran["searcher"] = function(modpath) -- candran.can:357
+local filepath = util["search"](modpath, { "can" }) -- candran.can:358
+if not filepath then -- candran.can:359
+if _VERSION == "Lua 5.4" then -- candran.can:360
+return "no candran file in package.path" -- candran.can:361
+else -- candran.can:361
 return "\
-\9no candran file in package.path" -- candran.can:361
-end -- candran.can:361
-end -- candran.can:361
-return function(modpath) -- candran.can:364
-local r, s = candran["loadfile"](filepath) -- candran.can:365
-if r then -- candran.can:366
-return r(modpath, filepath) -- candran.can:367
-else -- candran.can:367
+\9no candran file in package.path" -- candran.can:363
+end -- candran.can:363
+end -- candran.can:363
+return function(modpath) -- candran.can:366
+local r, s = candran["loadfile"](filepath) -- candran.can:367
+if r then -- candran.can:368
+return r(modpath, filepath) -- candran.can:369
+else -- candran.can:369
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:369
-end -- candran.can:369
-end, filepath -- candran.can:371
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:371
 end -- candran.can:371
-candran["setup"] = function() -- candran.can:375
-local searchers = (function() -- candran.can:376
-if _VERSION == "Lua 5.1" then -- candran.can:376
-return package["loaders"] -- candran.can:377
-else -- candran.can:377
-return package["searchers"] -- candran.can:379
-end -- candran.can:379
-end)() -- candran.can:379
-for _, s in ipairs(searchers) do -- candran.can:382
-if s == candran["searcher"] then -- candran.can:383
-return candran -- candran.can:384
-end -- candran.can:384
-end -- candran.can:384
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:388
-return candran -- candran.can:389
-end -- candran.can:389
-return candran -- candran.can:392
+end, filepath -- candran.can:373
+end -- candran.can:373
+candran["setup"] = function() -- candran.can:377
+local searchers = (function() -- candran.can:378
+if _VERSION == "Lua 5.1" then -- candran.can:378
+return package["loaders"] -- candran.can:379
+else -- candran.can:379
+return package["searchers"] -- candran.can:381
+end -- candran.can:381
+end)() -- candran.can:381
+for _, s in ipairs(searchers) do -- candran.can:384
+if s == candran["searcher"] then -- candran.can:385
+return candran -- candran.can:386
+end -- candran.can:386
+end -- candran.can:386
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:390
+return candran -- candran.can:391
+end -- candran.can:391
+return candran -- candran.can:394

From e9ae8e21a3b8dfcb456fedb1394abc6749955268 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 17 Jun 2021 19:45:53 +0200
Subject: [PATCH 31/43] Use argparse to parse CLI args, separate preprocessor
 constants from options

---
 README.md                       |   7 +-
 bin/can                         |  44 +++---
 bin/canc                        |  85 ++++++-----
 candran.can                     |   8 +-
 candran.lua                     | 258 +++++++++++++-------------------
 candran/cmdline.lua             | 126 ----------------
 candran/util.can                |  65 ++++++++
 rockspec/candran-scm-1.rockspec |   6 +-
 8 files changed, 253 insertions(+), 346 deletions(-)
 delete mode 100644 candran/cmdline.lua

diff --git a/README.md b/README.md
index 8132861..66992aa 100644
--- a/README.md
+++ b/README.md
@@ -493,7 +493,7 @@ _assert(5 = 2, "failed") -- replaced with if 5 = 2 then error("failed") end
 Candran provide some predefined macros by default:
 * `__STR__(expr)`: returns a string litteral representing the expression (e.g., `__STR__(5 + 2)` expands to `"5 + 2"`)
 * `__CONSTEXPR__(expr)`: calculate the result of the expression in the preprocessor, and returns a representation of the returned value, i.e. precalculate an expression at compile time
-You can disable these built-in macros using the `noBuiltInMacros` compiler option.
+You can disable these built-in macros using the `builtInMacros` compiler option.
 
 Compile targets
 ---------------
@@ -663,14 +663,15 @@ at the top of your main Lua file. If a Candran file is found when you call ```re
 You can give arbitrary options to the compiler and preprocessor, but Candran already provide and uses these with their associated default values:
 
 ```lua
-target = "lua53" -- compiler target. "lua53", "lua52", "luajit" or "lua51" (default is automatically selected based on the Lua version used).
+target = "lua53" -- compiler target. "lua54", "lua53", "lua52", "luajit" or "lua51" (default is automatically selected based on the Lua version used).
 indentation = "" -- character(s) used for indentation in the compiled file.
 newline = "\n" -- character(s) used for newlines in the compiled file.
 variablePrefix = "__CAN_" -- Prefix used when Candran needs to set a local variable to provide some functionality (example: to load LuaJIT's bit lib when using bitwise operators).
 mapLines = true -- if true, compiled files will contain comments at the end of each line indicating the associated line and source file. Needed for error rewriting.
 chunkname = "nil" -- the chunkname used when running code using the helper functions and writing the line origin comments. Candran will try to set it to the original filename if it knows it.
 rewriteErrors = true -- true to enable error rewriting when loading code using the helper functions. Will wrap the whole code in a xpcall().
-noBuiltInMacros = false -- true to disable built-in macros __*__
+builtInMacros = true -- false to disable built-in macros __*__
+preprocessorEnv = {} -- environment to merge with the preprocessor environement
 ```
 
 You can change the defaults used for these variables in the table `candran.default`.
diff --git a/bin/can b/bin/can
index 8c4cdc7..3ab0f36 100644
--- a/bin/can
+++ b/bin/can
@@ -1,28 +1,30 @@
 #!/usr/bin/env lua
 
 local candran = require("candran").setup()
-local cmdline = require("candran.cmdline")
+local util = require("candran.util")
+local argparse = require("argparse")
 
-local args = cmdline(arg)
+-- Parse args --
 
-if args.help or args.h then
-	print("Candran "..candran.VERSION.." interpreter by Reuh")
-	print("Usage: "..arg[0].." [options] filename")
-	print("Specify no options to start the REPL.")
-	print("Use - instead of a filename to read from the standard input.")
-	print("Interpreter options:")
-	print("  -help or -h       print this text")
-	print("Default options:")
-	for opt, val in pairs(candran.default) do
-		if type(val) == "string" then val = val:gsub("\n", "\\n") end
-		print(("  %s=%q"):format(opt, tostring(val)))
-	end
-	return
-end
+local parser = argparse()
+	:name "can"
+	:description("Candran "..candran.VERSION.." interpreter by Reuh.")
+	:epilog "For more info, see https://github.com/Reuh/candran"
+
+parser:argument("filename", "Candran file to run. Use - to read from standard input. Start the REPL if no filename given.")
+	:args "?"
+
+util.cli.addCandranOptions(parser)
+
+local args = parser:parse()
+
+local options = util.cli.makeCandranOptions(args)
+
+-- Run --
 
 -- stdin
-if arg[#arg] == "-" then
-	local f, err = candran.load(io.read("*a"), "stdin", nil, args)
+if args.filename == "-" then
+	local f, err = candran.load(io.read("*a"), "stdin", nil, options)
 	if not f then
 		io.stderr:write("can: "..err.."\n")
 		os.exit(1)
@@ -33,8 +35,8 @@ if arg[#arg] == "-" then
 		os.exit(1)
 	end
 -- file
-elseif #args >= 1 then
-	local f, err = candran.loadfile(args[1], nil, args)
+elseif args.filename then
+	local f, err = candran.loadfile(args.filename, nil, options)
 	if not f then
 		io.stderr:write("can: "..err.."\n")
 		os.exit(1)
@@ -47,6 +49,8 @@ elseif #args >= 1 then
 	end
 -- REPL
 else
+	candran.default = util.merge(candran.default, options)
+
 	-- Setup linenoise
 	local s, l = pcall(require, "linenoise")
 	if not s then -- pure Lua compatibility thingy
diff --git a/bin/canc b/bin/canc
index 32265ef..35fb36c 100644
--- a/bin/canc
+++ b/bin/canc
@@ -1,48 +1,63 @@
 #!/usr/bin/env lua
 
 local candran = require("candran")
-local cmdline = require("candran.cmdline")
 local parse = require("candran.can-parser.parser").parse
 local pp = require("candran.can-parser.pp")
+local util = require("candran.util")
+local argparse = require("argparse")
 
-local args = cmdline(arg)
+-- Parse args --
 
-if #arg < 1 or args.help or args.h then
-	print("Candran "..candran.VERSION.." compiler by Reuh")
-	print("Usage: "..arg[0].." [options] filenames...")
-	print("Use - instead of filenames to read from the standard input. The output file will be named stdin.lua by default.")
-	print("Compiler options:")
-	print("  dest=\"directory\"  where compiled files should be written")
-	print("  out=\"name.lua\"    output filename. By default, will use the same name as the input file with a .lua extension.")
-	print("  -print            write to the standard output instead of creating files")
-	print("  -preprocess       only run the preprocessor")
-	print("  -compile          only run the compiler")
-	print("  -parse            only parse the file and prints errors to stdout")
-	print("  -ast              (for debugging purposes) only parse the files and dump the AST to stdout")
-	print("  -help or -h       print this text")
-	print("Default options:")
-	for opt, val in pairs(candran.default) do
-		if type(val) == "string" then val = val:gsub("\n", "\\n") end
-		print(("  %s=%q"):format(opt, tostring(val)))
-	end
-	return
-end
+local parser = argparse()
+	:name "canc"
+	:description("Candran "..candran.VERSION.." compiler by Reuh.")
+	:epilog "For more info, see https://github.com/Reuh/candran"
 
-if arg[#arg] == "-" then
-	table.insert(args, io.stdin)
-end
+parser:argument("filename", "Candran files to compile. Use - to read from standard input; the output file will then be named stdin.lua by default.")
+	:args "+"
 
-for _, file in ipairs(args) do
+parser:group("Output options",
+	parser:option("-d --destination")
+		:description "Where compiled files should be written"
+		:argname "directory",
+
+	parser:option("-o --output")
+		:description "Output filename. (default: same name as the input file with a .lua extension)"
+		:argname "filename",
+
+	parser:flag("-p --print")
+		:description "Write to the standard output instead of creating files",
+
+	parser:flag("--preprocess")
+		:description "Only run the preprocessor",
+
+	parser:flag("--compile")
+		:description "Only run the compiler",
+
+	parser:flag("--parse")
+		:description "Only parse the file and prints syntax errors to stdout",
+
+	parser:flag("--ast")
+		:description"(for debugging purposes) Only parse the files and dump the AST to stdout"
+)
+
+util.cli.addCandranOptions(parser)
+
+local args = parser:parse()
+
+-- Compile --
+
+for _, file in ipairs(args.filename) do
 	-- Read
 	local dest, input
-	if file == io.stdin then
-		dest = args.out or "stdin.lua"
+	if file == "-" then
+		dest = args.output or "stdin.lua"
 
 		input = io.read("*a")
 
 		args.chunkname = "stdin"
 	else
-		dest = args.out or (file:gsub("%.can$", "")..".lua")
+		dest = args.output or (file:gsub("%.can$", "")..".lua")
 
 		local inputFile, err = io.open(file, "r")
 		if not inputFile then
@@ -69,8 +84,10 @@ for _, file in ipairs(args) do
 	end
 
 	-- Compile and output
-	if args.dest then
-		dest = args.dest .. "/" .. dest
+	local options = util.cli.makeCandranOptions(args)
+
+	if args.destination then
+		dest = args.destination .. "/" .. dest
 	end
 
 	if not args.print then
@@ -79,7 +96,7 @@ for _, file in ipairs(args) do
 
 	local out = input
 	if args.preprocess then
-		local r, err = candran.preprocess(out, args)
+		local r, err = candran.preprocess(out, options)
 		if not r then
 			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
@@ -87,7 +104,7 @@ for _, file in ipairs(args) do
 		out = r
 	end
 	if args.compile then
-		local r, err = candran.compile(out, args)
+		local r, err = candran.compile(out, options)
 		if not r then
 			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
@@ -95,7 +112,7 @@ for _, file in ipairs(args) do
 		out = r
 	end
 	if args.compile == nil and args.preprocess == nil then
-		local r, err = candran.make(input, args)
+		local r, err = candran.make(input, options)
 		if not r then
 			io.stderr:write("canc: "..err.."\n")
 			os.exit(1)
diff --git a/candran.can b/candran.can
index 159ac33..3565952 100644
--- a/candran.can
+++ b/candran.can
@@ -1,5 +1,4 @@
 #import("candran.util")
-#import("candran.cmdline")
 #import("candran.serpent")
 
 #import("compiler.lua54")
@@ -29,7 +28,8 @@ candran.default = {
 	mapLines = true,
 	chunkname = "nil",
 	rewriteErrors = true,
-	noBuiltInMacros = false
+	builtInMacros = true,
+	preprocessorEnv = {}
 }
 
 -- Autodetect version
@@ -92,7 +92,7 @@ function candran.preprocess(input, options={})
 	preprocessor ..= "return output"
 
 	-- make preprocessor environement
-	local env = util.merge(_G, options)
+	local env = util.merge(_G, options.preprocessorEnv)
 	--- Candran library table
 	env.candran = candran
 	--- Current preprocessor output
@@ -179,7 +179,7 @@ function candran.preprocess(input, options={})
 	end
 
 	-- default macros
-	if not options.noBuiltInMacros then
+	if options.builtInMacros then
 		env.define("__STR__(x)", function(x) return ("%q"):format(x) end)
 		local s = require("candran.serpent")
 		env.define("__CONSTEXPR__(expr)", function(expr)
diff --git a/candran.lua b/candran.lua
index 82260c7..2e961a0 100644
--- a/candran.lua
+++ b/candran.lua
@@ -1,147 +1,90 @@
 local function _() -- candran.can:2
-local util = {} -- ./candran/util.can:1
-util["search"] = function(modpath, exts) -- ./candran/util.can:3
-if exts == nil then exts = {} end -- ./candran/util.can:3
-for _, ext in ipairs(exts) do -- ./candran/util.can:4
-for path in package["path"]:gmatch("[^;]+") do -- ./candran/util.can:5
-local fpath = path:gsub("%.lua", "." .. ext):gsub("%?", (modpath:gsub("%.", "/"))) -- ./candran/util.can:6
-local f = io["open"](fpath) -- ./candran/util.can:7
-if f then -- ./candran/util.can:8
-f:close() -- ./candran/util.can:9
-return fpath -- ./candran/util.can:10
-end -- ./candran/util.can:10
-end -- ./candran/util.can:10
-end -- ./candran/util.can:10
-end -- ./candran/util.can:10
-util["load"] = function(str, name, env) -- ./candran/util.can:16
-if _VERSION == "Lua 5.1" then -- ./candran/util.can:17
-local fn, err = loadstring(str, name) -- ./candran/util.can:18
-if not fn then -- ./candran/util.can:19
-return fn, err -- ./candran/util.can:19
-end -- ./candran/util.can:19
-return env ~= nil and setfenv(fn, env) or fn -- ./candran/util.can:20
-else -- ./candran/util.can:20
-if env then -- ./candran/util.can:22
-return load(str, name, nil, env) -- ./candran/util.can:23
-else -- ./candran/util.can:23
-return load(str, name) -- ./candran/util.can:25
-end -- ./candran/util.can:25
-end -- ./candran/util.can:25
-end -- ./candran/util.can:25
-util["recmerge"] = function(...) -- ./candran/util.can:30
-local r = {} -- ./candran/util.can:31
-for _, t in ipairs({ ... }) do -- ./candran/util.can:32
-for k, v in pairs(t) do -- ./candran/util.can:33
-if type(v) == "table" then -- ./candran/util.can:34
-r[k] = util["merge"](v, r[k]) -- ./candran/util.can:35
-else -- ./candran/util.can:35
-r[k] = v -- ./candran/util.can:37
-end -- ./candran/util.can:37
-end -- ./candran/util.can:37
-end -- ./candran/util.can:37
-return r -- ./candran/util.can:41
-end -- ./candran/util.can:41
-util["merge"] = function(...) -- ./candran/util.can:44
-local r = {} -- ./candran/util.can:45
-for _, t in ipairs({ ... }) do -- ./candran/util.can:46
-for k, v in pairs(t) do -- ./candran/util.can:47
-r[k] = v -- ./candran/util.can:48
-end -- ./candran/util.can:48
-end -- ./candran/util.can:48
-return r -- ./candran/util.can:51
-end -- ./candran/util.can:51
-return util -- ./candran/util.can:54
-end -- ./candran/util.can:54
-local util = _() or util -- ./candran/util.can:58
-package["loaded"]["candran.util"] = util or true -- ./candran/util.can:59
-local function _() -- ./candran/util.can:62
-local ipairs, pairs, setfenv, tonumber, loadstring, type = ipairs, pairs, setfenv, tonumber, loadstring, type -- ./candran/cmdline.lua:5
-local tinsert, tconcat = table["insert"], table["concat"] -- ./candran/cmdline.lua:6
-local function commonerror(msg) -- ./candran/cmdline.lua:8
-return nil, ("[cmdline]: " .. msg) -- ./candran/cmdline.lua:9
-end -- ./candran/cmdline.lua:9
-local function argerror(msg, numarg) -- ./candran/cmdline.lua:12
-msg = msg and (": " .. msg) or "" -- ./candran/cmdline.lua:13
-return nil, ("[cmdline]: bad argument #" .. numarg .. msg) -- ./candran/cmdline.lua:14
-end -- ./candran/cmdline.lua:14
-local function iderror(numarg) -- ./candran/cmdline.lua:17
-return argerror("ID not valid", numarg) -- ./candran/cmdline.lua:18
-end -- ./candran/cmdline.lua:18
-local function idcheck(id) -- ./candran/cmdline.lua:21
-return id:match("^[%a_][%w_]*$") and true -- ./candran/cmdline.lua:22
-end -- ./candran/cmdline.lua:22
-return function(t_in, options, params) -- ./candran/cmdline.lua:73
-local t_out = {} -- ./candran/cmdline.lua:74
-for i, v in ipairs(t_in) do -- ./candran/cmdline.lua:75
-local prefix, command = v:sub(1, 1), v:sub(2) -- ./candran/cmdline.lua:76
-if prefix == "$" then -- ./candran/cmdline.lua:77
-tinsert(t_out, command) -- ./candran/cmdline.lua:78
-elseif prefix == "-" then -- ./candran/cmdline.lua:79
-for id in command:gmatch("[^,;]+") do -- ./candran/cmdline.lua:80
-if not idcheck(id) then -- ./candran/cmdline.lua:81
-return iderror(i) -- ./candran/cmdline.lua:81
-end -- ./candran/cmdline.lua:81
-t_out[id] = true -- ./candran/cmdline.lua:82
-end -- ./candran/cmdline.lua:82
-elseif prefix == "!" then -- ./candran/cmdline.lua:84
-local f, err = loadstring(command) -- ./candran/cmdline.lua:85
-if not f then -- ./candran/cmdline.lua:86
-return argerror(err, i) -- ./candran/cmdline.lua:86
-end -- ./candran/cmdline.lua:86
-setfenv(f, t_out)() -- ./candran/cmdline.lua:87
-elseif v:find("=") then -- ./candran/cmdline.lua:88
-local ids, val = v:match("^([^=]+)%=(.*)") -- ./candran/cmdline.lua:89
-if not ids then -- ./candran/cmdline.lua:90
-return argerror("invalid assignment syntax", i) -- ./candran/cmdline.lua:90
-end -- ./candran/cmdline.lua:90
-if val == "false" then -- ./candran/cmdline.lua:91
-val = false -- ./candran/cmdline.lua:92
-elseif val == "true" then -- ./candran/cmdline.lua:93
-val = true -- ./candran/cmdline.lua:94
-else -- ./candran/cmdline.lua:94
-val = val:sub(1, 1) == "$" and val:sub(2) or tonumber(val) or val -- ./candran/cmdline.lua:96
-end -- ./candran/cmdline.lua:96
-for id in ids:gmatch("[^,;]+") do -- ./candran/cmdline.lua:98
-if not idcheck(id) then -- ./candran/cmdline.lua:99
-return iderror(i) -- ./candran/cmdline.lua:99
-end -- ./candran/cmdline.lua:99
-t_out[id] = val -- ./candran/cmdline.lua:100
-end -- ./candran/cmdline.lua:100
-else -- ./candran/cmdline.lua:100
-tinsert(t_out, v) -- ./candran/cmdline.lua:103
-end -- ./candran/cmdline.lua:103
-end -- ./candran/cmdline.lua:103
-if options then -- ./candran/cmdline.lua:106
-local lookup, unknown = {}, {} -- ./candran/cmdline.lua:107
-for _, v in ipairs(options) do -- ./candran/cmdline.lua:108
-lookup[v] = true -- ./candran/cmdline.lua:108
-end -- ./candran/cmdline.lua:108
-for k, _ in pairs(t_out) do -- ./candran/cmdline.lua:109
-if lookup[k] == nil and type(k) == "string" then -- ./candran/cmdline.lua:110
-tinsert(unknown, k) -- ./candran/cmdline.lua:110
-end -- ./candran/cmdline.lua:110
-end -- ./candran/cmdline.lua:110
-if # unknown > 0 then -- ./candran/cmdline.lua:112
-return commonerror("unknown options: " .. tconcat(unknown, ", ")) -- ./candran/cmdline.lua:113
-end -- ./candran/cmdline.lua:113
-end -- ./candran/cmdline.lua:113
-if params then -- ./candran/cmdline.lua:116
-local missing = {} -- ./candran/cmdline.lua:117
-for _, v in ipairs(params) do -- ./candran/cmdline.lua:118
-if t_out[v] == nil then -- ./candran/cmdline.lua:119
-tinsert(missing, v) -- ./candran/cmdline.lua:119
-end -- ./candran/cmdline.lua:119
-end -- ./candran/cmdline.lua:119
-if # missing > 0 then -- ./candran/cmdline.lua:121
-return commonerror("missing parameters: " .. tconcat(missing, ", ")) -- ./candran/cmdline.lua:122
-end -- ./candran/cmdline.lua:122
-end -- ./candran/cmdline.lua:122
-return t_out -- ./candran/cmdline.lua:125
-end -- ./candran/cmdline.lua:125
-end -- ./candran/cmdline.lua:125
-local cmdline = _() or cmdline -- ./candran/cmdline.lua:130
-package["loaded"]["candran.cmdline"] = cmdline or true -- ./candran/cmdline.lua:131
-local function _() -- ./candran/cmdline.lua:134
+local candran = require("candran") -- ./candran/util.can:1
+local util = {} -- ./candran/util.can:2
+util["search"] = function(modpath, exts) -- ./candran/util.can:4
+if exts == nil then exts = {} end -- ./candran/util.can:4
+for _, ext in ipairs(exts) do -- ./candran/util.can:5
+for path in package["path"]:gmatch("[^;]+") do -- ./candran/util.can:6
+local fpath = path:gsub("%.lua", "." .. ext):gsub("%?", (modpath:gsub("%.", "/"))) -- ./candran/util.can:7
+local f = io["open"](fpath) -- ./candran/util.can:8
+if f then -- ./candran/util.can:9
+f:close() -- ./candran/util.can:10
+return fpath -- ./candran/util.can:11
+end -- ./candran/util.can:11
+end -- ./candran/util.can:11
+end -- ./candran/util.can:11
+end -- ./candran/util.can:11
+util["load"] = function(str, name, env) -- ./candran/util.can:17
+if _VERSION == "Lua 5.1" then -- ./candran/util.can:18
+local fn, err = loadstring(str, name) -- ./candran/util.can:19
+if not fn then -- ./candran/util.can:20
+return fn, err -- ./candran/util.can:20
+end -- ./candran/util.can:20
+return env ~= nil and setfenv(fn, env) or fn -- ./candran/util.can:21
+else -- ./candran/util.can:21
+if env then -- ./candran/util.can:23
+return load(str, name, nil, env) -- ./candran/util.can:24
+else -- ./candran/util.can:24
+return load(str, name) -- ./candran/util.can:26
+end -- ./candran/util.can:26
+end -- ./candran/util.can:26
+end -- ./candran/util.can:26
+util["recmerge"] = function(...) -- ./candran/util.can:31
+local r = {} -- ./candran/util.can:32
+for _, t in ipairs({ ... }) do -- ./candran/util.can:33
+for k, v in pairs(t) do -- ./candran/util.can:34
+if type(v) == "table" then -- ./candran/util.can:35
+r[k] = util["merge"](v, r[k]) -- ./candran/util.can:36
+else -- ./candran/util.can:36
+r[k] = v -- ./candran/util.can:38
+end -- ./candran/util.can:38
+end -- ./candran/util.can:38
+end -- ./candran/util.can:38
+return r -- ./candran/util.can:42
+end -- ./candran/util.can:42
+util["merge"] = function(...) -- ./candran/util.can:45
+local r = {} -- ./candran/util.can:46
+for _, t in ipairs({ ... }) do -- ./candran/util.can:47
+for k, v in pairs(t) do -- ./candran/util.can:48
+r[k] = v -- ./candran/util.can:49
+end -- ./candran/util.can:49
+end -- ./candran/util.can:49
+return r -- ./candran/util.can:52
+end -- ./candran/util.can:52
+util["cli"] = { -- ./candran/util.can:55
+["addCandranOptions"] = function(parser) -- ./candran/util.can:57
+parser:group("Compiler options", parser:option("-t --target"):description("Target Lua version: lua54, lua53, lua52, luajit or lua51"):default(candran["default"]["target"]), parser:option("--indentation"):description("Character(s) used for indentation in the compiled file"):default(candran["default"]["indentation"]), parser:option("--newline"):description("Character(s) used for newlines in the compiled file"):default(candran["default"]["newline"]), parser:option("--variable-prefix"):description("Prefix used when Candran needs to set a local variable to provide some functionality"):default(candran["default"]["variablePrefix"]), parser:flag("--no-map-lines"):description("Do not add comments at the end of each line indicating the associated source line and file (error rewriting will not work)")) -- ./candran/util.can:76
+parser:group("Preprocessor options", parser:flag("--no-builtin-macros"):description("Disable built-in macros"), parser:option("-D --define"):description("Define a preprocessor constant"):args("1-2"):argname({ -- ./candran/util.can:86
+"name", -- ./candran/util.can:86
+"value" -- ./candran/util.can:86
+}):count("*")) -- ./candran/util.can:87
+parser:option("--chunkname"):description("Chunkname used when running the code") -- ./candran/util.can:91
+parser:flag("--no-rewrite-errors"):description("Disable error rewriting when running the code") -- ./candran/util.can:94
+end, -- ./candran/util.can:94
+["makeCandranOptions"] = function(args) -- ./candran/util.can:98
+local preprocessorEnv = {} -- ./candran/util.can:99
+for _, o in ipairs(args["define"]) do -- ./candran/util.can:100
+preprocessorEnv[o[1]] = tonumber(o[2]) or o[2] or true -- ./candran/util.can:101
+end -- ./candran/util.can:101
+local options = { -- ./candran/util.can:104
+["target"] = args["target"], -- ./candran/util.can:105
+["indentation"] = args["indentation"], -- ./candran/util.can:106
+["newline"] = args["newline"], -- ./candran/util.can:107
+["variablePrefix"] = args["variable_prefix"], -- ./candran/util.can:108
+["mapLines"] = not args["no_map_lines"], -- ./candran/util.can:109
+["chunkname"] = args["chunkname"], -- ./candran/util.can:110
+["rewriteErrors"] = not args["no_rewrite_errors"], -- ./candran/util.can:111
+["builtInMacros"] = not args["no_builtin_macros"], -- ./candran/util.can:112
+["preprocessorEnv"] = preprocessorEnv -- ./candran/util.can:113
+} -- ./candran/util.can:113
+return options -- ./candran/util.can:115
+end -- ./candran/util.can:115
+} -- ./candran/util.can:115
+return util -- ./candran/util.can:119
+end -- ./candran/util.can:119
+local util = _() or util -- ./candran/util.can:123
+package["loaded"]["candran.util"] = util or true -- ./candran/util.can:124
+local function _() -- ./candran/util.can:127
 local n, v = "serpent", "0.302" -- ./candran/serpent.lua:24
 local c, d = "Paul Kulchenko", "Lua serializer and pretty printer" -- ./candran/serpent.lua:25
 local snum = { -- ./candran/serpent.lua:26
@@ -7067,19 +7010,20 @@ return parser -- ./candran/can-parser/parser.lua:807
 end -- ./candran/can-parser/parser.lua:807
 local parser = _() or parser -- ./candran/can-parser/parser.lua:811
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:812
-local unpack = unpack or table["unpack"] -- candran.can:16
-local candran = { ["VERSION"] = "0.14.0" } -- candran.can:19
-package["loaded"]["candran"] = candran -- candran.can:21
-candran["default"] = { -- candran.can:24
-["target"] = "lua54", -- candran.can:25
-["indentation"] = "", -- candran.can:26
+local unpack = unpack or table["unpack"] -- candran.can:15
+local candran = { ["VERSION"] = "0.14.0" } -- candran.can:18
+package["loaded"]["candran"] = candran -- candran.can:20
+candran["default"] = { -- candran.can:23
+["target"] = "lua54", -- candran.can:24
+["indentation"] = "", -- candran.can:25
 ["newline"] = "\
-", -- candran.can:27
-["variablePrefix"] = "__CAN_", -- candran.can:28
-["mapLines"] = true, -- candran.can:29
-["chunkname"] = "nil", -- candran.can:30
-["rewriteErrors"] = true, -- candran.can:31
-["noBuiltInMacros"] = false -- candran.can:32
+", -- candran.can:26
+["variablePrefix"] = "__CAN_", -- candran.can:27
+["mapLines"] = true, -- candran.can:28
+["chunkname"] = "nil", -- candran.can:29
+["rewriteErrors"] = true, -- candran.can:30
+["builtInMacros"] = true, -- candran.can:31
+["preprocessorEnv"] = {} -- candran.can:32
 } -- candran.can:32
 if _VERSION == "Lua 5.1" then -- candran.can:36
 if package["loaded"]["jit"] then -- candran.can:37
@@ -7132,7 +7076,7 @@ end -- candran.can:88
 end -- candran.can:88
 end -- candran.can:88
 preprocessor = preprocessor .. ("return output") -- candran.can:92
-local env = util["merge"](_G, options) -- candran.can:95
+local env = util["merge"](_G, options["preprocessorEnv"]) -- candran.can:95
 env["candran"] = candran -- candran.can:97
 env["output"] = "" -- candran.can:99
 env["import"] = function(modpath, margs) -- candran.can:106
@@ -7207,7 +7151,7 @@ else -- candran.can:175
 error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:177
 end -- candran.can:177
 end -- candran.can:177
-if not options["noBuiltInMacros"] then -- candran.can:182
+if options["builtInMacros"] then -- candran.can:182
 env["define"]("__STR__(x)", function(x) -- candran.can:183
 return ("%q"):format(x) -- candran.can:183
 end) -- candran.can:183
diff --git a/candran/cmdline.lua b/candran/cmdline.lua
deleted file mode 100644
index c27e0f9..0000000
--- a/candran/cmdline.lua
+++ /dev/null
@@ -1,126 +0,0 @@
--- started: 2008-04-12 by Shmuel Zeigerman
--- license: public domain
-
-local ipairs,pairs,setfenv,tonumber,loadstring,type =
-  ipairs,pairs,setfenv,tonumber,loadstring,type
-local tinsert, tconcat = table.insert, table.concat
-
-local function commonerror (msg)
-  return nil, ("[cmdline]: " .. msg)
-end
-
-local function argerror (msg, numarg)
-  msg = msg and (": " .. msg) or ""
-  return nil, ("[cmdline]: bad argument #" .. numarg .. msg)
-end
-
-local function iderror (numarg)
-  return argerror("ID not valid", numarg)
-end
-
-local function idcheck (id)
-  return id:match("^[%a_][%w_]*$") and true
-end
-
---[[------------------------------------------------------------------------
-Syntax:
-  t_out = getparam(t_in [,options] [,params])
-
-Parameters:
-  t_in:   table - list of string arguments to be processed in order
-          (usually it is the `arg' table created by the Lua interpreter).
-
-     * if an argument begins with $, the $ is skipped and the rest is inserted
-       into the array part of the output table.
-
-     * if an argument begins with -, the rest is a sequence of variables
-       (separated by commas or semicolons) that are all set to true;
-            example: -var1,var2  --> var1,var2 = true,true
-
-     * if an argument begins with !, the rest is a Lua chunk;
-            example: !a=(40+3)*5;b=20;name="John";window={w=600,h=480}
-
-     * if an argument contains =, then it is an assignment in the form
-       var1,...=value (no space is allowed around the =)
-         * if value begins with $, the $ is skipped, the rest is a string
-                 example: var1,var2=$         --> var1,var2 = "",""
-                 example: var1,var2=$125      --> var1,var2 = "125","125"
-                 example: var1,var2=$$125     --> var1,var2 = "$125","$125"
-         * if value is convertible to number, it is a number
-                 example: var1,var2=125       --> var1,var2 = 125,125
-         * if value is true of false, it is a boolean
-                 example: var1=false          --> var1 = false
-         * otherwise it is a string
-                 example: name=John           --> name = "John"
-
-     * if an argument neither begins with one of the special characters (-,!,$),
-       nor contains =, it is inserted as is into the array part of the output
-       table.
-
-  options (optional): a list of names of all command-line options and parameters
-     permitted in the application; used to check that each found option
-     is valid; no checks are done if not supplied.
-
-  params (optional): a list of names of all command-line parameters required
-     by the application; used to check that each required parameter is present;
-     no checks are done if not supplied.
-
-Returns:
-  On success: the output table, e.g. { [1]="./myfile.txt", name="John", age=40 }
-  On error: nil followed by error message string.
-
---]]------------------------------------------------------------------------
-return function(t_in, options, params)
-  local t_out = {}
-  for i,v in ipairs(t_in) do
-    local prefix, command = v:sub(1,1), v:sub(2)
-    if prefix == "$" then
-      tinsert(t_out, command)
-    elseif prefix == "-" then
-      for id in command:gmatch"[^,;]+" do
-        if not idcheck(id) then return iderror(i) end
-        t_out[id] = true
-      end
-    elseif prefix == "!" then
-      local f, err = loadstring(command)
-      if not f then return argerror(err, i) end
-      setfenv(f, t_out)()
-    elseif v:find("=") then
-      local ids, val = v:match("^([^=]+)%=(.*)") -- no space around =
-      if not ids then return argerror("invalid assignment syntax", i) end
-      if val == "false" then
-          val = false
-      elseif val == "true" then
-          val = true
-      else
-          val = val:sub(1,1)=="$" and val:sub(2) or tonumber(val) or val
-      end
-      for id in ids:gmatch"[^,;]+" do
-        if not idcheck(id) then return iderror(i) end
-        t_out[id] = val
-      end
-    else
-      tinsert(t_out, v)
-    end
-  end
-  if options then
-    local lookup, unknown = {}, {}
-    for _,v in ipairs(options) do lookup[v] = true end
-    for k,_ in pairs(t_out) do
-      if lookup[k]==nil and type(k)=="string" then tinsert(unknown, k) end
-    end
-    if #unknown > 0 then
-      return commonerror("unknown options: " .. tconcat(unknown, ", "))
-    end
-  end
-  if params then
-    local missing = {}
-    for _,v in ipairs(params) do
-      if t_out[v]==nil then tinsert(missing, v) end
-    end
-    if #missing > 0 then
-      return commonerror("missing parameters: " .. tconcat(missing, ", "))
-    end
-  end
-  return t_out
-end
diff --git a/candran/util.can b/candran/util.can
index c03689b..faf4a69 100644
--- a/candran/util.can
+++ b/candran/util.can
@@ -1,3 +1,4 @@
+local candran = require("candran")
 local util = {}
 
 function util.search(modpath, exts={})
@@ -51,4 +52,68 @@ function util.merge(...)
 	return r
 end
 
+util.cli = {
+	-- add option to set Candran options to an argparse parser
+	addCandranOptions = function(parser)
+		parser:group("Compiler options",
+			parser:option("-t --target")
+				:description "Target Lua version: lua54, lua53, lua52, luajit or lua51"
+				:default(candran.default.target),
+
+			parser:option("--indentation")
+				:description "Character(s) used for indentation in the compiled file"
+				:default(candran.default.indentation),
+
+			parser:option("--newline")
+				:description "Character(s) used for newlines in the compiled file"
+				:default(candran.default.newline),
+
+			parser:option("--variable-prefix")
+				:description "Prefix used when Candran needs to set a local variable to provide some functionality"
+				:default(candran.default.variablePrefix),
+
+			parser:flag("--no-map-lines")
+				:description "Do not add comments at the end of each line indicating the associated source line and file (error rewriting will not work)"
+		)
+
+		parser:group("Preprocessor options",
+			parser:flag("--no-builtin-macros")
+				:description "Disable built-in macros",
+
+			parser:option("-D --define")
+				:description "Define a preprocessor constant"
+				:args("1-2")
+				:argname{"name", "value"}
+				:count("*")
+		)
+
+		parser:option("--chunkname")
+			:description "Chunkname used when running the code"
+
+		parser:flag("--no-rewrite-errors")
+			:description "Disable error rewriting when running the code"
+	end,
+
+	-- convert parsed arguments to a Candran options table
+	makeCandranOptions = function(args)
+		local preprocessorEnv = {}
+		for _, o in ipairs(args.define) do
+			preprocessorEnv[o[1]] = tonumber(o[2]) or o[2] or true
+		end
+
+		local options = {
+			target = args.target,
+			indentation = args.indentation,
+			newline = args.newline,
+			variablePrefix = args.variable_prefix,
+			mapLines = not args.no_map_lines,
+			chunkname = args.chunkname,
+			rewriteErrors = not args.no_rewrite_errors,
+			builtInMacros = not args.no_builtin_macros,
+			preprocessorEnv = preprocessorEnv
+		}
+		return options
+	end
+}
+
 return util
diff --git a/rockspec/candran-scm-1.rockspec b/rockspec/candran-scm-1.rockspec
index c6573dd..71ce00b 100644
--- a/rockspec/candran-scm-1.rockspec
+++ b/rockspec/candran-scm-1.rockspec
@@ -18,14 +18,16 @@ description = {
 }
 
 source = {
-	url = "git://github.com/Reuh/candran"
+	url = "git://github.com/Reuh/candran",
+	branch = "argparse"
 }
 
 dependencies = {
 	"lua >= 5.1",
 	"lpeglabel >= 1.5.0",
 	"linenoise >= 0.9",
-	"luacheck >= 0.23.0"
+	"luacheck >= 0.23.0",
+	"argparse >= 0.7.0"
 }
 
 build = {

From ff6d7f8febb79c7f17725d4771314f508d25ee80 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 17 Jun 2021 19:47:07 +0200
Subject: [PATCH 32/43] Fix require cycle

---
 candran.can | 10 +++++-----
 candran.lua |  8 ++++----
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/candran.can b/candran.can
index 3565952..b967ac0 100644
--- a/candran.can
+++ b/candran.can
@@ -1,3 +1,8 @@
+local candran = {
+	VERSION = "0.14.0"
+}
+package.loaded["candran"] = candran
+
 #import("candran.util")
 #import("candran.serpent")
 
@@ -14,11 +19,6 @@
 
 local unpack = unpack or table.unpack
 
-local candran = {
-	VERSION = "0.14.0"
-}
-package.loaded["candran"] = candran
-
 --- Default options.
 candran.default = {
 	target = "lua54",
diff --git a/candran.lua b/candran.lua
index 2e961a0..52a71a6 100644
--- a/candran.lua
+++ b/candran.lua
@@ -1,4 +1,6 @@
-local function _() -- candran.can:2
+local candran = { ["VERSION"] = "0.14.0" } -- candran.can:2
+package["loaded"]["candran"] = candran -- candran.can:4
+local function _() -- candran.can:7
 local candran = require("candran") -- ./candran/util.can:1
 local util = {} -- ./candran/util.can:2
 util["search"] = function(modpath, exts) -- ./candran/util.can:4
@@ -7010,9 +7012,7 @@ return parser -- ./candran/can-parser/parser.lua:807
 end -- ./candran/can-parser/parser.lua:807
 local parser = _() or parser -- ./candran/can-parser/parser.lua:811
 package["loaded"]["candran.can-parser.parser"] = parser or true -- ./candran/can-parser/parser.lua:812
-local unpack = unpack or table["unpack"] -- candran.can:15
-local candran = { ["VERSION"] = "0.14.0" } -- candran.can:18
-package["loaded"]["candran"] = candran -- candran.can:20
+local unpack = unpack or table["unpack"] -- candran.can:20
 candran["default"] = { -- candran.can:23
 ["target"] = "lua54", -- candran.can:24
 ["indentation"] = "", -- candran.can:25

From 01e808e2e65155a0609f4c81f0eb2d53b540cdf5 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Thu, 17 Jun 2021 20:18:38 +0200
Subject: [PATCH 33/43] Fix Lua < 5.4 compiler with new preprocessor env

---
 compiler/lua51.can  | 2 +-
 compiler/lua52.can  | 2 +-
 compiler/lua53.can  | 2 +-
 compiler/luajit.can | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/lua51.can b/compiler/lua51.can
index 9443454..61b07a5 100644
--- a/compiler/lua51.can
+++ b/compiler/lua51.can
@@ -33,6 +33,6 @@ end
 
 #local patch = output
 #output = ""
-#import("compiler.luajit", { patch = patch, loadPackage = false })
+#import("compiler.luajit", { preprocessorEnv = { patch = patch }, loadPackage = false })
 
 return luajit
diff --git a/compiler/lua52.can b/compiler/lua52.can
index 7f94efc..d42c3a8 100644
--- a/compiler/lua52.can
+++ b/compiler/lua52.can
@@ -30,6 +30,6 @@ end
 
 #local patch = output
 #output = ""
-#import("compiler.lua53", { patch = patch, loadPackage = false })
+#import("compiler.lua53", { preprocessorEnv = { patch = patch }, loadPackage = false })
 
 return lua53
diff --git a/compiler/lua53.can b/compiler/lua53.can
index 582fa69..ab354f7 100644
--- a/compiler/lua53.can
+++ b/compiler/lua53.can
@@ -13,6 +13,6 @@ end
 
 #local patch = output
 #output = ""
-#import("compiler.lua54", { patch = patch, loadPackage = false })
+#import("compiler.lua54", { preprocessorEnv = { patch = patch }, loadPackage = false })
 
 return lua54
diff --git a/compiler/luajit.can b/compiler/luajit.can
index 511f642..83def13 100644
--- a/compiler/luajit.can
+++ b/compiler/luajit.can
@@ -33,6 +33,6 @@ end
 
 #local patch = output
 #output = ""
-#import("compiler.lua52", { patch = patch, loadPackage = false })
+#import("compiler.lua52", { preprocessorEnv = { patch = patch }, loadPackage = false })
 
 return lua52

From 008e7732bc85aeba425cd6fd217b40901d680f78 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 14:01:27 +0200
Subject: [PATCH 34/43] Add static import

---
 bin/can          |   1 +
 candran.can      |   9 +-
 candran.lua      | 629 ++++++++++++++++++++++++-----------------------
 candran/util.can |   8 +-
 4 files changed, 334 insertions(+), 313 deletions(-)

diff --git a/bin/can b/bin/can
index 3ab0f36..903dea2 100644
--- a/bin/can
+++ b/bin/can
@@ -3,6 +3,7 @@
 local candran = require("candran").setup()
 local util = require("candran.util")
 local argparse = require("argparse")
+local unpack = unpack or table.unpack
 
 -- Parse args --
 
diff --git a/candran.can b/candran.can
index b967ac0..4e90067 100644
--- a/candran.can
+++ b/candran.can
@@ -29,7 +29,8 @@ candran.default = {
 	chunkname = "nil",
 	rewriteErrors = true,
 	builtInMacros = true,
-	preprocessorEnv = {}
+	preprocessorEnv = {},
+	import = {}
 }
 
 -- Autodetect version
@@ -59,6 +60,11 @@ function candran.preprocess(input, options={})
 		variables = {}
 	}
 
+	-- add auto imports
+	for _, mod in ipairs(options.import) do
+		input =.. "#import(%q, {loadLocal=false})\n":format(mod)
+	end
+
 	-- generate preprocessor code
 	local preprocessor = ""
 	local i = 0
@@ -111,6 +117,7 @@ function candran.preprocess(input, options={})
 		if not f then error("can't open the module file to import") end
 
 		margs = util.merge(options, { chunkname = filepath, loadLocal = true, loadPackage = true }, margs)
+		margs.import = {} -- no need for recursive import
 		local modcontent, modmacros = assert(candran.preprocess(f:read("*a"), margs))
 		macros = util.recmerge(macros, modmacros)
 		f:close()
diff --git a/candran.lua b/candran.lua
index 52a71a6..8ea8eb7 100644
--- a/candran.lua
+++ b/candran.lua
@@ -59,34 +59,35 @@ parser:group("Compiler options", parser:option("-t --target"):description("Targe
 parser:group("Preprocessor options", parser:flag("--no-builtin-macros"):description("Disable built-in macros"), parser:option("-D --define"):description("Define a preprocessor constant"):args("1-2"):argname({ -- ./candran/util.can:86
 "name", -- ./candran/util.can:86
 "value" -- ./candran/util.can:86
-}):count("*")) -- ./candran/util.can:87
-parser:option("--chunkname"):description("Chunkname used when running the code") -- ./candran/util.can:91
-parser:flag("--no-rewrite-errors"):description("Disable error rewriting when running the code") -- ./candran/util.can:94
-end, -- ./candran/util.can:94
-["makeCandranOptions"] = function(args) -- ./candran/util.can:98
-local preprocessorEnv = {} -- ./candran/util.can:99
-for _, o in ipairs(args["define"]) do -- ./candran/util.can:100
-preprocessorEnv[o[1]] = tonumber(o[2]) or o[2] or true -- ./candran/util.can:101
-end -- ./candran/util.can:101
-local options = { -- ./candran/util.can:104
-["target"] = args["target"], -- ./candran/util.can:105
-["indentation"] = args["indentation"], -- ./candran/util.can:106
-["newline"] = args["newline"], -- ./candran/util.can:107
-["variablePrefix"] = args["variable_prefix"], -- ./candran/util.can:108
-["mapLines"] = not args["no_map_lines"], -- ./candran/util.can:109
-["chunkname"] = args["chunkname"], -- ./candran/util.can:110
-["rewriteErrors"] = not args["no_rewrite_errors"], -- ./candran/util.can:111
-["builtInMacros"] = not args["no_builtin_macros"], -- ./candran/util.can:112
-["preprocessorEnv"] = preprocessorEnv -- ./candran/util.can:113
-} -- ./candran/util.can:113
-return options -- ./candran/util.can:115
-end -- ./candran/util.can:115
-} -- ./candran/util.can:115
-return util -- ./candran/util.can:119
-end -- ./candran/util.can:119
-local util = _() or util -- ./candran/util.can:123
-package["loaded"]["candran.util"] = util or true -- ./candran/util.can:124
-local function _() -- ./candran/util.can:127
+}):count("*"), parser:option("-I --import"):description("Statically import a module into the compiled file"):argname("module"):count("*")) -- ./candran/util.can:92
+parser:option("--chunkname"):description("Chunkname used when running the code") -- ./candran/util.can:96
+parser:flag("--no-rewrite-errors"):description("Disable error rewriting when running the code") -- ./candran/util.can:99
+end, -- ./candran/util.can:99
+["makeCandranOptions"] = function(args) -- ./candran/util.can:103
+local preprocessorEnv = {} -- ./candran/util.can:104
+for _, o in ipairs(args["define"]) do -- ./candran/util.can:105
+preprocessorEnv[o[1]] = tonumber(o[2]) or o[2] or true -- ./candran/util.can:106
+end -- ./candran/util.can:106
+local options = { -- ./candran/util.can:109
+["target"] = args["target"], -- ./candran/util.can:110
+["indentation"] = args["indentation"], -- ./candran/util.can:111
+["newline"] = args["newline"], -- ./candran/util.can:112
+["variablePrefix"] = args["variable_prefix"], -- ./candran/util.can:113
+["mapLines"] = not args["no_map_lines"], -- ./candran/util.can:114
+["chunkname"] = args["chunkname"], -- ./candran/util.can:115
+["rewriteErrors"] = not args["no_rewrite_errors"], -- ./candran/util.can:116
+["builtInMacros"] = not args["no_builtin_macros"], -- ./candran/util.can:117
+["preprocessorEnv"] = preprocessorEnv, -- ./candran/util.can:118
+["import"] = args["import"] -- ./candran/util.can:119
+} -- ./candran/util.can:119
+return options -- ./candran/util.can:121
+end -- ./candran/util.can:121
+} -- ./candran/util.can:121
+return util -- ./candran/util.can:125
+end -- ./candran/util.can:125
+local util = _() or util -- ./candran/util.can:129
+package["loaded"]["candran.util"] = util or true -- ./candran/util.can:130
+local function _() -- ./candran/util.can:133
 local n, v = "serpent", "0.302" -- ./candran/serpent.lua:24
 local c, d = "Paul Kulchenko", "Lua serializer and pretty printer" -- ./candran/serpent.lua:25
 local snum = { -- ./candran/serpent.lua:26
@@ -7023,309 +7024,315 @@ candran["default"] = { -- candran.can:23
 ["chunkname"] = "nil", -- candran.can:29
 ["rewriteErrors"] = true, -- candran.can:30
 ["builtInMacros"] = true, -- candran.can:31
-["preprocessorEnv"] = {} -- candran.can:32
-} -- candran.can:32
-if _VERSION == "Lua 5.1" then -- candran.can:36
-if package["loaded"]["jit"] then -- candran.can:37
-candran["default"]["target"] = "luajit" -- candran.can:38
-else -- candran.can:38
-candran["default"]["target"] = "lua51" -- candran.can:40
-end -- candran.can:40
-elseif _VERSION == "Lua 5.2" then -- candran.can:42
-candran["default"]["target"] = "lua52" -- candran.can:43
-elseif _VERSION == "Lua 5.3" then -- candran.can:44
-candran["default"]["target"] = "lua53" -- candran.can:45
-end -- candran.can:45
-candran["preprocess"] = function(input, options) -- candran.can:55
-if options == nil then options = {} end -- candran.can:55
-options = util["merge"](candran["default"], options) -- candran.can:56
-local macros = { -- candran.can:57
-["functions"] = {}, -- candran.can:58
-["variables"] = {} -- candran.can:59
-} -- candran.can:59
-local preprocessor = "" -- candran.can:63
-local i = 0 -- candran.can:64
-local inLongString = false -- candran.can:65
-local inComment = false -- candran.can:66
+["preprocessorEnv"] = {}, -- candran.can:32
+["import"] = {} -- candran.can:33
+} -- candran.can:33
+if _VERSION == "Lua 5.1" then -- candran.can:37
+if package["loaded"]["jit"] then -- candran.can:38
+candran["default"]["target"] = "luajit" -- candran.can:39
+else -- candran.can:39
+candran["default"]["target"] = "lua51" -- candran.can:41
+end -- candran.can:41
+elseif _VERSION == "Lua 5.2" then -- candran.can:43
+candran["default"]["target"] = "lua52" -- candran.can:44
+elseif _VERSION == "Lua 5.3" then -- candran.can:45
+candran["default"]["target"] = "lua53" -- candran.can:46
+end -- candran.can:46
+candran["preprocess"] = function(input, options) -- candran.can:56
+if options == nil then options = {} end -- candran.can:56
+options = util["merge"](candran["default"], options) -- candran.can:57
+local macros = { -- candran.can:58
+["functions"] = {}, -- candran.can:59
+["variables"] = {} -- candran.can:60
+} -- candran.can:60
+for _, mod in ipairs(options["import"]) do -- candran.can:64
+input = (("#import(%q, {loadLocal=false})\
+"):format(mod)) .. input -- candran.can:65
+end -- candran.can:65
+local preprocessor = "" -- candran.can:69
+local i = 0 -- candran.can:70
+local inLongString = false -- candran.can:71
+local inComment = false -- candran.can:72
 for line in (input .. "\
 "):gmatch("(.-\
-)") do -- candran.can:67
-i = i + (1) -- candran.can:68
-if inComment then -- candran.can:70
-inComment = not line:match("%]%]") -- candran.can:71
-elseif inLongString then -- candran.can:72
-inLongString = not line:match("%]%]") -- candran.can:73
-else -- candran.can:73
-if line:match("[^%-]%[%[") then -- candran.can:75
-inLongString = true -- candran.can:76
-elseif line:match("%-%-%[%[") then -- candran.can:77
-inComment = true -- candran.can:78
-end -- candran.can:78
-end -- candran.can:78
-if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:81
-preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:82
-else -- candran.can:82
-local l = line:sub(1, - 2) -- candran.can:84
-if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:85
+)") do -- candran.can:73
+i = i + (1) -- candran.can:74
+if inComment then -- candran.can:76
+inComment = not line:match("%]%]") -- candran.can:77
+elseif inLongString then -- candran.can:78
+inLongString = not line:match("%]%]") -- candran.can:79
+else -- candran.can:79
+if line:match("[^%-]%[%[") then -- candran.can:81
+inLongString = true -- candran.can:82
+elseif line:match("%-%-%[%[") then -- candran.can:83
+inComment = true -- candran.can:84
+end -- candran.can:84
+end -- candran.can:84
+if not inComment and not inLongString and line:match("^%s*#") and not line:match("^#!") then -- candran.can:87
+preprocessor = preprocessor .. (line:gsub("^%s*#", "")) -- candran.can:88
+else -- candran.can:88
+local l = line:sub(1, - 2) -- candran.can:90
+if not inLongString and options["mapLines"] and not l:match("%-%- (.-)%:(%d+)$") then -- candran.can:91
 preprocessor = preprocessor .. (("write(%q)"):format(l .. " -- " .. options["chunkname"] .. ":" .. i) .. "\
-") -- candran.can:86
-else -- candran.can:86
+") -- candran.can:92
+else -- candran.can:92
 preprocessor = preprocessor .. (("write(%q)"):format(line:sub(1, - 2)) .. "\
-") -- candran.can:88
-end -- candran.can:88
-end -- candran.can:88
-end -- candran.can:88
-preprocessor = preprocessor .. ("return output") -- candran.can:92
-local env = util["merge"](_G, options["preprocessorEnv"]) -- candran.can:95
-env["candran"] = candran -- candran.can:97
-env["output"] = "" -- candran.can:99
-env["import"] = function(modpath, margs) -- candran.can:106
-if margs == nil then margs = {} end -- candran.can:106
-local filepath = assert(util["search"](modpath, { -- candran.can:107
-"can", -- candran.can:107
-"lua" -- candran.can:107
-}), "No module named \"" .. modpath .. "\"") -- candran.can:107
-local f = io["open"](filepath) -- candran.can:110
-if not f then -- candran.can:111
-error("can't open the module file to import") -- candran.can:111
-end -- candran.can:111
-margs = util["merge"](options, { -- candran.can:113
-["chunkname"] = filepath, -- candran.can:113
-["loadLocal"] = true, -- candran.can:113
-["loadPackage"] = true -- candran.can:113
-}, margs) -- candran.can:113
-local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:114
-macros = util["recmerge"](macros, modmacros) -- candran.can:115
-f:close() -- candran.can:116
-local modname = modpath:match("[^%.]+$") -- candran.can:119
+") -- candran.can:94
+end -- candran.can:94
+end -- candran.can:94
+end -- candran.can:94
+preprocessor = preprocessor .. ("return output") -- candran.can:98
+local env = util["merge"](_G, options["preprocessorEnv"]) -- candran.can:101
+env["candran"] = candran -- candran.can:103
+env["output"] = "" -- candran.can:105
+env["import"] = function(modpath, margs) -- candran.can:112
+if margs == nil then margs = {} end -- candran.can:112
+local filepath = assert(util["search"](modpath, { -- candran.can:113
+"can", -- candran.can:113
+"lua" -- candran.can:113
+}), "No module named \"" .. modpath .. "\"") -- candran.can:113
+local f = io["open"](filepath) -- candran.can:116
+if not f then -- candran.can:117
+error("can't open the module file to import") -- candran.can:117
+end -- candran.can:117
+margs = util["merge"](options, { -- candran.can:119
+["chunkname"] = filepath, -- candran.can:119
+["loadLocal"] = true, -- candran.can:119
+["loadPackage"] = true -- candran.can:119
+}, margs) -- candran.can:119
+margs["import"] = {} -- candran.can:120
+local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:121
+macros = util["recmerge"](macros, modmacros) -- candran.can:122
+f:close() -- candran.can:123
+local modname = modpath:match("[^%.]+$") -- candran.can:126
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:128
-end -- candran.can:128
-env["include"] = function(file) -- candran.can:133
-local f = io["open"](file) -- candran.can:134
-if not f then -- candran.can:135
-error("can't open the file " .. file .. " to include") -- candran.can:135
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:135
 end -- candran.can:135
-env["write"](f:read("*a")) -- candran.can:136
-f:close() -- candran.can:137
-end -- candran.can:137
-env["write"] = function(...) -- candran.can:141
-env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:142
+env["include"] = function(file) -- candran.can:140
+local f = io["open"](file) -- candran.can:141
+if not f then -- candran.can:142
+error("can't open the file " .. file .. " to include") -- candran.can:142
 end -- candran.can:142
-env["placeholder"] = function(name) -- candran.can:146
-if env[name] then -- candran.can:147
-env["write"](env[name]) -- candran.can:148
-end -- candran.can:148
-end -- candran.can:148
-env["define"] = function(identifier, replacement) -- candran.can:151
-local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:153
-if not iast then -- candran.can:154
-return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:155
+env["write"](f:read("*a")) -- candran.can:143
+f:close() -- candran.can:144
+end -- candran.can:144
+env["write"] = function(...) -- candran.can:148
+env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
+") -- candran.can:149
+end -- candran.can:149
+env["placeholder"] = function(name) -- candran.can:153
+if env[name] then -- candran.can:154
+env["write"](env[name]) -- candran.can:155
 end -- candran.can:155
-if type(replacement) == "string" then -- candran.can:158
-local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:159
-if not rast then -- candran.can:160
-return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:161
-end -- candran.can:161
-if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:164
-rast = rast[1][1] -- candran.can:165
-end -- candran.can:165
-replacement = rast -- candran.can:167
-elseif type(replacement) ~= "function" then -- candran.can:168
-error("bad argument #2 to 'define' (string or function expected)") -- candran.can:169
-end -- candran.can:169
-if iast["tag"] == "MacroFunction" then -- candran.can:172
-macros["functions"][iast[1][1]] = { -- candran.can:173
-["args"] = iast[2], -- candran.can:173
-["replacement"] = replacement -- candran.can:173
-} -- candran.can:173
-elseif iast["tag"] == "Id" then -- candran.can:174
-macros["variables"][iast[1]] = replacement -- candran.can:175
-else -- candran.can:175
-error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:177
-end -- candran.can:177
-end -- candran.can:177
-if options["builtInMacros"] then -- candran.can:182
-env["define"]("__STR__(x)", function(x) -- candran.can:183
-return ("%q"):format(x) -- candran.can:183
-end) -- candran.can:183
-local s = require("candran.serpent") -- candran.can:184
-env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:185
-return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:186
-end) -- candran.can:186
-end -- candran.can:186
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:191
-if not preprocess then -- candran.can:192
-return nil, "in preprocessor: " .. err -- candran.can:193
+end -- candran.can:155
+env["define"] = function(identifier, replacement) -- candran.can:158
+local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:160
+if not iast then -- candran.can:161
+return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:162
+end -- candran.can:162
+if type(replacement) == "string" then -- candran.can:165
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:166
+if not rast then -- candran.can:167
+return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:168
+end -- candran.can:168
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:171
+rast = rast[1][1] -- candran.can:172
+end -- candran.can:172
+replacement = rast -- candran.can:174
+elseif type(replacement) ~= "function" then -- candran.can:175
+error("bad argument #2 to 'define' (string or function expected)") -- candran.can:176
+end -- candran.can:176
+if iast["tag"] == "MacroFunction" then -- candran.can:179
+macros["functions"][iast[1][1]] = { -- candran.can:180
+["args"] = iast[2], -- candran.can:180
+["replacement"] = replacement -- candran.can:180
+} -- candran.can:180
+elseif iast["tag"] == "Id" then -- candran.can:181
+macros["variables"][iast[1]] = replacement -- candran.can:182
+else -- candran.can:182
+error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:184
+end -- candran.can:184
+end -- candran.can:184
+if options["builtInMacros"] then -- candran.can:189
+env["define"]("__STR__(x)", function(x) -- candran.can:190
+return ("%q"):format(x) -- candran.can:190
+end) -- candran.can:190
+local s = require("candran.serpent") -- candran.can:191
+env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:192
+return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:193
+end) -- candran.can:193
 end -- candran.can:193
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:196
-if not preprocess then -- candran.can:197
-return nil, "in preprocessor: " .. err -- candran.can:198
-end -- candran.can:198
-local success, output = pcall(preprocess) -- candran.can:202
-if not success then -- candran.can:203
-return nil, "in preprocessor: " .. output -- candran.can:204
-end -- candran.can:204
-return output, macros -- candran.can:207
-end -- candran.can:207
-candran["compile"] = function(input, options, macros) -- candran.can:217
-if options == nil then options = {} end -- candran.can:217
-options = util["merge"](candran["default"], options) -- candran.can:218
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:220
-if not ast then -- candran.can:222
-return nil, errmsg -- candran.can:223
-end -- candran.can:223
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:226
-end -- candran.can:226
-candran["make"] = function(code, options) -- candran.can:235
-local r, err = candran["preprocess"](code, options) -- candran.can:236
-if r then -- candran.can:237
-r, err = candran["compile"](r, options, err) -- candran.can:238
-if r then -- candran.can:239
-return r -- candran.can:240
-end -- candran.can:240
-end -- candran.can:240
-return r, err -- candran.can:243
-end -- candran.can:243
-local errorRewritingActive = false -- candran.can:246
-local codeCache = {} -- candran.can:247
-candran["loadfile"] = function(filepath, env, options) -- candran.can:250
-local f, err = io["open"](filepath) -- candran.can:251
-if not f then -- candran.can:252
-return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:253
-end -- candran.can:253
-local content = f:read("*a") -- candran.can:255
-f:close() -- candran.can:256
-return candran["load"](content, filepath, env, options) -- candran.can:258
-end -- candran.can:258
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:263
-if options == nil then options = {} end -- candran.can:263
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:264
-local code, err = candran["make"](chunk, options) -- candran.can:266
-if not code then -- candran.can:267
-return code, err -- candran.can:268
-end -- candran.can:268
-codeCache[options["chunkname"]] = code -- candran.can:271
-local f -- candran.can:272
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:273
-if f == nil then -- candran.can:278
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:279
-end -- candran.can:279
-if options["rewriteErrors"] == false then -- candran.can:282
-return f -- candran.can:283
-else -- candran.can:283
-return function(...) -- candran.can:285
-if not errorRewritingActive then -- candran.can:286
-errorRewritingActive = true -- candran.can:287
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:288
-errorRewritingActive = false -- candran.can:289
-if t[1] == false then -- candran.can:290
-error(t[2], 0) -- candran.can:291
-end -- candran.can:291
-return unpack(t, 2) -- candran.can:293
-else -- candran.can:293
-return f(...) -- candran.can:295
-end -- candran.can:295
-end -- candran.can:295
-end -- candran.can:295
-end -- candran.can:295
-candran["dofile"] = function(filename, options) -- candran.can:303
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:304
-if f == nil then -- candran.can:306
-error(err) -- candran.can:307
-else -- candran.can:307
-return f() -- candran.can:309
-end -- candran.can:309
-end -- candran.can:309
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:315
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:198
+if not preprocess then -- candran.can:199
+return nil, "in preprocessor: " .. err -- candran.can:200
+end -- candran.can:200
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:203
+if not preprocess then -- candran.can:204
+return nil, "in preprocessor: " .. err -- candran.can:205
+end -- candran.can:205
+local success, output = pcall(preprocess) -- candran.can:209
+if not success then -- candran.can:210
+return nil, "in preprocessor: " .. output -- candran.can:211
+end -- candran.can:211
+return output, macros -- candran.can:214
+end -- candran.can:214
+candran["compile"] = function(input, options, macros) -- candran.can:224
+if options == nil then options = {} end -- candran.can:224
+options = util["merge"](candran["default"], options) -- candran.can:225
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:227
+if not ast then -- candran.can:229
+return nil, errmsg -- candran.can:230
+end -- candran.can:230
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:233
+end -- candran.can:233
+candran["make"] = function(code, options) -- candran.can:242
+local r, err = candran["preprocess"](code, options) -- candran.can:243
+if r then -- candran.can:244
+r, err = candran["compile"](r, options, err) -- candran.can:245
+if r then -- candran.can:246
+return r -- candran.can:247
+end -- candran.can:247
+end -- candran.can:247
+return r, err -- candran.can:250
+end -- candran.can:250
+local errorRewritingActive = false -- candran.can:253
+local codeCache = {} -- candran.can:254
+candran["loadfile"] = function(filepath, env, options) -- candran.can:257
+local f, err = io["open"](filepath) -- candran.can:258
+if not f then -- candran.can:259
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:260
+end -- candran.can:260
+local content = f:read("*a") -- candran.can:262
+f:close() -- candran.can:263
+return candran["load"](content, filepath, env, options) -- candran.can:265
+end -- candran.can:265
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:270
+if options == nil then options = {} end -- candran.can:270
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:271
+local code, err = candran["make"](chunk, options) -- candran.can:273
+if not code then -- candran.can:274
+return code, err -- candran.can:275
+end -- candran.can:275
+codeCache[options["chunkname"]] = code -- candran.can:278
+local f -- candran.can:279
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:280
+if f == nil then -- candran.can:285
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:286
+end -- candran.can:286
+if options["rewriteErrors"] == false then -- candran.can:289
+return f -- candran.can:290
+else -- candran.can:290
+return function(...) -- candran.can:292
+if not errorRewritingActive then -- candran.can:293
+errorRewritingActive = true -- candran.can:294
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:295
+errorRewritingActive = false -- candran.can:296
+if t[1] == false then -- candran.can:297
+error(t[2], 0) -- candran.can:298
+end -- candran.can:298
+return unpack(t, 2) -- candran.can:300
+else -- candran.can:300
+return f(...) -- candran.can:302
+end -- candran.can:302
+end -- candran.can:302
+end -- candran.can:302
+end -- candran.can:302
+candran["dofile"] = function(filename, options) -- candran.can:310
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:311
+if f == nil then -- candran.can:313
+error(err) -- candran.can:314
+else -- candran.can:314
+return f() -- candran.can:316
+end -- candran.can:316
+end -- candran.can:316
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:322
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:316
-message = debug["traceback"](message, 2) -- candran.can:317
-end -- candran.can:317
+") then -- candran.can:323
+message = debug["traceback"](message, 2) -- candran.can:324
+end -- candran.can:324
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:319
-line = tonumber(line) -- candran.can:320
-local originalFile -- candran.can:322
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:323
-if strName then -- candran.can:324
-if codeCache[strName] then -- candran.can:325
-originalFile = codeCache[strName] -- candran.can:326
-source = strName -- candran.can:327
-end -- candran.can:327
-else -- candran.can:327
-do -- candran.can:330
-local fi -- candran.can:330
-fi = io["open"](source, "r") -- candran.can:330
-if fi then -- candran.can:330
-originalFile = fi:read("*a") -- candran.can:331
-fi:close() -- candran.can:332
-end -- candran.can:332
-end -- candran.can:332
-end -- candran.can:332
-if originalFile then -- candran.can:336
-local i = 0 -- candran.can:337
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:326
+line = tonumber(line) -- candran.can:327
+local originalFile -- candran.can:329
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:330
+if strName then -- candran.can:331
+if codeCache[strName] then -- candran.can:332
+originalFile = codeCache[strName] -- candran.can:333
+source = strName -- candran.can:334
+end -- candran.can:334
+else -- candran.can:334
+do -- candran.can:337
+local fi -- candran.can:337
+fi = io["open"](source, "r") -- candran.can:337
+if fi then -- candran.can:337
+originalFile = fi:read("*a") -- candran.can:338
+fi:close() -- candran.can:339
+end -- candran.can:339
+end -- candran.can:339
+end -- candran.can:339
+if originalFile then -- candran.can:343
+local i = 0 -- candran.can:344
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:338
-i = i + 1 -- candran.can:339
-if i == line then -- candran.can:340
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:341
-if lineMap then -- candran.can:342
-if extSource ~= source then -- candran.can:343
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:344
-else -- candran.can:344
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:346
-end -- candran.can:346
-end -- candran.can:346
-break -- candran.can:349
-end -- candran.can:349
-end -- candran.can:349
-end -- candran.can:349
-end) -- candran.can:349
-end -- candran.can:349
-candran["searcher"] = function(modpath) -- candran.can:357
-local filepath = util["search"](modpath, { "can" }) -- candran.can:358
-if not filepath then -- candran.can:359
-if _VERSION == "Lua 5.4" then -- candran.can:360
-return "no candran file in package.path" -- candran.can:361
-else -- candran.can:361
+") do -- candran.can:345
+i = i + 1 -- candran.can:346
+if i == line then -- candran.can:347
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:348
+if lineMap then -- candran.can:349
+if extSource ~= source then -- candran.can:350
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:351
+else -- candran.can:351
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:353
+end -- candran.can:353
+end -- candran.can:353
+break -- candran.can:356
+end -- candran.can:356
+end -- candran.can:356
+end -- candran.can:356
+end) -- candran.can:356
+end -- candran.can:356
+candran["searcher"] = function(modpath) -- candran.can:364
+local filepath = util["search"](modpath, { "can" }) -- candran.can:365
+if not filepath then -- candran.can:366
+if _VERSION == "Lua 5.4" then -- candran.can:367
+return "no candran file in package.path" -- candran.can:368
+else -- candran.can:368
 return "\
-\9no candran file in package.path" -- candran.can:363
-end -- candran.can:363
-end -- candran.can:363
-return function(modpath) -- candran.can:366
-local r, s = candran["loadfile"](filepath) -- candran.can:367
-if r then -- candran.can:368
-return r(modpath, filepath) -- candran.can:369
-else -- candran.can:369
+\9no candran file in package.path" -- candran.can:370
+end -- candran.can:370
+end -- candran.can:370
+return function(modpath) -- candran.can:373
+local r, s = candran["loadfile"](filepath) -- candran.can:374
+if r then -- candran.can:375
+return r(modpath, filepath) -- candran.can:376
+else -- candran.can:376
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:371
-end -- candran.can:371
-end, filepath -- candran.can:373
-end -- candran.can:373
-candran["setup"] = function() -- candran.can:377
-local searchers = (function() -- candran.can:378
-if _VERSION == "Lua 5.1" then -- candran.can:378
-return package["loaders"] -- candran.can:379
-else -- candran.can:379
-return package["searchers"] -- candran.can:381
-end -- candran.can:381
-end)() -- candran.can:381
-for _, s in ipairs(searchers) do -- candran.can:384
-if s == candran["searcher"] then -- candran.can:385
-return candran -- candran.can:386
-end -- candran.can:386
-end -- candran.can:386
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:390
-return candran -- candran.can:391
-end -- candran.can:391
-return candran -- candran.can:394
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:378
+end -- candran.can:378
+end, filepath -- candran.can:380
+end -- candran.can:380
+candran["setup"] = function() -- candran.can:384
+local searchers = (function() -- candran.can:385
+if _VERSION == "Lua 5.1" then -- candran.can:385
+return package["loaders"] -- candran.can:386
+else -- candran.can:386
+return package["searchers"] -- candran.can:388
+end -- candran.can:388
+end)() -- candran.can:388
+for _, s in ipairs(searchers) do -- candran.can:391
+if s == candran["searcher"] then -- candran.can:392
+return candran -- candran.can:393
+end -- candran.can:393
+end -- candran.can:393
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:397
+return candran -- candran.can:398
+end -- candran.can:398
+return candran -- candran.can:401
diff --git a/candran/util.can b/candran/util.can
index faf4a69..f666935 100644
--- a/candran/util.can
+++ b/candran/util.can
@@ -84,6 +84,11 @@ util.cli = {
 				:description "Define a preprocessor constant"
 				:args("1-2")
 				:argname{"name", "value"}
+				:count("*"),
+
+			parser:option("-I --import")
+				:description "Statically import a module into the compiled file"
+				:argname("module")
 				:count("*")
 		)
 
@@ -110,7 +115,8 @@ util.cli = {
 			chunkname = args.chunkname,
 			rewriteErrors = not args.no_rewrite_errors,
 			builtInMacros = not args.no_builtin_macros,
-			preprocessorEnv = preprocessorEnv
+			preprocessorEnv = preprocessorEnv,
+			import = args.import
 		}
 		return options
 	end

From d4102f1af67954a7d0aebb68f487d54d929cd88f Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 14:23:45 +0200
Subject: [PATCH 35/43] Handle static import errors in can

---
 bin/can     |  24 +++++++--
 candran.can |   1 +
 candran.lua | 153 ++++++++++++++++++++++++++--------------------------
 3 files changed, 97 insertions(+), 81 deletions(-)

diff --git a/bin/can b/bin/can
index 903dea2..8a0fc97 100644
--- a/bin/can
+++ b/bin/can
@@ -118,6 +118,20 @@ else
 	print("Candran " .. candran.VERSION .. ", targeting " .. candran.default.target)
 	candran.setup()
 
+	-- only perform static imports once, on startup
+	do
+		local r, e = candran.load("local _", "stdin")
+		if not r then
+			print("In static import: "..e)
+		else
+			r, e = pcall(r)
+			if not r then
+				print("In static import: "..e)
+			end
+		end
+		candran.default.import = {}
+	end
+
 	-- REPL loop
 	local multiline = false -- true if wait for another line
 	local buffer
@@ -157,15 +171,15 @@ else
 		end
 
 		-- exec
-		local t = { pcall(candran.load, buffer, "stdin") }
-		if t[1] == false then
-			if t[2]:match("expected '[end})]+' to close") then
+		local r, e = candran.load(buffer, "stdin")
+		if not r then
+			if e:match("expected '[end})]+' to close") then
 				multiline = true
 			else
-				print(t[2])
+				print(e)
 			end
 		else
-			t = { pcall(t[2]) }
+			local t = { pcall(r) }
 			if t[1] == false then
 				print(t[2])
 			elseif #t > 1 then
diff --git a/candran.can b/candran.can
index 4e90067..3ebd2e5 100644
--- a/candran.can
+++ b/candran.can
@@ -320,6 +320,7 @@ end
 --- Candran error message handler.
 -- Use it in xpcall to rewrite stacktraces to display Candran source file lines instead of compiled Lua lines.
 function candran.messageHandler(message, noTraceback)
+	message = tostring(message)
 	if not noTraceback and not message:match("\nstack traceback:\n") then
 		message = debug.traceback(message, 2)
 	end
diff --git a/candran.lua b/candran.lua
index 8ea8eb7..0afc80b 100644
--- a/candran.lua
+++ b/candran.lua
@@ -7251,88 +7251,89 @@ return f() -- candran.can:316
 end -- candran.can:316
 end -- candran.can:316
 candran["messageHandler"] = function(message, noTraceback) -- candran.can:322
+message = tostring(message) -- candran.can:323
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:323
-message = debug["traceback"](message, 2) -- candran.can:324
-end -- candran.can:324
+") then -- candran.can:324
+message = debug["traceback"](message, 2) -- candran.can:325
+end -- candran.can:325
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:326
-line = tonumber(line) -- candran.can:327
-local originalFile -- candran.can:329
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:330
-if strName then -- candran.can:331
-if codeCache[strName] then -- candran.can:332
-originalFile = codeCache[strName] -- candran.can:333
-source = strName -- candran.can:334
-end -- candran.can:334
-else -- candran.can:334
-do -- candran.can:337
-local fi -- candran.can:337
-fi = io["open"](source, "r") -- candran.can:337
-if fi then -- candran.can:337
-originalFile = fi:read("*a") -- candran.can:338
-fi:close() -- candran.can:339
-end -- candran.can:339
-end -- candran.can:339
-end -- candran.can:339
-if originalFile then -- candran.can:343
-local i = 0 -- candran.can:344
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:327
+line = tonumber(line) -- candran.can:328
+local originalFile -- candran.can:330
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:331
+if strName then -- candran.can:332
+if codeCache[strName] then -- candran.can:333
+originalFile = codeCache[strName] -- candran.can:334
+source = strName -- candran.can:335
+end -- candran.can:335
+else -- candran.can:335
+do -- candran.can:338
+local fi -- candran.can:338
+fi = io["open"](source, "r") -- candran.can:338
+if fi then -- candran.can:338
+originalFile = fi:read("*a") -- candran.can:339
+fi:close() -- candran.can:340
+end -- candran.can:340
+end -- candran.can:340
+end -- candran.can:340
+if originalFile then -- candran.can:344
+local i = 0 -- candran.can:345
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:345
-i = i + 1 -- candran.can:346
-if i == line then -- candran.can:347
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:348
-if lineMap then -- candran.can:349
-if extSource ~= source then -- candran.can:350
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:351
-else -- candran.can:351
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:353
-end -- candran.can:353
-end -- candran.can:353
-break -- candran.can:356
-end -- candran.can:356
-end -- candran.can:356
-end -- candran.can:356
-end) -- candran.can:356
-end -- candran.can:356
-candran["searcher"] = function(modpath) -- candran.can:364
-local filepath = util["search"](modpath, { "can" }) -- candran.can:365
-if not filepath then -- candran.can:366
-if _VERSION == "Lua 5.4" then -- candran.can:367
-return "no candran file in package.path" -- candran.can:368
-else -- candran.can:368
+") do -- candran.can:346
+i = i + 1 -- candran.can:347
+if i == line then -- candran.can:348
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:349
+if lineMap then -- candran.can:350
+if extSource ~= source then -- candran.can:351
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:352
+else -- candran.can:352
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:354
+end -- candran.can:354
+end -- candran.can:354
+break -- candran.can:357
+end -- candran.can:357
+end -- candran.can:357
+end -- candran.can:357
+end) -- candran.can:357
+end -- candran.can:357
+candran["searcher"] = function(modpath) -- candran.can:365
+local filepath = util["search"](modpath, { "can" }) -- candran.can:366
+if not filepath then -- candran.can:367
+if _VERSION == "Lua 5.4" then -- candran.can:368
+return "no candran file in package.path" -- candran.can:369
+else -- candran.can:369
 return "\
-\9no candran file in package.path" -- candran.can:370
-end -- candran.can:370
-end -- candran.can:370
-return function(modpath) -- candran.can:373
-local r, s = candran["loadfile"](filepath) -- candran.can:374
-if r then -- candran.can:375
-return r(modpath, filepath) -- candran.can:376
-else -- candran.can:376
+\9no candran file in package.path" -- candran.can:371
+end -- candran.can:371
+end -- candran.can:371
+return function(modpath) -- candran.can:374
+local r, s = candran["loadfile"](filepath) -- candran.can:375
+if r then -- candran.can:376
+return r(modpath, filepath) -- candran.can:377
+else -- candran.can:377
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:378
-end -- candran.can:378
-end, filepath -- candran.can:380
-end -- candran.can:380
-candran["setup"] = function() -- candran.can:384
-local searchers = (function() -- candran.can:385
-if _VERSION == "Lua 5.1" then -- candran.can:385
-return package["loaders"] -- candran.can:386
-else -- candran.can:386
-return package["searchers"] -- candran.can:388
-end -- candran.can:388
-end)() -- candran.can:388
-for _, s in ipairs(searchers) do -- candran.can:391
-if s == candran["searcher"] then -- candran.can:392
-return candran -- candran.can:393
-end -- candran.can:393
-end -- candran.can:393
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:397
-return candran -- candran.can:398
-end -- candran.can:398
-return candran -- candran.can:401
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:379
+end -- candran.can:379
+end, filepath -- candran.can:381
+end -- candran.can:381
+candran["setup"] = function() -- candran.can:385
+local searchers = (function() -- candran.can:386
+if _VERSION == "Lua 5.1" then -- candran.can:386
+return package["loaders"] -- candran.can:387
+else -- candran.can:387
+return package["searchers"] -- candran.can:389
+end -- candran.can:389
+end)() -- candran.can:389
+for _, s in ipairs(searchers) do -- candran.can:392
+if s == candran["searcher"] then -- candran.can:393
+return candran -- candran.can:394
+end -- candran.can:394
+end -- candran.can:394
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:398
+return candran -- candran.can:399
+end -- candran.can:399
+return candran -- candran.can:402

From 53f715cc6fdf5e10afa927f7ef794dd64154ac98 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 14:37:45 +0200
Subject: [PATCH 36/43] Add #set to define preprocessors constants from an
 imported file

---
 candran.can |   4 +
 candran.lua | 530 +++++++++++++++++-----------------------------------
 2 files changed, 177 insertions(+), 357 deletions(-)

diff --git a/candran.can b/candran.can
index 3ebd2e5..9dd417c 100644
--- a/candran.can
+++ b/candran.can
@@ -184,6 +184,10 @@ function candran.preprocess(input, options={})
 			error("invalid macro type %s":format(tostring(iast.tag)))
 		end
 	end
+	env.set = function(identifier, value)
+		options.preprocessorEnv[identifier] = value
+		env[identifier] = value
+	end
 
 	-- default macros
 	if options.builtInMacros then
diff --git a/candran.lua b/candran.lua
index 0afc80b..d09d73f 100644
--- a/candran.lua
+++ b/candran.lua
@@ -2220,14 +2220,6 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
-targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
-if t[2] then -- ./compiler/lua53.can:5
-error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
-else -- ./compiler/lua53.can:6
-return t[1] -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -3167,39 +3159,6 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
-targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
-if t[2] then -- ./compiler/lua53.can:5
-error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
-else -- ./compiler/lua53.can:6
-return t[1] -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-targetName = "Lua 5.2" -- ./compiler/lua52.can:1
-APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
-return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
-end -- ./compiler/lua52.can:4
-tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
-return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
-end -- ./compiler/lua52.can:8
-tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
-return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
-end -- ./compiler/lua52.can:11
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
-return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
-end -- ./compiler/lua52.can:14
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
-return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
-end -- ./compiler/lua52.can:17
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
-return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
-end -- ./compiler/lua52.can:20
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
-return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
-end -- ./compiler/lua52.can:23
-tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
-return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
-end -- ./compiler/lua52.can:26
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -4143,67 +4102,6 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
-targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
-if t[2] then -- ./compiler/lua53.can:5
-error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
-else -- ./compiler/lua53.can:6
-return t[1] -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-targetName = "Lua 5.2" -- ./compiler/lua52.can:1
-APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
-return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
-end -- ./compiler/lua52.can:4
-tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
-return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
-end -- ./compiler/lua52.can:8
-tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
-return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
-end -- ./compiler/lua52.can:11
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
-return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
-end -- ./compiler/lua52.can:14
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
-return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
-end -- ./compiler/lua52.can:17
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
-return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
-end -- ./compiler/lua52.can:20
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
-return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
-end -- ./compiler/lua52.can:23
-tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
-return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
-end -- ./compiler/lua52.can:26
-targetName = "LuaJIT" -- ./compiler/luajit.can:1
-UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
-return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
-end -- ./compiler/luajit.can:4
-tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
-addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
-return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
-end -- ./compiler/luajit.can:9
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
-addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
-return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
-end -- ./compiler/luajit.can:13
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
-addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
-return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
-end -- ./compiler/luajit.can:17
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
-addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
-return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
-end -- ./compiler/luajit.can:21
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
-addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
-return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
-end -- ./compiler/luajit.can:25
-tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
-addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
-return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
-end -- ./compiler/luajit.can:29
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -5151,92 +5049,6 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
-targetName = "Lua 5.3" -- ./compiler/lua53.can:1
-tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
-if t[2] then -- ./compiler/lua53.can:5
-error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
-else -- ./compiler/lua53.can:6
-return t[1] -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-end -- ./compiler/lua53.can:8
-targetName = "Lua 5.2" -- ./compiler/lua52.can:1
-APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
-return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
-end -- ./compiler/lua52.can:4
-tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
-return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
-end -- ./compiler/lua52.can:8
-tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
-return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
-end -- ./compiler/lua52.can:11
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
-return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
-end -- ./compiler/lua52.can:14
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
-return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
-end -- ./compiler/lua52.can:17
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
-return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
-end -- ./compiler/lua52.can:20
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
-return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
-end -- ./compiler/lua52.can:23
-tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
-return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
-end -- ./compiler/lua52.can:26
-targetName = "LuaJIT" -- ./compiler/luajit.can:1
-UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
-return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
-end -- ./compiler/luajit.can:4
-tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
-addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
-return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
-end -- ./compiler/luajit.can:9
-tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
-addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
-return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
-end -- ./compiler/luajit.can:13
-tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
-addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
-return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
-end -- ./compiler/luajit.can:17
-tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
-addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
-return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
-end -- ./compiler/luajit.can:21
-tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
-addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
-return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
-end -- ./compiler/luajit.can:25
-tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
-addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
-return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
-end -- ./compiler/luajit.can:29
-targetName = "Lua 5.1" -- ./compiler/lua51.can:1
-states["continue"] = {} -- ./compiler/lua51.can:3
-CONTINUE_START = function() -- ./compiler/lua51.can:5
-return "local " .. var("break") .. newline() .. "repeat" .. indent() .. push("continue", var("break")) -- ./compiler/lua51.can:6
-end -- ./compiler/lua51.can:6
-CONTINUE_STOP = function() -- ./compiler/lua51.can:8
-return pop("continue") .. unindent() .. "until true" .. newline() .. "if " .. var("break") .. " then break end" -- ./compiler/lua51.can:9
-end -- ./compiler/lua51.can:9
-tags["Continue"] = function() -- ./compiler/lua51.can:12
-return "break" -- ./compiler/lua51.can:13
-end -- ./compiler/lua51.can:13
-tags["Break"] = function() -- ./compiler/lua51.can:15
-local inContinue = peek("continue") -- ./compiler/lua51.can:16
-if inContinue then -- ./compiler/lua51.can:17
-return inContinue .. " = true" .. newline() .. "break" -- ./compiler/lua51.can:18
-else -- ./compiler/lua51.can:18
-return "break" -- ./compiler/lua51.can:20
-end -- ./compiler/lua51.can:20
-end -- ./compiler/lua51.can:20
-tags["Goto"] = function() -- ./compiler/lua51.can:25
-error("target " .. targetName .. " does not support gotos") -- ./compiler/lua51.can:26
-end -- ./compiler/lua51.can:26
-tags["Label"] = function() -- ./compiler/lua51.can:28
-error("target " .. targetName .. " does not support goto labels") -- ./compiler/lua51.can:29
-end -- ./compiler/lua51.can:29
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -7158,182 +6970,186 @@ else -- candran.can:182
 error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:184
 end -- candran.can:184
 end -- candran.can:184
-if options["builtInMacros"] then -- candran.can:189
-env["define"]("__STR__(x)", function(x) -- candran.can:190
-return ("%q"):format(x) -- candran.can:190
-end) -- candran.can:190
-local s = require("candran.serpent") -- candran.can:191
-env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:192
-return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:193
-end) -- candran.can:193
-end -- candran.can:193
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:198
-if not preprocess then -- candran.can:199
-return nil, "in preprocessor: " .. err -- candran.can:200
-end -- candran.can:200
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:203
-if not preprocess then -- candran.can:204
-return nil, "in preprocessor: " .. err -- candran.can:205
-end -- candran.can:205
-local success, output = pcall(preprocess) -- candran.can:209
-if not success then -- candran.can:210
-return nil, "in preprocessor: " .. output -- candran.can:211
-end -- candran.can:211
-return output, macros -- candran.can:214
-end -- candran.can:214
-candran["compile"] = function(input, options, macros) -- candran.can:224
-if options == nil then options = {} end -- candran.can:224
-options = util["merge"](candran["default"], options) -- candran.can:225
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:227
-if not ast then -- candran.can:229
-return nil, errmsg -- candran.can:230
-end -- candran.can:230
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:233
-end -- candran.can:233
-candran["make"] = function(code, options) -- candran.can:242
-local r, err = candran["preprocess"](code, options) -- candran.can:243
-if r then -- candran.can:244
-r, err = candran["compile"](r, options, err) -- candran.can:245
-if r then -- candran.can:246
-return r -- candran.can:247
-end -- candran.can:247
-end -- candran.can:247
-return r, err -- candran.can:250
-end -- candran.can:250
-local errorRewritingActive = false -- candran.can:253
-local codeCache = {} -- candran.can:254
-candran["loadfile"] = function(filepath, env, options) -- candran.can:257
-local f, err = io["open"](filepath) -- candran.can:258
-if not f then -- candran.can:259
-return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:260
-end -- candran.can:260
-local content = f:read("*a") -- candran.can:262
-f:close() -- candran.can:263
-return candran["load"](content, filepath, env, options) -- candran.can:265
-end -- candran.can:265
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:270
-if options == nil then options = {} end -- candran.can:270
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:271
-local code, err = candran["make"](chunk, options) -- candran.can:273
-if not code then -- candran.can:274
-return code, err -- candran.can:275
-end -- candran.can:275
-codeCache[options["chunkname"]] = code -- candran.can:278
-local f -- candran.can:279
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:280
-if f == nil then -- candran.can:285
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:286
-end -- candran.can:286
-if options["rewriteErrors"] == false then -- candran.can:289
-return f -- candran.can:290
-else -- candran.can:290
-return function(...) -- candran.can:292
-if not errorRewritingActive then -- candran.can:293
-errorRewritingActive = true -- candran.can:294
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:295
-errorRewritingActive = false -- candran.can:296
-if t[1] == false then -- candran.can:297
-error(t[2], 0) -- candran.can:298
-end -- candran.can:298
-return unpack(t, 2) -- candran.can:300
-else -- candran.can:300
-return f(...) -- candran.can:302
+env["set"] = function(identifier, value) -- candran.can:187
+options["preprocessorEnv"][identifier] = value -- candran.can:188
+env[identifier] = value -- candran.can:189
+end -- candran.can:189
+if options["builtInMacros"] then -- candran.can:193
+env["define"]("__STR__(x)", function(x) -- candran.can:194
+return ("%q"):format(x) -- candran.can:194
+end) -- candran.can:194
+local s = require("candran.serpent") -- candran.can:195
+env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:196
+return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:197
+end) -- candran.can:197
+end -- candran.can:197
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:202
+if not preprocess then -- candran.can:203
+return nil, "in preprocessor: " .. err -- candran.can:204
+end -- candran.can:204
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:207
+if not preprocess then -- candran.can:208
+return nil, "in preprocessor: " .. err -- candran.can:209
+end -- candran.can:209
+local success, output = pcall(preprocess) -- candran.can:213
+if not success then -- candran.can:214
+return nil, "in preprocessor: " .. output -- candran.can:215
+end -- candran.can:215
+return output, macros -- candran.can:218
+end -- candran.can:218
+candran["compile"] = function(input, options, macros) -- candran.can:228
+if options == nil then options = {} end -- candran.can:228
+options = util["merge"](candran["default"], options) -- candran.can:229
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:231
+if not ast then -- candran.can:233
+return nil, errmsg -- candran.can:234
+end -- candran.can:234
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:237
+end -- candran.can:237
+candran["make"] = function(code, options) -- candran.can:246
+local r, err = candran["preprocess"](code, options) -- candran.can:247
+if r then -- candran.can:248
+r, err = candran["compile"](r, options, err) -- candran.can:249
+if r then -- candran.can:250
+return r -- candran.can:251
+end -- candran.can:251
+end -- candran.can:251
+return r, err -- candran.can:254
+end -- candran.can:254
+local errorRewritingActive = false -- candran.can:257
+local codeCache = {} -- candran.can:258
+candran["loadfile"] = function(filepath, env, options) -- candran.can:261
+local f, err = io["open"](filepath) -- candran.can:262
+if not f then -- candran.can:263
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:264
+end -- candran.can:264
+local content = f:read("*a") -- candran.can:266
+f:close() -- candran.can:267
+return candran["load"](content, filepath, env, options) -- candran.can:269
+end -- candran.can:269
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:274
+if options == nil then options = {} end -- candran.can:274
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:275
+local code, err = candran["make"](chunk, options) -- candran.can:277
+if not code then -- candran.can:278
+return code, err -- candran.can:279
+end -- candran.can:279
+codeCache[options["chunkname"]] = code -- candran.can:282
+local f -- candran.can:283
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:284
+if f == nil then -- candran.can:289
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:290
+end -- candran.can:290
+if options["rewriteErrors"] == false then -- candran.can:293
+return f -- candran.can:294
+else -- candran.can:294
+return function(...) -- candran.can:296
+if not errorRewritingActive then -- candran.can:297
+errorRewritingActive = true -- candran.can:298
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:299
+errorRewritingActive = false -- candran.can:300
+if t[1] == false then -- candran.can:301
+error(t[2], 0) -- candran.can:302
 end -- candran.can:302
-end -- candran.can:302
-end -- candran.can:302
-end -- candran.can:302
-candran["dofile"] = function(filename, options) -- candran.can:310
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:311
-if f == nil then -- candran.can:313
-error(err) -- candran.can:314
-else -- candran.can:314
-return f() -- candran.can:316
-end -- candran.can:316
-end -- candran.can:316
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:322
-message = tostring(message) -- candran.can:323
+return unpack(t, 2) -- candran.can:304
+else -- candran.can:304
+return f(...) -- candran.can:306
+end -- candran.can:306
+end -- candran.can:306
+end -- candran.can:306
+end -- candran.can:306
+candran["dofile"] = function(filename, options) -- candran.can:314
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:315
+if f == nil then -- candran.can:317
+error(err) -- candran.can:318
+else -- candran.can:318
+return f() -- candran.can:320
+end -- candran.can:320
+end -- candran.can:320
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:326
+message = tostring(message) -- candran.can:327
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:324
-message = debug["traceback"](message, 2) -- candran.can:325
-end -- candran.can:325
+") then -- candran.can:328
+message = debug["traceback"](message, 2) -- candran.can:329
+end -- candran.can:329
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:327
-line = tonumber(line) -- candran.can:328
-local originalFile -- candran.can:330
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:331
-if strName then -- candran.can:332
-if codeCache[strName] then -- candran.can:333
-originalFile = codeCache[strName] -- candran.can:334
-source = strName -- candran.can:335
-end -- candran.can:335
-else -- candran.can:335
-do -- candran.can:338
-local fi -- candran.can:338
-fi = io["open"](source, "r") -- candran.can:338
-if fi then -- candran.can:338
-originalFile = fi:read("*a") -- candran.can:339
-fi:close() -- candran.can:340
-end -- candran.can:340
-end -- candran.can:340
-end -- candran.can:340
-if originalFile then -- candran.can:344
-local i = 0 -- candran.can:345
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:331
+line = tonumber(line) -- candran.can:332
+local originalFile -- candran.can:334
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:335
+if strName then -- candran.can:336
+if codeCache[strName] then -- candran.can:337
+originalFile = codeCache[strName] -- candran.can:338
+source = strName -- candran.can:339
+end -- candran.can:339
+else -- candran.can:339
+do -- candran.can:342
+local fi -- candran.can:342
+fi = io["open"](source, "r") -- candran.can:342
+if fi then -- candran.can:342
+originalFile = fi:read("*a") -- candran.can:343
+fi:close() -- candran.can:344
+end -- candran.can:344
+end -- candran.can:344
+end -- candran.can:344
+if originalFile then -- candran.can:348
+local i = 0 -- candran.can:349
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:346
-i = i + 1 -- candran.can:347
-if i == line then -- candran.can:348
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:349
-if lineMap then -- candran.can:350
-if extSource ~= source then -- candran.can:351
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:352
-else -- candran.can:352
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:354
-end -- candran.can:354
-end -- candran.can:354
-break -- candran.can:357
-end -- candran.can:357
-end -- candran.can:357
-end -- candran.can:357
-end) -- candran.can:357
-end -- candran.can:357
-candran["searcher"] = function(modpath) -- candran.can:365
-local filepath = util["search"](modpath, { "can" }) -- candran.can:366
-if not filepath then -- candran.can:367
-if _VERSION == "Lua 5.4" then -- candran.can:368
-return "no candran file in package.path" -- candran.can:369
-else -- candran.can:369
+") do -- candran.can:350
+i = i + 1 -- candran.can:351
+if i == line then -- candran.can:352
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:353
+if lineMap then -- candran.can:354
+if extSource ~= source then -- candran.can:355
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:356
+else -- candran.can:356
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:358
+end -- candran.can:358
+end -- candran.can:358
+break -- candran.can:361
+end -- candran.can:361
+end -- candran.can:361
+end -- candran.can:361
+end) -- candran.can:361
+end -- candran.can:361
+candran["searcher"] = function(modpath) -- candran.can:369
+local filepath = util["search"](modpath, { "can" }) -- candran.can:370
+if not filepath then -- candran.can:371
+if _VERSION == "Lua 5.4" then -- candran.can:372
+return "no candran file in package.path" -- candran.can:373
+else -- candran.can:373
 return "\
-\9no candran file in package.path" -- candran.can:371
-end -- candran.can:371
-end -- candran.can:371
-return function(modpath) -- candran.can:374
-local r, s = candran["loadfile"](filepath) -- candran.can:375
-if r then -- candran.can:376
-return r(modpath, filepath) -- candran.can:377
-else -- candran.can:377
+\9no candran file in package.path" -- candran.can:375
+end -- candran.can:375
+end -- candran.can:375
+return function(modpath) -- candran.can:378
+local r, s = candran["loadfile"](filepath) -- candran.can:379
+if r then -- candran.can:380
+return r(modpath, filepath) -- candran.can:381
+else -- candran.can:381
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:379
-end -- candran.can:379
-end, filepath -- candran.can:381
-end -- candran.can:381
-candran["setup"] = function() -- candran.can:385
-local searchers = (function() -- candran.can:386
-if _VERSION == "Lua 5.1" then -- candran.can:386
-return package["loaders"] -- candran.can:387
-else -- candran.can:387
-return package["searchers"] -- candran.can:389
-end -- candran.can:389
-end)() -- candran.can:389
-for _, s in ipairs(searchers) do -- candran.can:392
-if s == candran["searcher"] then -- candran.can:393
-return candran -- candran.can:394
-end -- candran.can:394
-end -- candran.can:394
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:398
-return candran -- candran.can:399
-end -- candran.can:399
-return candran -- candran.can:402
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:383
+end -- candran.can:383
+end, filepath -- candran.can:385
+end -- candran.can:385
+candran["setup"] = function() -- candran.can:389
+local searchers = (function() -- candran.can:390
+if _VERSION == "Lua 5.1" then -- candran.can:390
+return package["loaders"] -- candran.can:391
+else -- candran.can:391
+return package["searchers"] -- candran.can:393
+end -- candran.can:393
+end)() -- candran.can:393
+for _, s in ipairs(searchers) do -- candran.can:396
+if s == candran["searcher"] then -- candran.can:397
+return candran -- candran.can:398
+end -- candran.can:398
+end -- candran.can:398
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:402
+return candran -- candran.can:403
+end -- candran.can:403
+return candran -- candran.can:406

From b32d4d5600dac205e19fda66138e828f5cf0c76e Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 15:14:56 +0200
Subject: [PATCH 37/43] Update README

---
 README.md   |  48 ++++++++++----
 candran.lua | 188 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 223 insertions(+), 13 deletions(-)

diff --git a/README.md b/README.md
index 66992aa..78adb83 100644
--- a/README.md
+++ b/README.md
@@ -456,6 +456,7 @@ The preprocessor has access to the following variables:
 * ````write(...)````: write to the preprocessor output. For example, ````#write("hello()")```` will output ````hello()```` in the final file.
 * ```placeholder(name)```: if the variable _name_ is defined in the preprocessor environement, its content will be inserted here.
 * ```define(identifier, replacement)```: define a macro. See below.
+* ```set(identifier, value)```: set a preprocessor constant.
 * each arguments passed to the preprocessor is directly available in the environment.
 * and every standard Lua library.
 
@@ -526,23 +527,41 @@ The library can be used standalone through the ```canc``` (for compiling Candran
 
 	Preprocess and compile each  _filename_ Candran files, and creates the assiociated ```.lua``` files in the same directories.
 
-	_options_ is of type ````-somearg -anotherarg thing=somestring other=5````, which will generate a Lua table ```{ somearg = true, anotherarg = true, thing = "somestring", other = 5 }```.
+	_options_ is of type ````--no-map-lines -p --include module -d VAR 5````.
 
-	You can choose to use another directory where files should be written using the ```dest=destinationDirectory``` argument.
+	You can choose to use another directory where files should be written using the `--destination` or `-d` option: ```--destination destinationDirectory```.
 
-	You can choose the output filename using ```out=filename```. By default, compiled files have the same name as their input file, but with a ```.lua``` extension.
+	You can choose the output filename using `--output` or `-o` option: `--output filename`. By default, compiled files have the same name as their input file, but with a ```.lua``` extension.
 
-	```canc``` can write to the standard output instead of creating files using the ```-print``` argument.
+	```canc``` can write to the standard output instead of creating files using the ```--print``` or `-p` argument.
 
-	You can choose to run only the preprocessor or compile using the ```-preprocess``` and ```-compile``` flags.
+	You can choose to run only the preprocessor or compile using the ```--preprocess``` and ```--compile``` flags.
 
-	You can choose to only parse the file and check it for syntaxic errors using the ```-parse``` flag. Errors will be printed to stderr in a similar format to ```luac -p```.
+	You can choose to only parse the file and check it for syntaxic errors using the ```--parse``` flag. Errors will be printed to stderr in a similar format to ```luac -p```.
 
-	The ```-ast``` flag is also available for debugging, and will disable preprocessing, compiling and file writing, and instead directly dump the AST generated from the input file(s) to stdout.
+	The ```--ast``` flag is also available for debugging, and will disable preprocessing, compiling and file writing, and instead directly dump the AST generated from the input file(s) to stdout.
 
 	Instead of providing filenames, you can use ```-``` to read from standard input.
 
-	Use the ```-h``` or ```-help``` option to display a short help text.
+	You can change the compiler target using `--target` or `-t`: `--target luajit`.
+
+	You can change the identation and newline string using `--indentation` and `--newline`: `--identation luajit`.
+
+	You can change Candran's built-in variable prefix using `--variable-prefix`: `--variable-prefix __CAN_`.
+
+	You can disable line mapping (error rewriting will not work) using `--no-map-lines`.
+
+	You can disable built-in macros using `--no-builtin-macros`.
+
+	You can define preprocessor constants using `--define` or `-D`: `--define VAR 5`. `VAR` will be available and set to 5 in the preprocessor. If you specify no value, it defaults to true.
+
+	You can statically import modules using `--import` or `-I`: `--import module`. The module will be imported in compiled files using `#import("module",{loadLocal=false})`.
+
+	You can disable error rewriting using `--no-rewrite-errors`.
+
+	You can change the chunkname using `--chunkname`: `--chunkname filename`. This will change the filenames are reported in errors. By default, try to use the current file name, or stdin when using `-`.
+
+	Use the ```-h``` or ```--help``` option to display the help text.
 
 	Example uses:
 
@@ -550,15 +569,15 @@ The library can be used standalone through the ```canc``` (for compiling Candran
 
 		preprocess and compile _foo.can_ and write the result in _foo.lua_.
 
-	* ````canc indentation="  " foo.can````
+	* ````canc --indentation "  " foo.can````
 
 		preprocess and compile _foo.can_ with 2-space indentation (readable code!) and write the result in _foo.lua_.
 
-	* ````canc foo.can -verbose -print | lua````
+	* ````canc foo.can -d verbose --print | lua````
 
-		preprocess _foo.can_ with _verbose_ set to _true_, compile it and execute it.
+		preprocess _foo.can_ with _verbose_ set to _true_ in the preprocessor, compile it and execute it.
 
-	* ````canc -parse foo.can````
+	* ````canc --parse foo.can````
 
 		checks foo.can for syntaxic errors.
 
@@ -578,7 +597,9 @@ The library can be used standalone through the ```canc``` (for compiling Candran
 
 	Instead of providing a filename, you can use ```-``` to read from standard input.
 
-	Use the ```-h``` or ```-help``` option to display a short help text.
+	Use similar options as `canc`.
+
+	Use the ```-h``` or ```-help``` option to display the help text.
 
 *   ```cancheck```
 
@@ -672,6 +693,7 @@ chunkname = "nil" -- the chunkname used when running code using the helper funct
 rewriteErrors = true -- true to enable error rewriting when loading code using the helper functions. Will wrap the whole code in a xpcall().
 builtInMacros = true -- false to disable built-in macros __*__
 preprocessorEnv = {} -- environment to merge with the preprocessor environement
+import = {} -- list of modules to automatically import in compiled files (using #import("module",{loadLocal=false}))
 ```
 
 You can change the defaults used for these variables in the table `candran.default`.
diff --git a/candran.lua b/candran.lua
index d09d73f..a7038d6 100644
--- a/candran.lua
+++ b/candran.lua
@@ -2220,6 +2220,14 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -3159,6 +3167,39 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -4102,6 +4143,67 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
+targetName = "LuaJIT" -- ./compiler/luajit.can:1
+UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
+return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
+end -- ./compiler/luajit.can:4
+tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
+addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
+return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
+end -- ./compiler/luajit.can:9
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
+addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
+return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
+end -- ./compiler/luajit.can:13
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
+addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
+return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
+end -- ./compiler/luajit.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
+addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
+return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
+end -- ./compiler/luajit.can:21
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
+addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
+return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
+end -- ./compiler/luajit.can:25
+tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
+addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
+return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
+end -- ./compiler/luajit.can:29
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897
@@ -5049,6 +5151,92 @@ end, -- ./compiler/lua54.can:876
 }, { ["__index"] = function(self, key) -- ./compiler/lua54.can:889
 error("don't know how to compile a " .. tostring(key) .. " to " .. targetName) -- ./compiler/lua54.can:890
 end }) -- ./compiler/lua54.can:890
+targetName = "Lua 5.3" -- ./compiler/lua53.can:1
+tags["AttributeId"] = function(t) -- ./compiler/lua53.can:4
+if t[2] then -- ./compiler/lua53.can:5
+error("target " .. targetName .. " does not support variable attributes") -- ./compiler/lua53.can:6
+else -- ./compiler/lua53.can:6
+return t[1] -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+end -- ./compiler/lua53.can:8
+targetName = "Lua 5.2" -- ./compiler/lua52.can:1
+APPEND = function(t, toAppend) -- ./compiler/lua52.can:3
+return "do" .. indent() .. "local " .. var("a") .. ", " .. var("p") .. " = { " .. toAppend .. " }, #" .. t .. "+1" .. newline() .. "for i=1, #" .. var("a") .. " do" .. indent() .. t .. "[" .. var("p") .. "] = " .. var("a") .. "[i]" .. newline() .. "" .. var("p") .. " = " .. var("p") .. " + 1" .. unindent() .. "end" .. unindent() .. "end" -- ./compiler/lua52.can:4
+end -- ./compiler/lua52.can:4
+tags["_opid"]["idiv"] = function(left, right) -- ./compiler/lua52.can:7
+return "math.floor(" .. lua(left) .. " / " .. lua(right) .. ")" -- ./compiler/lua52.can:8
+end -- ./compiler/lua52.can:8
+tags["_opid"]["band"] = function(left, right) -- ./compiler/lua52.can:10
+return "bit32.band(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:11
+end -- ./compiler/lua52.can:11
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/lua52.can:13
+return "bit32.bor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:14
+end -- ./compiler/lua52.can:14
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/lua52.can:16
+return "bit32.bxor(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:17
+end -- ./compiler/lua52.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/lua52.can:19
+return "bit32.lshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:20
+end -- ./compiler/lua52.can:20
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/lua52.can:22
+return "bit32.rshift(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/lua52.can:23
+end -- ./compiler/lua52.can:23
+tags["_opid"]["bnot"] = function(right) -- ./compiler/lua52.can:25
+return "bit32.bnot(" .. lua(right) .. ")" -- ./compiler/lua52.can:26
+end -- ./compiler/lua52.can:26
+targetName = "LuaJIT" -- ./compiler/luajit.can:1
+UNPACK = function(list, i, j) -- ./compiler/luajit.can:3
+return "unpack(" .. list .. (i and (", " .. i .. (j and (", " .. j) or "")) or "") .. ")" -- ./compiler/luajit.can:4
+end -- ./compiler/luajit.can:4
+tags["_opid"]["band"] = function(left, right) -- ./compiler/luajit.can:7
+addRequire("bit", "band", "band") -- ./compiler/luajit.can:8
+return var("band") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:9
+end -- ./compiler/luajit.can:9
+tags["_opid"]["bor"] = function(left, right) -- ./compiler/luajit.can:11
+addRequire("bit", "bor", "bor") -- ./compiler/luajit.can:12
+return var("bor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:13
+end -- ./compiler/luajit.can:13
+tags["_opid"]["bxor"] = function(left, right) -- ./compiler/luajit.can:15
+addRequire("bit", "bxor", "bxor") -- ./compiler/luajit.can:16
+return var("bxor") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:17
+end -- ./compiler/luajit.can:17
+tags["_opid"]["shl"] = function(left, right) -- ./compiler/luajit.can:19
+addRequire("bit", "lshift", "lshift") -- ./compiler/luajit.can:20
+return var("lshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:21
+end -- ./compiler/luajit.can:21
+tags["_opid"]["shr"] = function(left, right) -- ./compiler/luajit.can:23
+addRequire("bit", "rshift", "rshift") -- ./compiler/luajit.can:24
+return var("rshift") .. "(" .. lua(left) .. ", " .. lua(right) .. ")" -- ./compiler/luajit.can:25
+end -- ./compiler/luajit.can:25
+tags["_opid"]["bnot"] = function(right) -- ./compiler/luajit.can:27
+addRequire("bit", "bnot", "bnot") -- ./compiler/luajit.can:28
+return var("bnot") .. "(" .. lua(right) .. ")" -- ./compiler/luajit.can:29
+end -- ./compiler/luajit.can:29
+targetName = "Lua 5.1" -- ./compiler/lua51.can:1
+states["continue"] = {} -- ./compiler/lua51.can:3
+CONTINUE_START = function() -- ./compiler/lua51.can:5
+return "local " .. var("break") .. newline() .. "repeat" .. indent() .. push("continue", var("break")) -- ./compiler/lua51.can:6
+end -- ./compiler/lua51.can:6
+CONTINUE_STOP = function() -- ./compiler/lua51.can:8
+return pop("continue") .. unindent() .. "until true" .. newline() .. "if " .. var("break") .. " then break end" -- ./compiler/lua51.can:9
+end -- ./compiler/lua51.can:9
+tags["Continue"] = function() -- ./compiler/lua51.can:12
+return "break" -- ./compiler/lua51.can:13
+end -- ./compiler/lua51.can:13
+tags["Break"] = function() -- ./compiler/lua51.can:15
+local inContinue = peek("continue") -- ./compiler/lua51.can:16
+if inContinue then -- ./compiler/lua51.can:17
+return inContinue .. " = true" .. newline() .. "break" -- ./compiler/lua51.can:18
+else -- ./compiler/lua51.can:18
+return "break" -- ./compiler/lua51.can:20
+end -- ./compiler/lua51.can:20
+end -- ./compiler/lua51.can:20
+tags["Goto"] = function() -- ./compiler/lua51.can:25
+error("target " .. targetName .. " does not support gotos") -- ./compiler/lua51.can:26
+end -- ./compiler/lua51.can:26
+tags["Label"] = function() -- ./compiler/lua51.can:28
+error("target " .. targetName .. " does not support goto labels") -- ./compiler/lua51.can:29
+end -- ./compiler/lua51.can:29
 local code = lua(ast) .. newline() -- ./compiler/lua54.can:896
 return requireStr .. code -- ./compiler/lua54.can:897
 end -- ./compiler/lua54.can:897

From 56f1901f9b86c25862c4e50e75e81028905e8fdf Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 15:26:33 +0200
Subject: [PATCH 38/43] Fix #set changing global state

---
 candran.can |  10 +-
 candran.lua | 486 ++++++++++++++++++++++++++--------------------------
 2 files changed, 251 insertions(+), 245 deletions(-)

diff --git a/candran.can b/candran.can
index 9dd417c..aee5c57 100644
--- a/candran.can
+++ b/candran.can
@@ -53,7 +53,7 @@ end
 -- @treturn[1] macros registered macros
 -- @treturn[2] nil nil if error
 -- @treturn[2] error string error message
-function candran.preprocess(input, options={})
+function candran.preprocess(input, options={}, _env)
 	options = util.merge(candran.default, options)
 	local macros = {
 		functions = {},
@@ -98,6 +98,7 @@ function candran.preprocess(input, options={})
 	preprocessor ..= "return output"
 
 	-- make preprocessor environement
+	local exportenv = {}
 	local env = util.merge(_G, options.preprocessorEnv)
 	--- Candran library table
 	env.candran = candran
@@ -118,8 +119,9 @@ function candran.preprocess(input, options={})
 
 		margs = util.merge(options, { chunkname = filepath, loadLocal = true, loadPackage = true }, margs)
 		margs.import = {} -- no need for recursive import
-		local modcontent, modmacros = assert(candran.preprocess(f:read("*a"), margs))
+		local modcontent, modmacros, modenv = assert(candran.preprocess(f:read("*a"), margs))
 		macros = util.recmerge(macros, modmacros)
+		for k, v in pairs(modenv) do env[k] = v end
 		f:close()
 
 		-- get module name (ex: module name of path.to.module is module)
@@ -185,7 +187,7 @@ function candran.preprocess(input, options={})
 		end
 	end
 	env.set = function(identifier, value)
-		options.preprocessorEnv[identifier] = value
+		exportenv[identifier] = value
 		env[identifier] = value
 	end
 
@@ -215,7 +217,7 @@ function candran.preprocess(input, options={})
 		return nil, "in preprocessor: "..output
 	end
 
-	return output, macros
+	return output, macros, exportenv
 end
 
 --- Run the compiler
diff --git a/candran.lua b/candran.lua
index a7038d6..4df71ec 100644
--- a/candran.lua
+++ b/candran.lua
@@ -7038,7 +7038,7 @@ candran["default"]["target"] = "lua52" -- candran.can:44
 elseif _VERSION == "Lua 5.3" then -- candran.can:45
 candran["default"]["target"] = "lua53" -- candran.can:46
 end -- candran.can:46
-candran["preprocess"] = function(input, options) -- candran.can:56
+candran["preprocess"] = function(input, options, _env) -- candran.can:56
 if options == nil then options = {} end -- candran.can:56
 options = util["merge"](candran["default"], options) -- candran.can:57
 local macros = { -- candran.can:58
@@ -7082,262 +7082,266 @@ end -- candran.can:94
 end -- candran.can:94
 end -- candran.can:94
 preprocessor = preprocessor .. ("return output") -- candran.can:98
-local env = util["merge"](_G, options["preprocessorEnv"]) -- candran.can:101
-env["candran"] = candran -- candran.can:103
-env["output"] = "" -- candran.can:105
-env["import"] = function(modpath, margs) -- candran.can:112
-if margs == nil then margs = {} end -- candran.can:112
-local filepath = assert(util["search"](modpath, { -- candran.can:113
-"can", -- candran.can:113
-"lua" -- candran.can:113
-}), "No module named \"" .. modpath .. "\"") -- candran.can:113
-local f = io["open"](filepath) -- candran.can:116
-if not f then -- candran.can:117
-error("can't open the module file to import") -- candran.can:117
-end -- candran.can:117
-margs = util["merge"](options, { -- candran.can:119
-["chunkname"] = filepath, -- candran.can:119
-["loadLocal"] = true, -- candran.can:119
-["loadPackage"] = true -- candran.can:119
-}, margs) -- candran.can:119
-margs["import"] = {} -- candran.can:120
-local modcontent, modmacros = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:121
-macros = util["recmerge"](macros, modmacros) -- candran.can:122
-f:close() -- candran.can:123
-local modname = modpath:match("[^%.]+$") -- candran.can:126
+local exportenv = {} -- candran.can:101
+local env = util["merge"](_G, options["preprocessorEnv"]) -- candran.can:102
+env["candran"] = candran -- candran.can:104
+env["output"] = "" -- candran.can:106
+env["import"] = function(modpath, margs) -- candran.can:113
+if margs == nil then margs = {} end -- candran.can:113
+local filepath = assert(util["search"](modpath, { -- candran.can:114
+"can", -- candran.can:114
+"lua" -- candran.can:114
+}), "No module named \"" .. modpath .. "\"") -- candran.can:114
+local f = io["open"](filepath) -- candran.can:117
+if not f then -- candran.can:118
+error("can't open the module file to import") -- candran.can:118
+end -- candran.can:118
+margs = util["merge"](options, { -- candran.can:120
+["chunkname"] = filepath, -- candran.can:120
+["loadLocal"] = true, -- candran.can:120
+["loadPackage"] = true -- candran.can:120
+}, margs) -- candran.can:120
+margs["import"] = {} -- candran.can:121
+local modcontent, modmacros, modenv = assert(candran["preprocess"](f:read("*a"), margs)) -- candran.can:122
+macros = util["recmerge"](macros, modmacros) -- candran.can:123
+for k, v in pairs(modenv) do -- candran.can:124
+env[k] = v -- candran.can:124
+end -- candran.can:124
+f:close() -- candran.can:125
+local modname = modpath:match("[^%.]+$") -- candran.can:128
 env["write"]("-- MODULE " .. modpath .. " --\
 " .. "local function _()\
 " .. modcontent .. "\
 " .. "end\
 " .. (margs["loadLocal"] and ("local %s = _() or %s\
 "):format(modname, modname) or "") .. (margs["loadPackage"] and ("package.loaded[%q] = %s or true\
-"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:135
-end -- candran.can:135
-env["include"] = function(file) -- candran.can:140
-local f = io["open"](file) -- candran.can:141
-if not f then -- candran.can:142
-error("can't open the file " .. file .. " to include") -- candran.can:142
-end -- candran.can:142
-env["write"](f:read("*a")) -- candran.can:143
-f:close() -- candran.can:144
+"):format(modpath, margs["loadLocal"] and modname or "_()") or "") .. "-- END OF MODULE " .. modpath .. " --") -- candran.can:137
+end -- candran.can:137
+env["include"] = function(file) -- candran.can:142
+local f = io["open"](file) -- candran.can:143
+if not f then -- candran.can:144
+error("can't open the file " .. file .. " to include") -- candran.can:144
 end -- candran.can:144
-env["write"] = function(...) -- candran.can:148
+env["write"](f:read("*a")) -- candran.can:145
+f:close() -- candran.can:146
+end -- candran.can:146
+env["write"] = function(...) -- candran.can:150
 env["output"] = env["output"] .. (table["concat"]({ ... }, "\9") .. "\
-") -- candran.can:149
-end -- candran.can:149
-env["placeholder"] = function(name) -- candran.can:153
-if env[name] then -- candran.can:154
-env["write"](env[name]) -- candran.can:155
-end -- candran.can:155
-end -- candran.can:155
-env["define"] = function(identifier, replacement) -- candran.can:158
-local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:160
-if not iast then -- candran.can:161
-return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:162
-end -- candran.can:162
-if type(replacement) == "string" then -- candran.can:165
-local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:166
-if not rast then -- candran.can:167
-return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:168
-end -- candran.can:168
-if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:171
-rast = rast[1][1] -- candran.can:172
-end -- candran.can:172
-replacement = rast -- candran.can:174
-elseif type(replacement) ~= "function" then -- candran.can:175
-error("bad argument #2 to 'define' (string or function expected)") -- candran.can:176
-end -- candran.can:176
-if iast["tag"] == "MacroFunction" then -- candran.can:179
-macros["functions"][iast[1][1]] = { -- candran.can:180
-["args"] = iast[2], -- candran.can:180
-["replacement"] = replacement -- candran.can:180
-} -- candran.can:180
-elseif iast["tag"] == "Id" then -- candran.can:181
-macros["variables"][iast[1]] = replacement -- candran.can:182
-else -- candran.can:182
-error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:184
-end -- candran.can:184
-end -- candran.can:184
-env["set"] = function(identifier, value) -- candran.can:187
-options["preprocessorEnv"][identifier] = value -- candran.can:188
-env[identifier] = value -- candran.can:189
-end -- candran.can:189
-if options["builtInMacros"] then -- candran.can:193
-env["define"]("__STR__(x)", function(x) -- candran.can:194
-return ("%q"):format(x) -- candran.can:194
-end) -- candran.can:194
-local s = require("candran.serpent") -- candran.can:195
-env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:196
-return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:197
-end) -- candran.can:197
-end -- candran.can:197
-local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:202
-if not preprocess then -- candran.can:203
-return nil, "in preprocessor: " .. err -- candran.can:204
-end -- candran.can:204
-preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:207
-if not preprocess then -- candran.can:208
-return nil, "in preprocessor: " .. err -- candran.can:209
-end -- candran.can:209
-local success, output = pcall(preprocess) -- candran.can:213
-if not success then -- candran.can:214
-return nil, "in preprocessor: " .. output -- candran.can:215
-end -- candran.can:215
-return output, macros -- candran.can:218
-end -- candran.can:218
-candran["compile"] = function(input, options, macros) -- candran.can:228
-if options == nil then options = {} end -- candran.can:228
-options = util["merge"](candran["default"], options) -- candran.can:229
-local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:231
-if not ast then -- candran.can:233
-return nil, errmsg -- candran.can:234
-end -- candran.can:234
-return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:237
-end -- candran.can:237
-candran["make"] = function(code, options) -- candran.can:246
-local r, err = candran["preprocess"](code, options) -- candran.can:247
-if r then -- candran.can:248
-r, err = candran["compile"](r, options, err) -- candran.can:249
+") -- candran.can:151
+end -- candran.can:151
+env["placeholder"] = function(name) -- candran.can:155
+if env[name] then -- candran.can:156
+env["write"](env[name]) -- candran.can:157
+end -- candran.can:157
+end -- candran.can:157
+env["define"] = function(identifier, replacement) -- candran.can:160
+local iast, ierr = parser["parsemacroidentifier"](identifier, options["chunkname"]) -- candran.can:162
+if not iast then -- candran.can:163
+return error(("in macro identifier: %s"):format(tostring(ierr))) -- candran.can:164
+end -- candran.can:164
+if type(replacement) == "string" then -- candran.can:167
+local rast, rerr = parser["parse"](replacement, options["chunkname"]) -- candran.can:168
+if not rast then -- candran.can:169
+return error(("in macro replacement: %s"):format(tostring(rerr))) -- candran.can:170
+end -- candran.can:170
+if # rast == 1 and rast[1]["tag"] == "Push" and rast[1]["implicit"] then -- candran.can:173
+rast = rast[1][1] -- candran.can:174
+end -- candran.can:174
+replacement = rast -- candran.can:176
+elseif type(replacement) ~= "function" then -- candran.can:177
+error("bad argument #2 to 'define' (string or function expected)") -- candran.can:178
+end -- candran.can:178
+if iast["tag"] == "MacroFunction" then -- candran.can:181
+macros["functions"][iast[1][1]] = { -- candran.can:182
+["args"] = iast[2], -- candran.can:182
+["replacement"] = replacement -- candran.can:182
+} -- candran.can:182
+elseif iast["tag"] == "Id" then -- candran.can:183
+macros["variables"][iast[1]] = replacement -- candran.can:184
+else -- candran.can:184
+error(("invalid macro type %s"):format(tostring(iast["tag"]))) -- candran.can:186
+end -- candran.can:186
+end -- candran.can:186
+env["set"] = function(identifier, value) -- candran.can:189
+exportenv[identifier] = value -- candran.can:190
+env[identifier] = value -- candran.can:191
+end -- candran.can:191
+if options["builtInMacros"] then -- candran.can:195
+env["define"]("__STR__(x)", function(x) -- candran.can:196
+return ("%q"):format(x) -- candran.can:196
+end) -- candran.can:196
+local s = require("candran.serpent") -- candran.can:197
+env["define"]("__CONSTEXPR__(expr)", function(expr) -- candran.can:198
+return s["block"](assert(candran["load"](expr))(), { ["fatal"] = true }) -- candran.can:199
+end) -- candran.can:199
+end -- candran.can:199
+local preprocess, err = candran["compile"](preprocessor, options) -- candran.can:204
+if not preprocess then -- candran.can:205
+return nil, "in preprocessor: " .. err -- candran.can:206
+end -- candran.can:206
+preprocess, err = util["load"](preprocessor, "candran preprocessor", env) -- candran.can:209
+if not preprocess then -- candran.can:210
+return nil, "in preprocessor: " .. err -- candran.can:211
+end -- candran.can:211
+local success, output = pcall(preprocess) -- candran.can:215
+if not success then -- candran.can:216
+return nil, "in preprocessor: " .. output -- candran.can:217
+end -- candran.can:217
+return output, macros, exportenv -- candran.can:220
+end -- candran.can:220
+candran["compile"] = function(input, options, macros) -- candran.can:230
+if options == nil then options = {} end -- candran.can:230
+options = util["merge"](candran["default"], options) -- candran.can:231
+local ast, errmsg = parser["parse"](input, options["chunkname"]) -- candran.can:233
+if not ast then -- candran.can:235
+return nil, errmsg -- candran.can:236
+end -- candran.can:236
+return require("compiler." .. options["target"])(input, ast, options, macros) -- candran.can:239
+end -- candran.can:239
+candran["make"] = function(code, options) -- candran.can:248
+local r, err = candran["preprocess"](code, options) -- candran.can:249
 if r then -- candran.can:250
-return r -- candran.can:251
-end -- candran.can:251
-end -- candran.can:251
-return r, err -- candran.can:254
-end -- candran.can:254
-local errorRewritingActive = false -- candran.can:257
-local codeCache = {} -- candran.can:258
-candran["loadfile"] = function(filepath, env, options) -- candran.can:261
-local f, err = io["open"](filepath) -- candran.can:262
-if not f then -- candran.can:263
-return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:264
-end -- candran.can:264
-local content = f:read("*a") -- candran.can:266
-f:close() -- candran.can:267
-return candran["load"](content, filepath, env, options) -- candran.can:269
-end -- candran.can:269
-candran["load"] = function(chunk, chunkname, env, options) -- candran.can:274
-if options == nil then options = {} end -- candran.can:274
-options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:275
-local code, err = candran["make"](chunk, options) -- candran.can:277
-if not code then -- candran.can:278
-return code, err -- candran.can:279
-end -- candran.can:279
-codeCache[options["chunkname"]] = code -- candran.can:282
-local f -- candran.can:283
-f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:284
-if f == nil then -- candran.can:289
-return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:290
-end -- candran.can:290
-if options["rewriteErrors"] == false then -- candran.can:293
-return f -- candran.can:294
-else -- candran.can:294
-return function(...) -- candran.can:296
-if not errorRewritingActive then -- candran.can:297
-errorRewritingActive = true -- candran.can:298
-local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:299
-errorRewritingActive = false -- candran.can:300
-if t[1] == false then -- candran.can:301
-error(t[2], 0) -- candran.can:302
-end -- candran.can:302
-return unpack(t, 2) -- candran.can:304
-else -- candran.can:304
-return f(...) -- candran.can:306
-end -- candran.can:306
-end -- candran.can:306
-end -- candran.can:306
-end -- candran.can:306
-candran["dofile"] = function(filename, options) -- candran.can:314
-local f, err = candran["loadfile"](filename, nil, options) -- candran.can:315
-if f == nil then -- candran.can:317
-error(err) -- candran.can:318
-else -- candran.can:318
-return f() -- candran.can:320
-end -- candran.can:320
-end -- candran.can:320
-candran["messageHandler"] = function(message, noTraceback) -- candran.can:326
-message = tostring(message) -- candran.can:327
+r, err = candran["compile"](r, options, err) -- candran.can:251
+if r then -- candran.can:252
+return r -- candran.can:253
+end -- candran.can:253
+end -- candran.can:253
+return r, err -- candran.can:256
+end -- candran.can:256
+local errorRewritingActive = false -- candran.can:259
+local codeCache = {} -- candran.can:260
+candran["loadfile"] = function(filepath, env, options) -- candran.can:263
+local f, err = io["open"](filepath) -- candran.can:264
+if not f then -- candran.can:265
+return nil, ("cannot open %s"):format(tostring(err)) -- candran.can:266
+end -- candran.can:266
+local content = f:read("*a") -- candran.can:268
+f:close() -- candran.can:269
+return candran["load"](content, filepath, env, options) -- candran.can:271
+end -- candran.can:271
+candran["load"] = function(chunk, chunkname, env, options) -- candran.can:276
+if options == nil then options = {} end -- candran.can:276
+options = util["merge"]({ ["chunkname"] = tostring(chunkname or chunk) }, options) -- candran.can:277
+local code, err = candran["make"](chunk, options) -- candran.can:279
+if not code then -- candran.can:280
+return code, err -- candran.can:281
+end -- candran.can:281
+codeCache[options["chunkname"]] = code -- candran.can:284
+local f -- candran.can:285
+f, err = util["load"](code, ("=%s(%s)"):format(options["chunkname"], "compiled candran"), env) -- candran.can:286
+if f == nil then -- candran.can:291
+return f, "candran unexpectedly generated invalid code: " .. err -- candran.can:292
+end -- candran.can:292
+if options["rewriteErrors"] == false then -- candran.can:295
+return f -- candran.can:296
+else -- candran.can:296
+return function(...) -- candran.can:298
+if not errorRewritingActive then -- candran.can:299
+errorRewritingActive = true -- candran.can:300
+local t = { xpcall(f, candran["messageHandler"], ...) } -- candran.can:301
+errorRewritingActive = false -- candran.can:302
+if t[1] == false then -- candran.can:303
+error(t[2], 0) -- candran.can:304
+end -- candran.can:304
+return unpack(t, 2) -- candran.can:306
+else -- candran.can:306
+return f(...) -- candran.can:308
+end -- candran.can:308
+end -- candran.can:308
+end -- candran.can:308
+end -- candran.can:308
+candran["dofile"] = function(filename, options) -- candran.can:316
+local f, err = candran["loadfile"](filename, nil, options) -- candran.can:317
+if f == nil then -- candran.can:319
+error(err) -- candran.can:320
+else -- candran.can:320
+return f() -- candran.can:322
+end -- candran.can:322
+end -- candran.can:322
+candran["messageHandler"] = function(message, noTraceback) -- candran.can:328
+message = tostring(message) -- candran.can:329
 if not noTraceback and not message:match("\
 stack traceback:\
-") then -- candran.can:328
-message = debug["traceback"](message, 2) -- candran.can:329
-end -- candran.can:329
+") then -- candran.can:330
+message = debug["traceback"](message, 2) -- candran.can:331
+end -- candran.can:331
 return message:gsub("(\
 ?%s*)([^\
-]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:331
-line = tonumber(line) -- candran.can:332
-local originalFile -- candran.can:334
-local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:335
-if strName then -- candran.can:336
-if codeCache[strName] then -- candran.can:337
-originalFile = codeCache[strName] -- candran.can:338
-source = strName -- candran.can:339
-end -- candran.can:339
-else -- candran.can:339
-do -- candran.can:342
-local fi -- candran.can:342
-fi = io["open"](source, "r") -- candran.can:342
-if fi then -- candran.can:342
-originalFile = fi:read("*a") -- candran.can:343
-fi:close() -- candran.can:344
-end -- candran.can:344
-end -- candran.can:344
-end -- candran.can:344
-if originalFile then -- candran.can:348
-local i = 0 -- candran.can:349
+]-)%:(%d+)%:", function(indentation, source, line) -- candran.can:333
+line = tonumber(line) -- candran.can:334
+local originalFile -- candran.can:336
+local strName = source:match("^(.-)%(compiled candran%)$") -- candran.can:337
+if strName then -- candran.can:338
+if codeCache[strName] then -- candran.can:339
+originalFile = codeCache[strName] -- candran.can:340
+source = strName -- candran.can:341
+end -- candran.can:341
+else -- candran.can:341
+do -- candran.can:344
+local fi -- candran.can:344
+fi = io["open"](source, "r") -- candran.can:344
+if fi then -- candran.can:344
+originalFile = fi:read("*a") -- candran.can:345
+fi:close() -- candran.can:346
+end -- candran.can:346
+end -- candran.can:346
+end -- candran.can:346
+if originalFile then -- candran.can:350
+local i = 0 -- candran.can:351
 for l in (originalFile .. "\
 "):gmatch("([^\
 ]*)\
-") do -- candran.can:350
-i = i + 1 -- candran.can:351
-if i == line then -- candran.can:352
-local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:353
-if lineMap then -- candran.can:354
-if extSource ~= source then -- candran.can:355
-return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:356
-else -- candran.can:356
-return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:358
-end -- candran.can:358
-end -- candran.can:358
-break -- candran.can:361
-end -- candran.can:361
-end -- candran.can:361
-end -- candran.can:361
-end) -- candran.can:361
-end -- candran.can:361
-candran["searcher"] = function(modpath) -- candran.can:369
-local filepath = util["search"](modpath, { "can" }) -- candran.can:370
-if not filepath then -- candran.can:371
-if _VERSION == "Lua 5.4" then -- candran.can:372
-return "no candran file in package.path" -- candran.can:373
-else -- candran.can:373
+") do -- candran.can:352
+i = i + 1 -- candran.can:353
+if i == line then -- candran.can:354
+local extSource, lineMap = l:match(".*%-%- (.-)%:(%d+)$") -- candran.can:355
+if lineMap then -- candran.can:356
+if extSource ~= source then -- candran.can:357
+return indentation .. extSource .. ":" .. lineMap .. "(" .. extSource .. ":" .. line .. "):" -- candran.can:358
+else -- candran.can:358
+return indentation .. extSource .. ":" .. lineMap .. "(" .. line .. "):" -- candran.can:360
+end -- candran.can:360
+end -- candran.can:360
+break -- candran.can:363
+end -- candran.can:363
+end -- candran.can:363
+end -- candran.can:363
+end) -- candran.can:363
+end -- candran.can:363
+candran["searcher"] = function(modpath) -- candran.can:371
+local filepath = util["search"](modpath, { "can" }) -- candran.can:372
+if not filepath then -- candran.can:373
+if _VERSION == "Lua 5.4" then -- candran.can:374
+return "no candran file in package.path" -- candran.can:375
+else -- candran.can:375
 return "\
-\9no candran file in package.path" -- candran.can:375
-end -- candran.can:375
-end -- candran.can:375
-return function(modpath) -- candran.can:378
-local r, s = candran["loadfile"](filepath) -- candran.can:379
-if r then -- candran.can:380
-return r(modpath, filepath) -- candran.can:381
-else -- candran.can:381
+\9no candran file in package.path" -- candran.can:377
+end -- candran.can:377
+end -- candran.can:377
+return function(modpath) -- candran.can:380
+local r, s = candran["loadfile"](filepath) -- candran.can:381
+if r then -- candran.can:382
+return r(modpath, filepath) -- candran.can:383
+else -- candran.can:383
 error(("error loading candran module '%s' from file '%s':\
-\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:383
-end -- candran.can:383
-end, filepath -- candran.can:385
+\9%s"):format(modpath, filepath, tostring(s)), 0) -- candran.can:385
 end -- candran.can:385
-candran["setup"] = function() -- candran.can:389
-local searchers = (function() -- candran.can:390
-if _VERSION == "Lua 5.1" then -- candran.can:390
-return package["loaders"] -- candran.can:391
-else -- candran.can:391
-return package["searchers"] -- candran.can:393
-end -- candran.can:393
-end)() -- candran.can:393
-for _, s in ipairs(searchers) do -- candran.can:396
-if s == candran["searcher"] then -- candran.can:397
-return candran -- candran.can:398
-end -- candran.can:398
-end -- candran.can:398
-table["insert"](searchers, 1, candran["searcher"]) -- candran.can:402
-return candran -- candran.can:403
-end -- candran.can:403
-return candran -- candran.can:406
+end, filepath -- candran.can:387
+end -- candran.can:387
+candran["setup"] = function() -- candran.can:391
+local searchers = (function() -- candran.can:392
+if _VERSION == "Lua 5.1" then -- candran.can:392
+return package["loaders"] -- candran.can:393
+else -- candran.can:393
+return package["searchers"] -- candran.can:395
+end -- candran.can:395
+end)() -- candran.can:395
+for _, s in ipairs(searchers) do -- candran.can:398
+if s == candran["searcher"] then -- candran.can:399
+return candran -- candran.can:400
+end -- candran.can:400
+end -- candran.can:400
+table["insert"](searchers, 1, candran["searcher"]) -- candran.can:404
+return candran -- candran.can:405
+end -- candran.can:405
+return candran -- candran.can:408

From 7b0563b9dce20dc1a915bd201551d5cb6cbb3180 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 15:30:23 +0200
Subject: [PATCH 39/43] Fix can handling of --import

---
 bin/can | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/can b/bin/can
index 8a0fc97..6b62a3f 100644
--- a/bin/can
+++ b/bin/can
@@ -118,18 +118,20 @@ else
 	print("Candran " .. candran.VERSION .. ", targeting " .. candran.default.target)
 	candran.setup()
 
-	-- only perform static imports once, on startup
+	-- check errors in static import
+	-- note: static imports will be run every line, as preprocessors macros and constants aren't kept between compilations...
 	do
 		local r, e = candran.load("local _", "stdin")
 		if not r then
 			print("In static import: "..e)
+			candran.default.import = {}
 		else
 			r, e = pcall(r)
 			if not r then
 				print("In static import: "..e)
+				candran.default.import = {}
 			end
 		end
-		candran.default.import = {}
 	end
 
 	-- REPL loop

From f0cacd6f08132f9a46fe1358c0d7f4af44da9161 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 18 Jun 2021 15:33:04 +0200
Subject: [PATCH 40/43] Update tests

---
 test/test.lua | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/test.lua b/test/test.lua
index 531df53..e01a4cf 100644
--- a/test/test.lua
+++ b/test/test.lua
@@ -127,7 +127,7 @@ return a
 
 test("preprocessor placeholder function", [[
 #placeholder('foo')
-]], 5, { foo = "return 5" })
+]], 5, { preprocessorEnv = { foo = "return 5" } })
 
 test("preprocessor options", [[
 #if not foo == "sky" then

From 7131c5c8b1d85049ebe5ac24e984f0a2fee2a155 Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Wed, 23 Jun 2021 20:54:02 +0200
Subject: [PATCH 41/43] Candran 1.0.0

---
 README.md                                        | 16 ++++++++--------
 candran.can                                      |  2 +-
 candran.lua                                      |  2 +-
 ....14.0-1.rockspec => candran-1.0.0-1.rockspec} |  7 ++++---
 rockspec/candran-scm-1.rockspec                  |  3 +--
 5 files changed, 15 insertions(+), 15 deletions(-)
 rename rockspec/{candran-0.14.0-1.rockspec => candran-1.0.0-1.rockspec} (92%)

diff --git a/README.md b/README.md
index 78adb83..c708f6b 100644
--- a/README.md
+++ b/README.md
@@ -6,19 +6,19 @@ Unlike Moonscript, Candran tries to stay close to the Lua syntax, and existing L
 
 ````lua
 #import("lib.thing") -- static import
-#local debug = false
+#local DEBUG = false
 
-#if debug then
-#	define("log(...)", "print(...)")
+#if DEBUG then
+#	define("log(...)", "print(...)") -- macro: calls to log() will be replaced with print() in compiled code
 #else
-#	define("log(...)", "") -- remove calls to log from the compiled code when debug is true
+#	define("log(...)", "") -- remove calls to log from the compiled code when DEBUG is true
 #end
 log("example macro") -- preprocessor macros
 
 local function calculate(toadd=25) -- default parameters
 	local result = thing.do()
 	result += toadd
-	#if debug then -- preprocessor conditionals
+	#if DEBUG then -- preprocessor conditionals
 		print("Did something")
 	#end
 	return result
@@ -83,7 +83,7 @@ Candran is released under the MIT License (see ```LICENSE``` for details).
 #### Quick setup
 Install Candran automatically using LuaRocks: ```sudo luarocks install candran```.
 
-Or manually install LPegLabel (```luarocks install lpeglabel```, version 1.5 or above), download this repository and use Candran through the scripts in ```bin/``` or use it as a library with the self-contained ```candran.lua```.
+Or manually install LPegLabel and argparse (```luarocks install lpeglabel```, version 1.5 or above, and ```luarocks install argparse```, version 0.7 or above), download this repository and use Candran through the scripts in ```bin/``` or use it as a library with the self-contained ```candran.lua```.
 
 You can optionally install lua-linenoise (```luarocks install linenoise```, version 0.9 or above) for an improved REPL, and luacheck (```luarocks install luacheck```, version 0.23.0 or above) to be able to use ```cancheck```. Installing Candran using LuaRocks will install linenoise and luacheck by default.
 
@@ -449,7 +449,7 @@ Will output ````print("Bonjour")```` or ````print("Hello")```` depending of the
 The preprocessor has access to the following variables:
 * ````candran````: the Candran library table.
 * ````output````: the current preprocessor output string. Can be redefined at any time. If you want to write something in the preprocessor output, it is preferred to use `write(...)` instead of directly modifying `output`.
-* ````import(module[, [options])````: a function which import a module. This should be equivalent to using _require(module)_ in the Candran code, except the module will be embedded in the current file. _options_ is an optional preprocessor arguments table for the imported module (current preprocessor arguments will be inherited). Options specific to this function:
+* ````import(module[, [options])````: a function which import a module. This should be equivalent to using _require(module)_ in the Candran code, except the module will be embedded in the current file. Macros and preprocessor constants defined in the imported file (using `define` and `set`) will be made available in the current file. _options_ is an optional preprocessor arguments table for the imported module (current preprocessor arguments will be inherited). Options specific to this function:
 	* ```loadLocal``` (default ```true```): ```true``` to automatically load the module into a local variable (i.e. ```local thing = require("module.thing")```)
 	* ```loadPackage``` (default ```true```): ```true``` to automatically load the module into the loaded packages table (so it will be available for following ```require("module")``` calls).
 * ````include(filename)````: a function which copy the contents of the file _filename_ to the output.
@@ -616,7 +616,7 @@ local f = io.open("foo.can") -- read the file foo.can
 local contents = f:read("*a")
 f:close()
 
-local compiled = candran.make(contents, { debug = true }) -- compile foo.can with debug set to true
+local compiled = candran.make(contents, { DEBUG = true }) -- compile foo.can with DEBUG set to true
 
 load(compiled)() -- execute!
 
diff --git a/candran.can b/candran.can
index aee5c57..78a7be4 100644
--- a/candran.can
+++ b/candran.can
@@ -1,5 +1,5 @@
 local candran = {
-	VERSION = "0.14.0"
+	VERSION = "1.0.0"
 }
 package.loaded["candran"] = candran
 
diff --git a/candran.lua b/candran.lua
index 4df71ec..f3945ad 100644
--- a/candran.lua
+++ b/candran.lua
@@ -1,4 +1,4 @@
-local candran = { ["VERSION"] = "0.14.0" } -- candran.can:2
+local candran = { ["VERSION"] = "1.0.0" } -- candran.can:2
 package["loaded"]["candran"] = candran -- candran.can:4
 local function _() -- candran.can:7
 local candran = require("candran") -- ./candran/util.can:1
diff --git a/rockspec/candran-0.14.0-1.rockspec b/rockspec/candran-1.0.0-1.rockspec
similarity index 92%
rename from rockspec/candran-0.14.0-1.rockspec
rename to rockspec/candran-1.0.0-1.rockspec
index dc82cd2..d291e73 100644
--- a/rockspec/candran-0.14.0-1.rockspec
+++ b/rockspec/candran-1.0.0-1.rockspec
@@ -2,7 +2,7 @@ rockspec_format = "3.0"
 
 package = "candran"
 
-version = "0.14.0-1"
+version = "1.0.0-1"
 
 description = {
 	summary = "A simple Lua dialect and preprocessor.",
@@ -19,14 +19,15 @@ description = {
 
 source = {
 	url = "git://github.com/Reuh/candran",
-	tag = "v0.14.0"
+	tag = "v1.0.0"
 }
 
 dependencies = {
 	"lua >= 5.1",
 	"lpeglabel >= 1.5.0",
 	"linenoise >= 0.9",
-	"luacheck >= 0.23.0"
+	"luacheck >= 0.23.0",
+	"argparse >= 0.7.0"
 }
 
 build = {
diff --git a/rockspec/candran-scm-1.rockspec b/rockspec/candran-scm-1.rockspec
index 71ce00b..27d40b5 100644
--- a/rockspec/candran-scm-1.rockspec
+++ b/rockspec/candran-scm-1.rockspec
@@ -18,8 +18,7 @@ description = {
 }
 
 source = {
-	url = "git://github.com/Reuh/candran",
-	branch = "argparse"
+	url = "git://github.com/Reuh/candran"
 }
 
 dependencies = {

From 1e118381f8276fe66a2cad02f1b9f4535e7e253e Mon Sep 17 00:00:00 2001
From: Reuh <fildadut@reuh.eu>
Date: Fri, 24 Dec 2021 00:05:53 +0100
Subject: [PATCH 42/43] Ignore shadowing warning in cancheck for temporary
 Candran variables

---
 bin/cancheck | 1 +
 1 file changed, 1 insertion(+)

diff --git a/bin/cancheck b/bin/cancheck
index d9d3dcc..1d3950f 100644
--- a/bin/cancheck
+++ b/bin/cancheck
@@ -181,6 +181,7 @@ local oldRunner = runner.new
 function runner.new(opts)
 	-- Disable max line length checking (it is compiled code...)
 	opts.max_line_length = false
+	opts.ignore = { "4[23]1/__CAN_.*" }
 	return oldRunner(opts)
 end
 

From 8d9a79c47dc7ad33bb2faaac6ff9df62e0a19cec Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89tienne=20Fildadut?= <fildadut@reuh.eu>
Date: Sun, 22 Dec 2024 16:29:26 +0100
Subject: [PATCH 43/43] Update README.md

---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index c708f6b..76bd1bd 100644
--- a/README.md
+++ b/README.md
@@ -97,6 +97,7 @@ Most editors should be able to use their existing Lua support for Candran code.
 	* [sublime-candran](https://github.com/Reuh/sublime-candran) support the full Candran syntax
 	* [SublimeLinter-cancheck-contrib](https://github.com/Reuh/SublimeLinter-contrib-cancheck) SublimeLinter plugin for Candran using ```cancheck```
 	* [SublimeLinter-candran-contrib](https://github.com/Reuh/SublimeLinter-contrib-candran) SublimeLinter plugin for Candran using ```canc -parse``` (only checks for syntaxic errors, no linting)
+* **VS Code**: [vscode-candran](https://github.com/Reuh/vscode-candran) basic support for the Candran syntax
 * **Atom**: [language-candran](https://atom.io/packages/language-candran) support the full Candran syntax
 
 For linting, if your editor support [luacheck](https://github.com/luarocks/luacheck), you should be able to replace it with ```cancheck``` (in this repository ```bin/cancheck```, or installed automatically if Candran was installed using LuaRocks), which is a wrapper around luacheck that monkey-patch it to support Candran.