Permalink
Browse files

Add :temp %*RX; to quote:rx, quote:m, etc.

  • Loading branch information...
1 parent 52fe6d2 commit 692eb4f33ba970116a140959e231c071d204818a @colomon colomon committed Mar 5, 2013
Showing with 6 additions and 0 deletions.
  1. +6 −0 STD.pm6
View
@@ -2670,35 +2670,41 @@ grammar P6 is STD {
token quote_mod:b { <sym> }
token quote:rx {
+ :temp %*RX;
<sym> » <!before '('>
<quibble( $¢.cursor_fresh( %*LANG<Regex> ) )>
<!old_rx_mods>
}
token quote:m {
+ :temp %*RX;
<sym> » <!before '('>
<quibble( $¢.cursor_fresh( %*LANG<Regex> ) )>
<!old_rx_mods>
}
token quote:ms {
+ :temp %*RX;
<sym> » <!before '('>
<quibble( $¢.cursor_fresh( %*LANG<Regex> ).tweak(:s))>
<!old_rx_mods>
}
token quote:s {
+ :temp %*RX;
<sym> » <!before '('>
<pat=.sibble( $¢.cursor_fresh( %*LANG<Regex> ), $¢.cursor_fresh( %*LANG<Q> ).tweak(:qq))>
<!old_rx_mods>
}
token quote:ss {
+ :temp %*RX;
<sym> » <!before '('>
<pat=.sibble( $¢.cursor_fresh( %*LANG<Regex> ).tweak(:s), $¢.cursor_fresh( %*LANG<Q> ).tweak(:qq))>
<!old_rx_mods>
}
token quote:tr {
+ :temp %*RX;
<sym> » <!before '('> <pat=.tribble( $¢.cursor_fresh( %*LANG<Q> ).tweak(:cc))>
<!old_tr_mods>
}

0 comments on commit 692eb4f

Please sign in to comment.