Recursively check equality for lists and pairs, improve function redefinition error message

test/tests/equality operator.lua

@@ -0,0 +1,70 @@
+local _={}
+_[33]={}
+_[32]={}
+_[31]={}
+_[30]={}
+_[29]={}
+_[28]={}
+_[27]={}
+_[26]={}
+_[25]={tags=_[33],data="1 = 1"}
+_[24]={tags=_[32],data="0 = 0"}
+_[23]={tags=_[31],data="0 = 0"}
+_[22]={tags=_[30],data="0 = 0"}
+_[21]={tags=_[29],data="0 = 0"}
+_[20]={tags=_[28],data="1 = 1"}
+_[19]={tags=_[27],data="0 = 0"}
+_[18]={tags=_[26],data="0 = 0"}
+_[17]={_[25]}
+_[16]={_[24]}
+_[15]={_[23]}
+_[14]={_[22]}
+_[13]={_[21]}
+_[12]={_[20]}
+_[11]={_[19]}
+_[10]={_[18]}
+_[9]={"return"}
+_[8]={"text",_[17]}
+_[7]={"text",_[16]}
+_[6]={"text",_[15]}
+_[5]={"text",_[14]}
+_[4]={"text",_[13]}
+_[3]={"text",_[12]}
+_[2]={"text",_[11]}
+_[1]={"text",_[10]}
+return {_[1],_[2],_[3],_[4],_[5],_[6],_[7],_[8],_[9]}
+--[[
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "1 = 1",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "0 = 0",
+      tags = {}
+    } } }
+{ "text", { {
+      data = "1 = 1",
+      tags = {}
+    } } }
+{ "return" }
+]]--