Ignore arguments to rules for LTM purposes

sorear · Jan 29, 2012 · 6915253 · 6915253
1 parent 20aa772
commit 6915253
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/src/niecza b/src/niecza
@@ -89,21 +89,22 @@ method assertion:name ($/) {
             [ self.op_for_regex($/, $<nibbler>.ast) ] !!
             $<arglist> ?? $<arglist>.ast !! [];
 
-        my $callop;
+        my ($callop, $ltm);
         if $is_lexical {
             $callop = $OpCallSub.new(invocant => mklex($/, "&$name"),
                 positionals => [ mklex($/, '$¢'), @$args ]);
         } elsif $pname<iname> {
             $callop = $Operator_Method.new(name => $pname<iname>, :$args,
                 meta => '::(').with_args($/, mklex($/, '$¢'));
         } else {
+            $ltm = [ 'Method', $pname<name> ];
             $callop = $Operator_Method.new(name => $pname<name>, :$args,
                 package => $pname<pkg>).with_args($/, mklex($/, '$¢'));
         }
 
         my $regex = self.rxembed($/, $callop, True);
 
-        make $RxOpSubrule.new(regex => $regex);
+        make $RxOpSubrule.new(:$regex, :$ltm);
     }
     make self.rxcapturize($/, ~$<longname>, $/.ast);
 }

diff --git a/test3.pl b/test3.pl
@@ -85,3 +85,11 @@
     sub foo(%x) { } #OK
     dies_ok { foo(3) }, '%x needs Associative';
 }
+
+{
+    my grammar Z5 {
+        token TOP { fo* | <k(5)> }
+        token k( $ ) { foo }
+    }
+    ok Z5.parse('foo')<k>.defined, 'arguments do not disturb LTM';
+}