Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added parens around lambdas (% -> %), and removed them from 'result %'

Browse Source 
correspondingly.
This commit is contained in:
Bruce Hill 2018-07-24 13:39:04 -07:00
parent ca653cbb84
commit 723eb9e1f1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/control_flow.nom
View File

@ -484,7 +484,7 @@ test:
assume ((result of (: return 99)) == 99) assume ((result of (: return 99)) == 99)
# Inline thunk: # Inline thunk:
compile [result of %body] to (Lua value "(\(compile as ([] -> %body)))()") compile [result of %body] to (Lua value "\(compile as ([] -> %body))()")
test: test:
%t = [1, [2, [[3], 4], 5, [[[6]]]]] %t = [1, [2, [[3], 4], 5, [[[6]]]]]
%flat = [] %flat = []

4
core/metaprogramming.nom
View File

@ -6,14 +6,14 @@
lua> "NOMSU_CORE_VERSION = 5" lua> "NOMSU_CORE_VERSION = 5"
lua> ".." lua> ".."
nomsu.COMPILE_ACTIONS["% -> %"] = function(nomsu, tree, \%args, \%body) nomsu.COMPILE_ACTIONS["% -> %"] = function(nomsu, tree, \%args, \%body)
local lua = LuaCode.Value(tree.source, "function(") local lua = LuaCode.Value(tree.source, "(function(")
if AST.is_syntax_tree(\%args, "Action") then \%args = \%args:get_args() end if AST.is_syntax_tree(\%args, "Action") then \%args = \%args:get_args() end
local lua_args = table.map(\%args, function(a) return AST.is_syntax_tree(a) and tostring(nomsu:compile(a)) or a end) local lua_args = table.map(\%args, function(a) return AST.is_syntax_tree(a) and tostring(nomsu:compile(a)) or a end)
lua:concat_append(lua_args, ", ") lua:concat_append(lua_args, ", ")
local body_lua = AST.is_syntax_tree(\%body) and nomsu:compile(\%body):as_statements("return ") or \%body local body_lua = AST.is_syntax_tree(\%body) and nomsu:compile(\%body):as_statements("return ") or \%body
body_lua:remove_free_vars(lua_args) body_lua:remove_free_vars(lua_args)
body_lua:declare_locals() body_lua:declare_locals()
lua:append(")\\n ", body_lua, "\\nend") lua:append(")\\n ", body_lua, "\\nend)")
return lua return lua
end end