Basic FAILGOAL implementation so we at least get a bit better error.

Raku · Nov 18, 2011 · 0b22858 · 0b22858
1 parent 5a3575c
commit 0b22858
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -323,6 +323,13 @@ role NQPCursorRole {
         $cur;
     }
 
+    method FAILGOAL($goal) {
+        my $sub := Q:PIR {
+            %r = getinterp
+            %r = %r['sub';1]
+        };
+        pir::die("Unable to parse " ~ ~$sub ~ ", couldn't find final $goal");
+    }
 }