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

Untitled

By: a guest on May 7th, 2012  |  syntax: None  |  size: 1.32 KB  |  hits: 8  |  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/Grammar.pm b/src/Perl6/Grammar.pm
  2. index 4397f42..2eeff31 100644
  3. --- a/src/Perl6/Grammar.pm
  4. +++ b/src/Perl6/Grammar.pm
  5. @@ -334,7 +334,6 @@ grammar Perl6::Grammar is HLL::Grammar {
  6.          :my $*UNIT;
  7.          :my $*UNIT_OUTER;
  8.          :my $*EXPORT;
  9. -        :my $*COMPILING := 1;
  10.  
  11.          # A place for Pod
  12.          :my $*POD_BLOCKS := [];
  13. diff --git a/src/Perl6/ModuleLoader.pm b/src/Perl6/ModuleLoader.pm
  14. index 2eca2cf..efbf52d 100644
  15. --- a/src/Perl6/ModuleLoader.pm
  16. +++ b/src/Perl6/ModuleLoader.pm
  17. @@ -49,7 +49,7 @@ class Perl6::ModuleLoader {
  18.              $module_ctx := %modules_loaded{$path};
  19.          }
  20.          else {
  21. -            my $*COMPILING := 0;
  22. +            my %*COMPILING := {};
  23.              my $*CTXSAVE := self;
  24.              my $*MAIN_CTX;
  25.              my $preserve_global := pir::get_hll_global__Ps('GLOBAL');
  26. diff --git a/src/core/traits.pm b/src/core/traits.pm
  27. index a02b59d..bc041f0 100644
  28. --- a/src/core/traits.pm
  29. +++ b/src/core/traits.pm
  30. @@ -37,7 +37,7 @@ multi trait_mod:<is>(Parameter:D $param, :$copy!) {
  31.  # TODO: Make this much less cheaty. That'll probably need the
  32.  # full-blown serialization, though.
  33.  multi trait_mod:<is>(Routine:D \$r, :$export!) {
  34. -    if $*COMPILING {
  35. +    if %*COMPILING {
  36.          my @tags = 'ALL', 'DEFAULT';
  37.          for @tags -> $tag {
  38.              my $install_in;
create a new version of this paste RAW Paste Data