Skip to content

Instantly share code, notes, and snippets.

@niner

niner/gist:dc13b9e26acbe735f5c9a307fc0210af Secret

Created July 5, 2016 18:44
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 niner/dc13b9e26acbe735f5c9a307fc0210af to your computer and use it in GitHub Desktop.
Save niner/dc13b9e26acbe735f5c9a307fc0210af to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
diff --git a/src/core/control.pm b/src/core/control.pm
index fa36812..9d62e3d 100644
--- a/src/core/control.pm
+++ b/src/core/control.pm
@@ -223,6 +223,7 @@ proto sub EVAL(Cool $code, Str() :$lang = 'perl6', PseudoStash :$context, *%n) {
my $eval_ctx := nqp::getattr(nqp::decont($context // CALLER::), PseudoStash, '$!ctx');
my $?FILES := 'EVAL_' ~ (state $no)++;
my \mast_frames := nqp::hash();
+ my $*CTXSAVE;
my $compiled := $compiler.compile(
$code.Stringy,
:outer_ctx($eval_ctx),
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment