gistfile1.txt

cpan@perlbuild4~/R/rakudo (master)$ gd
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
index 6e84d50..f61f2cd 100644
--- a/src/Perl6/Actions.nqp
+++ b/src/Perl6/Actions.nqp
@@ -2529,6 +2529,13 @@ class Perl6::Actions is HLL::Actions does STDActions {
             make $<fakesignature>.ast;
         }
         else {
+            if nqp::atkey(nqp::getenvhash(),'ZZ') {
+                nqp::say("ZZ1: " ~ $*value.ast.dump);
+                try {
+                    nqp::say("ZZ2: `" ~ $*value.ast[0][0].value ~ "`");
+                    nqp::say("ZZ3: `" ~ $*value.ast[0][1].value ~ "`");
+                }
+            }
             make $*value.ast;
         }
     }
cpan@perlbuild4~/R/rakudo (master)$ ZZ=1 ./perl6 -e '&circumfix:<[ ]>()'
ZZ1: - QAST::Stmts  [ ]
  - QAST::Op(call &infix:<,>)  :qw<?> [ ]
    - QAST::WVal(Str)  [ ]
    - QAST::WVal(Str)  [ ]

ZZ2: `[`
ZZ3: `]`
WARNINGS for -e:
Useless use of constant value [ ] in sink context (lines 1, 1)
cpan@perlbuild4~/R/rakudo (master)$