Fix bugs in Lua scripts surfaced by Luacheck

Author: alerque

data/creole.lua

@@ -52,7 +52,7 @@ local function ListItem(lev, ch)
 end
 
 -- Grammar
-G = P{ "Doc",
+local grammar = P{ "Doc",
   Doc = Ct(V"Block"^0)
       / pandoc.Pandoc ;
   Block = blankline^0
@@ -185,6 +185,6 @@ G = P{ "Doc",
          / pandoc.Strong ;
 }
 
-function Reader(input, reader_options)
-  return lpeg.match(G, tostring(input))
+function Reader(input, _)
+  return lpeg.match(grammar, tostring(input))
 end

pandoc-lua-engine/test/lua/module/pandoc-list.lua

@@ -116,18 +116,18 @@ return {
 
   group 'new' {
     test('make table usable as list', function ()
-      local test = List:new{1, 1, 2, 3, 5}
+      local out = List:new{1, 1, 2, 3, 5}
       assert.are_same(
         {1, 1, 4, 9, 25},
-        test:map(function (x) return x^2 end)
+        out:map(function (x) return x^2 end)
       )
     end),
     test('return empty list if no argument is given', function ()
        assert.are_same({}, List:new())
     end),
     test('metatable of result is pandoc.List', function ()
-      local test = List:new{5}
-      assert.are_equal(List, getmetatable(test))
+      local out = List:new{5}
+      assert.are_equal(List, getmetatable(out))
     end)
   },
 

tools/moduledeps.lua

@@ -14,12 +14,12 @@ end
 
 if not (mode == "tree" or mode == "transitive") then
   io.write("Usage: lua moduledeps (tree|transitive) modulename\n")
-  io.exit(1)
+  os.exit(1)
 end
 
 if #roots == 0 then
   io.write("Usage: lua moduledeps modulename+\n")
-  io.exit(1)
+  os.exit(1)
 end
 
 for line in lines do

tools/update-lua-module-docs.lua

@@ -198,10 +198,10 @@ local function render_type (name, level, modulename)
   local methods = Blocks{}
   if next(metatable.methods) then
     local attr = {'type-' .. id .. '-methods'}
-    methods:insert(Header(level + 1, "Methods", mattr))
-    for name, method in sorted(metatable.methods) do
-      -- attr = {'type-' .. modulename .. '.' .. name .. '.' .. name}
-      -- methods:insert(Header(level + 2, name, attr))
+    methods:insert(Header(level + 1, "Methods", attr))
+    for propname, method in sorted(metatable.methods) do
+      -- attr = {'type-' .. modulename .. '.' .. name .. '.' .. propname}
+      -- methods:insert(Header(level + 2, propname, attr))
       methods:extend(render_function(documentation(method), level+2, id))
     end
   end