remove LASTSTATE hack

Author: TimToady

CursorBase.pmc

@@ -440,7 +440,6 @@ sub initparse {
     local $::HIGHWATER = 0;
     local $::HIGHMESS = '';
     local $::HIGHEXPECT = {};
-    local $::LASTSTATE;
     local $::LAST_NIBBLE = bless { firstline => 0, lastline => 0 }, 'Cursor';
     local $::LAST_NIBBLE_MULTILINE = bless { firstline => 0, lastline => 0 }, 'Cursor';
     local $::GOAL = "(eof)";

STD.pm6

@@ -1322,7 +1322,7 @@ grammar P6 is STD {
 
         # this could either be a statement that follows a declaration
         # or a statement that is within the block of a code declaration
-        <!!{ $*LASTSTATE = $¢.pos; $¢ = %*LANG<MAIN>.bless($¢); }>
+        <!!{ $¢ = %*LANG<MAIN>.bless($¢); }>
 
         [
         | <label> <statement>

viv

@@ -1687,8 +1687,6 @@ my \$retree;
 
 use YAML::XS;
 
-\$SIG{__WARN__} = sub { die \@_,"   statement started at line ", 'Cursor'->lineof(\$::LASTSTATE), "\n" } if \$::DEBUG;
-
 END
 	$header;
     }