Skip to content
Browse files

Use nqp::getlexdyn in place of pir:: op.

  • Loading branch information...
1 parent e4e732c commit 8c8d5ea1898fd659ca268f6882efa534191fa7bd @jnthn jnthn committed
Showing with 5 additions and 5 deletions.
  1. +2 −2 src/QRegex/Cursor.nqp
  2. +2 −2 src/QRegex/P5Regex/Grammar.nqp
  3. +1 −1 src/QRegex/P6Regex/Grammar.nqp
View
4 src/QRegex/Cursor.nqp
@@ -174,13 +174,13 @@ role NQPCursorRole is export {
}
method !reduce(str $name) {
- my $actions := pir::find_dynamic_lex__Ps('$*ACTIONS');
+ my $actions := nqp::getlexdyn('$*ACTIONS');
nqp::findmethod($actions, $name)($actions, self.MATCH)
if !nqp::isnull($actions) && nqp::can($actions, $name);
}
method !reduce_with_match($name, $key, $match) {
- my $actions := pir::find_dynamic_lex__Ps('$*ACTIONS');
+ my $actions := nqp::getlexdyn('$*ACTIONS');
nqp::findmethod($actions, $name)($actions, $match, $key)
if !nqp::isnull($actions) && nqp::can($actions, $name);
}
View
4 src/QRegex/P5Regex/Grammar.nqp
@@ -46,7 +46,7 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
}
token nibbler {
- :my $OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+ :my $OLDRX := nqp::getlexdyn('%*RX');
:my %*RX;
{
for $OLDRX { %*RX{$_.key} := $_.value; }
@@ -134,7 +134,7 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
token p5mod { <[imsox]>* }
token p5mods { <on=p5mod> [ '-' <off=p5mod> ]? }
token p5assertion:sym<mod> {
- :my %*OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+ :my %*OLDRX := nqp::getlexdyn('%*RX');
:my %*RX;
{
for %*OLDRX { %*RX{$_.key} := $_.value; }
View
2 src/QRegex/P6Regex/Grammar.nqp
@@ -68,7 +68,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
}
token nibbler {
- :my $OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+ :my $OLDRX := nqp::getlexdyn('%*RX');
:my %*RX;
{
for $OLDRX { %*RX{$_.key} := $_.value; }

0 comments on commit 8c8d5ea

Please sign in to comment.
Something went wrong with that request. Please try again.