
Untitled
By: a guest on
May 29th, 2012 | syntax:
None | size: 0.61 KB | hits: 9 | expires: Never
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index d4b1d94..20ac91c 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -28,7 +28,10 @@ grammar Perl6::Grammar is HLL::Grammar {
my $*ST := pir::isnull($file) ??
Perl6::SymbolTable.new(:handle(~pir::time__N())) !!
Perl6::SymbolTable.new(:handle(~pir::time__N()), :description($file));
-
+
+ # XXX Hack: clear any marks.
+ pir::set_hll_global__vPsP(['HLL', 'Grammar'], '%!MARKHASH', nqp::null());
+
self.comp_unit;
}