Tweaks and tidying.

nomsu_compiler.lua

@@ -68,11 +68,6 @@ compile_error = function(source, err_msg, hint)
   })
   return error(err_str, 0)
 end
-local tree_to_nomsu, tree_to_inline_nomsu
-do
-  local _obj_0 = require("nomsu_decompiler")
-  tree_to_nomsu, tree_to_inline_nomsu = _obj_0.tree_to_nomsu, _obj_0.tree_to_inline_nomsu
-end
 local math_expression = re.compile([[ (([*/^+-] / [0-9]+) " ")* [*/^+-] !. ]])
 local MAX_LINE = 80
 local compile = setmetatable({
@@ -434,7 +429,7 @@ local compile = setmetatable({
     elseif "Number" == _exp_0 then
       return LuaCode:from(tree.source, tostring(tree[1]))
     elseif "Var" == _exp_0 then
-      return LuaCode:from(tree.source, (tree[1]):as_lua_id())
+      return LuaCode:from(tree.source, (concat(tree, " ")):as_lua_id())
     elseif "FileChunks" == _exp_0 then
       return error("Can't convert FileChunks to a single block of lua, since each chunk's " .. "compilation depends on the earlier chunks")
     elseif "Comment" == _exp_0 then

nomsu_compiler.moon

@@ -41,7 +41,6 @@ compile_error = (source, err_msg, hint=nil)->
         start:source.start, stop:source.stop, filename:source.filename
     }
     error(err_str, 0)
-{:tree_to_nomsu, :tree_to_inline_nomsu} = require "nomsu_decompiler"
 
 -- This is a bit of a hack, but this code handles arbitrarily complex
 -- math expressions like 2*x + 3^2 without having to define a single
@@ -322,7 +321,7 @@ compile = setmetatable({
                 return LuaCode\from(tree.source, tostring(tree[1]))
 
             when "Var"
-                return LuaCode\from(tree.source, (tree[1])\as_lua_id!)
+                return LuaCode\from(tree.source, (concat(tree, " "))\as_lua_id!)
 
             when "FileChunks"
                 error("Can't convert FileChunks to a single block of lua, since each chunk's "..

nomsu_environment.lua

@@ -30,10 +30,21 @@ for version = 1, 999 do
   local peg_file
   if package.nomsupath then
     for path in package.nomsupath:gmatch("[^;]+") do
+      local _continue_0 = false
+      repeat
+        if path == "." and package.nomsupath ~= "." then
+          _continue_0 = true
+          break
+        end
         peg_file = io.open(path .. "/nomsu." .. tostring(version) .. ".peg")
         if peg_file then
           break
         end
+        _continue_0 = true
+      until true
+      if not _continue_0 then
+        break
+      end
     end
   else
     peg_file = io.open("nomsu." .. tostring(version) .. ".peg")

nomsu_environment.moon

@@ -20,6 +20,7 @@ for version=1,999
     local peg_file
     if package.nomsupath
         for path in package.nomsupath\gmatch("[^;]+")
+            continue if path == "." and package.nomsupath != "."
             peg_file = io.open(path.."/nomsu.#{version}.peg")
             break if peg_file
     else