Apply a tweak also made in HLL::Actions last night; this clears up a …

…vast number of the spectest failures as a result of switching to QRegex for parsing Perl 6 source. O(30) test files have failures that need investigating.

src/Perl6/Actions.pm

@@ -4602,7 +4602,7 @@ class Perl6::Actions is HLL::Actions {
     # and use &infix:<,> to build the parcel
     method quote_EXPR($/) {
         my $past := $<quote_delimited>.ast;
-        if $/.CURSOR.quotemod_check('w') {
+        if %*QUOTEMOD<w> {
             my @words := HLL::Grammar::split_words($/,
                 compile_time_value_str($past, ":w list", $/));
             if +@words != 1 {