Minor cleanups

core/control_flow.nom

@@ -250,8 +250,7 @@ compile [..]
         %lua <-
             Lua ".."
                 do -- scope for stopping for % = % loop
-                    \%lua
+                    \%lua\%stop_labels
-                    \%stop_labels
                 end
     return %lua
 
@@ -378,11 +377,4 @@ compile [do %action then always %final_action] to
 
 # Inline thunk:
 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)()
-

core/metaprogramming.nom

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