Fresh highexpect in ws, as per STD.

rakudo · Dec 10, 2012 · 53e70fb · 53e70fb
1 parent b9b110b
commit 53e70fb
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -331,6 +331,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     }
 
     token ws {
+        :my $old_highexpect := self.'!fresh_highexpect'();
         :dba('whitespace')
         [
         ||  <?MARKED('ws')>
@@ -341,6 +342,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             ]*
             <?MARKER('ws')>
         ]
+        :my $stub := self.'!set_highexpect'($old_highexpect);
     }
 
     token unsp {