Fix arg passing of <foo(...)> where foo is lexical

rakudo · Mar 14, 2014 · 20193f6 · 20193f6
1 parent 3a30ddb
commit 20193f6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -7118,7 +7118,7 @@ class Perl6::RegexActions is QRegex::P6Regex::Actions does STDActions {
             } elsif $*W.regex_in_scope('&' ~ $name) {
                 $qast := QAST::Regex.new(:rxtype<subrule>, :subtype<capture>,
                                          :node($/), QAST::Node.new(
-                                            QAST::SVal.new( :value('INTERPOLATE') ),
+                                            QAST::SVal.new( :value('INDRULE') ),
                                             QAST::Var.new( :name('&' ~ $name), :scope('lexical') ) ), 
                                          :name($name) );
             }

diff --git a/src/core/Cursor.pm b/src/core/Cursor.pm
@@ -167,6 +167,10 @@ my class Cursor does NQPCursorRole {
         $lang_cursor."$name"(); 
     }
 
+    method INDRULE($rule, |c) {
+        $rule(self, |c)
+    }
+
     method RECURSE() {
         nqp::getlexdyn('$?REGEX')(self)
     }