parser: fix 'end' terminates statement.

Author: davidm

example_env.lua

@@ -28,6 +28,8 @@ elseif z then
   for i = 1,(function() return i end) do i() end -- lambda control
   -- repeat until
   repeat local z = 1 until z == w
+  do local z repeat until z end z()
+  do repeat repeat local z until z until z end z()
   -- while loop
   do do local z while z do local zz zz() end z(zz) end z() end
   -- function
@@ -89,6 +91,8 @@ elseif _ENV.z then
   for i = 1,(function() return _ENV.i end) do i() end -- lambda control
   -- repeat until
   repeat local z = 1 until z == _ENV.w
+  do local z repeat until z end _ENV.z()
+  do repeat repeat local z until z until _ENV.z end _ENV.z()
   -- while loop
   do do local z while z do local zz zz() end z(_ENV.zz) end _ENV.z() end
   -- function

lua_parser_loose.lua

@@ -78,7 +78,7 @@ function PARSE.parse_scope(lx, f)
     if c.tag == 'Keyword' and (
        c[1] == 'break' or c[1] == 'goto' or c[1] == 'do' or c[1] == 'while' or
        c[1] == 'repeat' or c[1] == 'if' or c[1] == 'for' or c[1] == 'function' and lx:peek().tag == 'Id' or
-       c[1] == 'local' or c[1] == ';' or c[1] == 'until' or c[1] == 'return') or
+       c[1] == 'local' or c[1] == ';' or c[1] == 'until' or c[1] == 'return' or c[1] == 'end') or
        c.tag == 'Id' and
            (cprev.tag == 'Id' or
             cprev.tag == 'Keyword' and