throw when quant follows nonquantable

Raku · Oct 19, 2015 · 41ab646 · 41ab646
1 parent 6fe7900
commit 41ab646
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -83,6 +83,7 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         if $<quantifier> {
             $/.CURSOR.panic('Quantifier quantifies nothing')
                 unless $qast;
+            $/.CURSOR.throw_non_quantifiable() if $qast.rxtype eq 'qastnode';
             my $ast := $<quantifier>.ast;
             $ast.unshift($qast);
             $qast := $ast;

diff --git a/src/QRegex/P6Regex/Grammar.nqp b/src/QRegex/P6Regex/Grammar.nqp
@@ -79,6 +79,10 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
         self.panic('Quantifier quantifies nothing.');
     }
 
+    method throw_non_quantifiable() {
+        self.panic('Can only quantify a construct that produces a match');
+    }
+
     method throw_solitary_backtrack_control() {
         self.panic("Backtrack control ':' does not seem to have a preceding atom to control");
     }