Implement &?BLOCK.

We go with a similar approach to $?FILE/$?LINE, which lets us cheaply get the closure semantics correct (cheaply as in "only pay if the symbol is used").
rakudo · Jul 9, 2015 · 3bdd0af · 3bdd0af
1 parent 3db9326
commit 3bdd0af
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1983,6 +1983,15 @@ Compilation unit '$file' contained the following violations:
                 $past := $*W.add_string_constant($*W.current_file);
             }
         }
+        elsif $past.name() eq '&?BLOCK' {
+            if $*IN_DECL eq 'variable' {
+                $*W.throw($/, 'X::Syntax::Variable::Twigil',
+                        twigil  => '?',
+                        scope   => $*SCOPE,
+                );
+            }
+            $past := QAST::Op.new( :op('getcodeobj'), QAST::Op.new( :op('curcode') ) );
+        }
         elsif $past.name() eq '$?RAKUDO_MODULE_DEBUG' {
             $past := $*W.add_constant('Int','int',+nqp::ifnull(nqp::atkey(nqp::getenvhash(),'RAKUDO_MODULE_DEBUG'),0));
         }