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

Minor cleanups

Browse Source
This commit is contained in:
Bruce Hill 2018-06-18 18:39:21 -07:00
parent f83cc3ad8a
commit 7f98262dfa
2 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
core/control_flow.nom
View File

@ -188,7 +188,7 @@ compile [for %var in %iterable %body] to
(%.type = "Action") and (%.type = "Action") and
(%.stub is "do next %") and (%.stub is "do next %") and
%.3.(1) = %var.(1) %.3.(1) = %var.(1)
..: to %lua write (Lua "\n ::continue_\(%var as lua identifier)::") ..: to %lua write (Lua "\n::continue_\(%var as lua identifier)::")
to %lua write "\nend --foreach-loop" to %lua write "\nend --foreach-loop"
if if
%body has subtree % where %body has subtree % where
@ -221,14 +221,14 @@ compile [..]
(%.type = "Action") and (%.type = "Action") and
(%.stub is "do next %") and (%.stub is "do next %") and
%.3.(1) = %key.(1) %.3.(1) = %key.(1)
..: to %lua write (Lua "\n ::continue_\(%key as lua identifier)::") ..: to %lua write (Lua "\n::continue_\(%key as lua identifier)::")
if if
%body has subtree % where %body has subtree % where
(%.type = "Action") and (%.type = "Action") and
(%.stub is "do next %") and (%.stub is "do next %") and
%.3.(1) = %value.(1) %.3.(1) = %value.(1)
..: to %lua write (Lua "\n ::continue_\(%value as lua identifier)::") ..: to %lua write (Lua "\n::continue_\(%value as lua identifier)::")
to %lua write "\nend --foreach-loop" to %lua write "\nend --foreach-loop"
%stop_labels <- (Lua "") %stop_labels <- (Lua "")
@ -250,8 +250,7 @@ compile [..]
%lua <- %lua <-
Lua ".." Lua ".."
do -- scope for stopping for % = % loop do -- scope for stopping for % = % loop
\%lua \%lua\%stop_labels
\%stop_labels
end end
return %lua return %lua
@ -378,11 +377,4 @@ compile [do %action then always %final_action] to
# Inline thunk: # Inline thunk:
compile [result of %body] to compile [result of %body] to
%body <- (%body as lua statements) Lua value "(\(compile as: [] -> %body))()"
declare locals in %body
return
Lua value ".."
(function()
\%body
end)()

2
core/metaprogramming.nom
View File

@ -110,7 +110,7 @@ compile [parse %actions as %body] to
"\nreturn nomsu:compile(tree)") "\nreturn nomsu:compile(tree)")
return \(compile as: compile %actions to %new_body) return \(compile as: compile %actions to %new_body)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
compile [remove action %action] to compile [remove action %action] to
Lua ".." Lua ".."