Skip to content

Instantly share code, notes, and snippets.

@jnthn
Created November 2, 2011 13:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jnthn/1333597 to your computer and use it in GitHub Desktop.
Save jnthn/1333597 to your computer and use it in GitHub Desktop.
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;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment