extract class name from assign statement if anonymous class is being assigned

moonscript/transform.lua

@@ -463,24 +463,26 @@ Statement = Transformer({
         t = ntype(value)
       end
       if types.cascading[t] then
+        local ret
+        ret = function(stm)
+          if types.is_value(stm) then
+            return {
+              "assign",
+              names,
+              {
+                stm
+              }
+            }
+          else
+            return stm
+          end
+        end
         transformed = build.group({
           {
             "declare",
             names
           },
-          self.transform.statement(value, function(stm)
-            if types.is_value(stm) then
-              return {
-                "assign",
-                names,
-                {
-                  stm
-                }
-              }
-            else
-              return stm
-            end
-          end)
+          self.transform.statement(value, ret, node)
         })
       end
     end
@@ -897,7 +899,7 @@ Statement = Transformer({
       if_stm
     })
   end,
-  class = function(self, node, ret)
+  class = function(self, node, ret, parent_assign)
     local _, name, parent_val, body = unpack(node)
     local statements = { }
     local properties = { }
@@ -974,10 +976,10 @@ Statement = Transformer({
       smart_node(constructor)
       constructor.arrow = "fat"
     end
-    local real_name
-    local _exp_0 = ntype(name)
+    local real_name = name or parent_assign and parent_assign[2][1]
+    local _exp_0 = ntype(real_name)
     if "chain" == _exp_0 then
-      local last = name[#name]
+      local last = real_name[#real_name]
       local _exp_1 = ntype(last)
       if "dot" == _exp_1 then
         real_name = {
@@ -996,7 +998,7 @@ Statement = Transformer({
       real_name = {
         "string",
         '"',
-        name
+        real_name
       }
     end
     local cls = build.table({

moonscript/transform.moon

@@ -209,13 +209,15 @@ Statement = Transformer {
         t = ntype value
 
       if types.cascading[t]
+        ret = (stm) ->
+          if types.is_value stm
+            {"assign", names, {stm}}
+          else
+            stm
+
         build.group {
           {"declare", names}
-          @transform.statement value, (stm) ->
-            if types.is_value stm
-              {"assign", names, {stm}}
-            else
-              stm
+          @transform.statement value, ret, node
         }
 
     transformed or node
@@ -456,7 +458,7 @@ Statement = Transformer {
       if_stm
     }
 
-  class: (node, ret) =>
+  class: (node, ret, parent_assign) =>
     _, name, parent_val, body = unpack node
 
     -- split apart properties and statements
@@ -505,9 +507,10 @@ Statement = Transformer {
       smart_node constructor
       constructor.arrow = "fat"
 
-    real_name = switch ntype(name)
+    real_name = name or parent_assign and parent_assign[2][1]
+    real_name = switch ntype real_name
       when "chain"
-        last = name[#name]
+        last = real_name[#real_name]
         switch ntype last
           when "dot"
             {"string", '"', last[2]}
@@ -518,7 +521,7 @@ Statement = Transformer {
       when "nil"
         "nil"
       else
-        {"string", '"', name}
+        {"string", '"', real_name}
 
     cls = build.table {
       {"__init", constructor}

tests/outputs/class.lua

@@ -768,7 +768,7 @@ do
       end
     end,
     __base = _base_0,
-    __name = nil,
+    __name = "a",
     __parent = _parent_0
   }, {
     __index = function(cls, name)
@@ -885,7 +885,7 @@ do
       end
     end,
     __base = _base_0,
-    __name = nil,
+    __name = "d",
     __parent = _parent_0
   }, {
     __index = function(cls, name)