[Perl6::Actions] wrap macro-arg ASTs in thunks

This causes the macro arguments to correctly carry their lexical environment with them, and so everything inside of them is now correctly, hygienically resolved.
rakudo · Nov 2, 2012 · 9bb7de6 · 9bb7de6
1 parent e7ab9ac
commit 9bb7de6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3487,7 +3487,8 @@ class Perl6::Actions is HLL::Actions does STDActions {
     sub add_macro_arguments($expr, $ast_class, @argument_asts) {
         sub wrap_and_add_expr($expr) {
             my $quasi_ast := $ast_class.new();
-            nqp::bindattr($quasi_ast, $ast_class, '$!past', $expr);
+            my $wrapped := QAST::Op.new( :op('call'), make_thunk_ref($expr, $expr.node) );
+            nqp::bindattr($quasi_ast, $ast_class, '$!past', $wrapped);
             @argument_asts.push($quasi_ast);
         }