@@variables should be assignable

Author: leafo

moonscript/parse.lua

@@ -165,12 +165,12 @@ local function flatten_or_mark(name)
 end
 
 -- makes sure the last item in a chain is an index
-local _assignable = { index = true, dot = true, slice = true }
+local _chain_assignable = { index = true, dot = true, slice = true }
 
 local function is_assignable(node)
 	local t = ntype(node)
-	return t == "self" or t == "value" or
-		t == "chain" and _assignable[ntype(node[#node])]
+	return t == "self" or t == "value" or t == "self_class" or
+		t == "chain" and _chain_assignable[ntype(node[#node])]
 end
 
 local function check_assignable(str, pos, value)
@@ -188,7 +188,6 @@ local function format_assign(lhs_exps, assign)
 
 	for _, assign_exp in ipairs(lhs_exps) do
 		if not is_assignable(assign_exp) then
-			print(util.dump(assign_exp))
 			error {assign_exp, "left hand expression is not assignable"}
 		end
 	end

tests/inputs/syntax.moon

@@ -142,6 +142,9 @@ y /= 100
 m %= 2
 hello ..= "world"
 
+@@something += 10
+@something += 10
+
 x = 0
 (if ntype(v) == "fndef" then x += 1) for v in *values
 

tests/outputs/syntax.lua

@@ -149,6 +149,8 @@ y = y * 2
 y = y / 100
 local m = m % 2
 local hello = hello .. "world"
+self.__class.something = self.__class.something + 10
+self.something = self.something + 10
 x = 0
 local _list_0 = values
 for _index_0 = 1, #_list_0 do