Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on May 29th, 2012  |  syntax: None  |  size: 0.61 KB  |  hits: 9  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
  2. diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
  3. index d4b1d94..20ac91c 100644
  4. --- a/src/Perl6/Grammar.pm
  5. +++ b/src/Perl6/Grammar.pm
  6. @@ -28,7 +28,10 @@ grammar Perl6::Grammar is HLL::Grammar {
  7.          my $*ST := pir::isnull($file) ??
  8.              Perl6::SymbolTable.new(:handle(~pir::time__N())) !!
  9.              Perl6::SymbolTable.new(:handle(~pir::time__N()), :description($file));
  10. -            
  11. +
  12. +        # XXX Hack: clear any marks.
  13. +        pir::set_hll_global__vPsP(['HLL', 'Grammar'], '%!MARKHASH', nqp::null());
  14. +
  15.          self.comp_unit;
  16.      }