Skip to content

Commit 8246478

Browse files
committed
forgot to add quoted chars to char classes
1 parent 2b1d764 commit 8246478

File tree

1 file changed

+7
-5
lines changed

1 file changed

+7
-5
lines changed

STD.pm6

Lines changed: 7 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -5022,39 +5022,41 @@ grammar Regex is STD {
50225022

50235023
token cclass_add {
50245024
<.normspace>?
5025-
<cclass_elem> ** [$<op>=[ '+' | '-' ]]
5025+
<cclass_elem> ** [$<op>=[ '+' | '-' ]<.normspace>?]
50265026
}
50275027

50285028
token cclass_elem:name {
50295029
:dba('character class element')
5030-
<.normspace>?
50315030
<name>
50325031
<.normspace>?
50335032
}
50345033

50355034
token cclass_elem:sym<[ ]> {
50365035
:my $*CCSTATE = '';
50375036
:dba('character class element')
5038-
<.normspace>?
50395037
<before '['> <quibble($¢.cursor_fresh( %*LANG<Q> ).tweak(:cc))>
50405038
<.normspace>?
50415039
}
50425040

50435041
token cclass_elem:sym<( )> {
50445042
:my $*CCSTATE = '';
50455043
:dba('character class element')
5046-
<.normspace>?
50475044
'(' ~ ')' <cclass_expr>
50485045
<.normspace>?
50495046
}
50505047

50515048
token cclass_elem:property {
50525049
:dba('character class element')
5053-
<.normspace>?
50545050
[:lang(%*LANG<MAIN>) <colonpair> ]
50555051
<.normspace>?
50565052
}
50575053

5054+
token cclass_elem:quote {
5055+
<?before '"' | "'">
5056+
[:lang(%*LANG<MAIN>) <quote> ]
5057+
<.normspace>?
5058+
}
5059+
50585060
token mod_arg { :dba('modifier argument') '(' ~ ')' [:lang(%*LANG<MAIN>) <semilist> ] }
50595061

50605062
token mod_internal:sym<:my> { ':' <?before ['my'|'state'|'our'|'anon'|'constant'|'temp'|'let'] \s > [:lang(%*LANG<MAIN>) <statement> <eat_terminator> ] }

0 commit comments

Comments
 (0)