Fixed compatibility thing with NomsuCode::from

compatibility/4.10.12.7.nom

@@ -38,7 +38,7 @@ upgrade action (%k = %v for %i in %start to %stop via %step) to "4.10.12.7" as {
     : for %i in %start to %stop by %step: add %k = %v
 
 upgrade action (parse %text from %filename) to "4.10.12.7" as (..)
-    (%NomsuCode (%Source %filename 1 (size of %text))) parsed
+    (NomsuCode from (Source %filename 1 (size of %text)) %text) parsed
 
 upgrade action (% as lua statements) to "4.10.12.7" as (% as lua)
 upgrade action (compile error at %pos %err hint %hint) to "4.10.12.7" as (..)

nomsu_environment.lua

@@ -104,6 +104,12 @@ local nomsu_environment = Importer({
   LuaCode = LuaCode,
   NomsuCode = NomsuCode,
   Source = Source,
+  LuaCode_from = (function(src, ...)
+    return LuaCode:from(src, ...)
+  end),
+  NomsuCode_from = (function(src, ...)
+    return NomsuCode:from(src, ...)
+  end),
   SOURCE_MAP = Importer({ }),
   _1_as_nomsu = tree_to_nomsu,
   _1_as_inline_nomsu = tree_to_inline_nomsu,

nomsu_environment.moon

@@ -48,6 +48,8 @@ nomsu_environment = Importer{
     lpeg:lpeg, re:re, Files:Files,
     :SyntaxTree, TESTS: Dict({}), globals: Dict({}),
     :LuaCode, :NomsuCode, :Source
+    LuaCode_from: ((src, ...)-> LuaCode\from(src, ...)),
+    NomsuCode_from: ((src, ...)-> NomsuCode\from(src, ...)),
     SOURCE_MAP: Importer({})
 
     -- Nomsu functions:

tools/autoformat.nom

@@ -19,7 +19,7 @@ for %path in %args:
     for file %filename in %path:
         unless (%filename::matches "%.nom$"): do next %filename
         %contents = (read file %filename)
-        %code = (%NomsuCode::from (Source %filename 1 (size of %contents)) %contents)
+        %code = (NomsuCode from (Source %filename 1 (size of %contents)) %contents)
         %tree = (%code parsed)
         %formatted = ((%tree as nomsu)::text)
         if %inplace:

tools/find_action.nom

@@ -16,7 +16,7 @@ for %path in %files:
     for file %filename in %path:
         unless (%filename::matches "%.nom$"): do next %filename
         %file = (read file %filename)
-        %code = (%NomsuCode (%Source %filename 1 (size of %file)) %file)
+        %code = (NomsuCode from (%Source %filename 1 (size of %file)) %file)
         try:
             %tree = (%code parsed)
         ..and if it barfs %msg:

tools/upgrade.nom

@@ -41,7 +41,7 @@ for %path in %args:
     for file %filename in %path:
         unless (%filename::matches "%.nom$"): do next %filename
         %file = (read file %filename)
-        %code = (%NomsuCode::from (%Source %filename 1 (size of %file)) %file)
+        %code = (NomsuCode from (%Source %filename 1 (size of %file)) %file)
         %tree = (%code parsed)
         %uptree = (..)
             %tree upgraded from (%start_version or (%tree.version or (Nomsu version))) to \