Permalink
Browse files

Switch quote:mm to quote:ms and add an action for it.

  • Loading branch information...
colomon committed May 9, 2012
1 parent b8fcf85 commit daf09afb6f4d4a0d9bab8373390e840156e702c2
Showing with 9 additions and 1 deletion.
  1. +8 −0 src/NieczaActions.pm6
  2. +1 −1 src/STD.pm6
View
@@ -486,6 +486,14 @@ method quote:m ($/) {
self.extract_rx_adverbs(True, False, $<quibble>) ]);
}
+method quote:ms ($/) {
+ make $OpCallMethod.new(pos=>$/, name => 'match',
+ receiver => mklex($/, '$_'),
+ args => [
+ self.op_for_regex($/, $<quibble>.ast),
+ self.extract_rx_adverbs(True, False, $<quibble>) ]);
+}
+
method encapsulate_regex($/, $rxop, :$passcut = False) {
my @lift = $rxop.oplift;
my $lad = $rxop.lad;
View
@@ -2582,7 +2582,7 @@ grammar P6 is STD {
<!old_rx_mods>
}
- token quote:mm {
+ token quote:ms {
<sym> » <!before '('>
<quibble( $¢.cursor_fresh( %*LANG<Regex> ).tweak(:s))>
<!old_rx_mods>

0 comments on commit daf09af

Please sign in to comment.