moonscript/tests/outputs/funcs.lua

local x
x = function()
  return print(what)
end
local _
_ = function() end
_ = function()
  return function()
    return function() end
  end
end
go(to(the(barn)))
open(function()
  return the(function()
    return door
  end)
end)
open(function()
  the(door)
  local hello
  hello = function()
    return my(func)
  end
end)
local h
h = function()
  return hi
end
eat(function() end, world);
(function() end)()
x = function(...) end
hello()
hello.world()
_ = hello().something
_ = what()["ofefe"]
what()(the()(heck()))
_ = function(a, b, c, d, e) end
_ = function(a, a, a, a, a)
  return print(a)
end
_ = function(x)
  if x == nil then
    x = 23023
  end
end
_ = function(x)
  if x == nil then
    x = function(y)
      if y == nil then
        y = function() end
      end
    end
  end
end
_ = function(x)
  if x == nil then
    if something then
      x = yeah
    else
      x = no
    end
  end
end
local something
something = function(hello, world)
  if hello == nil then
    hello = 100
  end
  if world == nil then
    world = function(x)
      if x == nil then
        x = [[yeah cool]]
      end
      return print("eat rice")
    end
  end
  return print(hello)
end
_ = function(self, x, y) end
_ = function(self, x, y)
  self.x, self.y = x, y
end
_ = function(self, x)
  if x == nil then
    x = 1
  end
end
_ = function(self, x, y, z)
  if x == nil then
    x = 1
  end
  if z == nil then
    z = "hello world"
  end
  self.x, self.z = x, z
end
x(function() end)
y(function()
  return 1
end)
z(function()
  return 1, "hello", "world"
end)
k(function()
  if yes then
    return 
  else
    return 
  end
end)
return function()
  if something then
    return real_name
  end
end