prevent more anonymous functions generating from `const`, `close` decl.

1 files changed, 35 insertions, 35 deletions

diff --git a/spec/outputs/compile_doc.lua b/spec/outputs/compile_doc.lua
index 29f4aeb..3781fb9 100644
--- a/spec/outputs/compile_doc.lua
+++ b/spec/outputs/compile_doc.lua
@@ -12,42 +12,42 @@ local _list_0 = {
 for _index_0 = 1, #_list_0 do
         local _des_0 = _list_0[_index_0]
         local compiledFile, docFile = _des_0[1], _des_0[2]
-        local input <close> = (function()
-                local _with_0 = io.open(docFile)
-                if _with_0 ~= nil then
-                        local to_lua = require("yue").to_lua
-                        local text = _with_0:read("*a")
-                        local codes = { }
-                        for code in text:gmatch("```moonscript(.-)```") do
-                                local result, err = to_lua(code, {
-                                        implicit_return_root = false,
-                                        reserve_line_number = false
-                                })
-                                if result then
-                                        codes[#codes + 1] = result
-                                elseif not err:match("macro exporting module only accepts macro definition") then
-                                        print(err)
-                                        os.exit(1)
-                                end
+        local input
+        local _with_0 = io.open(docFile)
+        if _with_0 ~= nil then
+                local to_lua = require("yue").to_lua
+                local text = _with_0:read("*a")
+                local codes = { }
+                for code in text:gmatch("```moonscript(.-)```") do
+                        local result, err = to_lua(code, {
+                                implicit_return_root = false,
+                                reserve_line_number = false
+                        })
+                        if result then
+                                codes[#codes + 1] = result
+                        elseif not err:match("macro exporting module only accepts macro definition") then
+                                print(err)
+                                os.exit(1)
                         end
-                        for code in text:gmatch("<pre>(.-)</pre>") do
-                                local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), {
-                                        implicit_return_root = false,
-                                        reserve_line_number = false
-                                })
-                                if result then
-                                        codes[#codes + 1] = result
-                                else
-                                        print(err)
-                                        os.exit(1)
-                                end
+                end
+                for code in text:gmatch("<pre>(.-)</pre>") do
+                        local result, err = to_lua(code:gsub("&lt;", "<"):gsub("&gt;", ">"), {
+                                implicit_return_root = false,
+                                reserve_line_number = false
+                        })
+                        if result then
+                                codes[#codes + 1] = result
+                        else
+                                print(err)
+                                os.exit(1)
                         end
-                        local output <close> = (function()
-                                local _with_1 = io.open(tostring(outputFolder) .. "/" .. tostring(compiledFile), "w+")
-                                _with_1:write(table.concat(codes))
-                                return _with_1
-                        end)()
                 end
-                return _with_0
-        end)()
+                local output
+                local _with_1 = io.open(tostring(outputFolder) .. "/" .. tostring(compiledFile), "w+")
+                _with_1:write(table.concat(codes))
+                output = _with_1
+                local _close_0 <close> = output
+        end
+        input = _with_0
+        local _close_0 <close> = input
 end