Removed utils.lua, simplified some metaprogramming stuff, added native support

for calling functions with (%a %b %c) instead of (call %a with [%b,
%c]), renamed _List -> List, _Dict -> Dict, improved example code.

1 files changed, 6 insertions, 10 deletions

diff --git a/lib/object.nom b/lib/object.nom
index d5555df..6f6fc20 100644
--- a/lib/object.nom
+++ b/lib/object.nom
@@ -54,25 +54,21 @@ test:
 (my action %actions %body) compiles to:
     lua> "\
         ..local fn_name = \%actions[1].stub:as_lua_id()
-        local \%args = table.map(\%actions[1]:get_args(), function(a) return tostring(nomsu:compile(a)) end)
-        table.insert(\%args, 1, \(\%me as lua id))
+        local \%args = List(\%actions[1]:get_args())
+        table.insert(\%args, 1, \(\%me))
         local lua = LuaCode(tree.source, "class.", fn_name, " = ", \(..)
             what (%args -> %body) compiles to
         ..)
         for i=2,#\%actions do
             local alias = \%actions[i]
             local alias_name = alias.stub:as_lua_id()
-            local \%alias_args = table.map(alias:get_args(), function(a) return tostring(nomsu:compile(a)) end)
-            table.insert(\%alias_args, 1, \(\%me as lua id))
+            local \%alias_args = List(alias:get_args())
+            table.insert(\%alias_args, 1, \(\%me))
             lua:append("\\nclass.", alias_name, " = ")
-            if utils.equivalent(\%args, \%alias_args) then
+            if \%args == \%alias_args then
                 lua:append("class.", fn_name)
             else
-                lua:append("function(")
-                lua:concat_append(\%alias_args, ", ")
-                lua:append(")\\n    return class.", fn_name, "(")
-                lua:concat_append(\%args, ", ")
-                lua:append(")\\nend")
+                lua:append(\(what (%alias_args -> %actions.1) compiles to))
             end
         end
         return lua"