diff options
Diffstat (limited to 'core')
| -rw-r--r-- | core/metaprogramming.nom | 13 | ||||
| -rw-r--r-- | core/operators.nom | 9 |
2 files changed, 8 insertions, 14 deletions
diff --git a/core/metaprogramming.nom b/core/metaprogramming.nom index 6d2f764..fd70119 100644 --- a/core/metaprogramming.nom +++ b/core/metaprogramming.nom @@ -159,19 +159,6 @@ immediately compile [nomsu] to: Lua value "nomsu" compile [%var as lua identifier] to: Lua value "nomsu:var_to_lua_identifier(\(%var as lua expr))" -action [action %names metadata] - =lua "nomsu.action_metadata[ACTIONS[\%names]]" - -# Get the source code for a function -action [help %action] - lua> ".." - local metadata = \(action %action metadata); - if not metadata then - print("Action not found: "..repr(\%action)); - else - print(metadata.src or "<unknown source code>"); - end - # Compiler tools immediately compile [run %code] to diff --git a/core/operators.nom b/core/operators.nom index 88b0374..fca56d5 100644 --- a/core/operators.nom +++ b/core/operators.nom @@ -163,7 +163,14 @@ immediately # Unary operators compile [- %] to: Lua value "(- \(% as lua expr))" compile [not %] to: Lua value "(not \(% as lua expr))" - compile [length of %list] to: Lua value "(#\(%list as lua expr))" + compile [length of %list] to + # A bit of a hack so that luajit works properly. + Lua value ".." + (function(l) + local mt = getmetatable(l); + if mt and mt.__len then return mt.__len(l) end + return #l + end)(\(%list as lua expr)) # Update operators immediately |