allow escaped hyphens too

Author: diakopter

src/QRegex/P6Regex/Actions.nqp

@@ -306,7 +306,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
     }
 
     method backlit($/) {
-        my $qast := QAST::Regex.new( '\\', :rxtype('enumcharlist'),
+        my $qast := QAST::Regex.new( ~$/, :rxtype('enumcharlist'),
                         :node($/) );
         make $qast;
     }

src/QRegex/P6Regex/Grammar.nqp

@@ -195,7 +195,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
 
     token assertion:sym<[> { <?before '['|'+'|'-'> <cclass_elem>+ }
 
-    token backlit { '\\' }
+    token backlit { '\\' | '-' }
 
     token cclass_elem {
         $<sign>=['+'|'-'|<?>]