use a singleton FailCursor for all parsing.

Raku · Sep 19, 2013 · 3314cf5 · 3314cf5
1 parent f9578fe
commit 3314cf5
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/QRegex/Cursor.nqp b/src/QRegex/Cursor.nqp
@@ -7,6 +7,8 @@ my class ParseShared is export {
     has %!marks;
 }
 
+my $FailCursor;
+
 role NQPCursorRole is export {
     has $!shared;
     has int $!from;
@@ -201,9 +203,7 @@ role NQPCursorRole is export {
             $!restart(self);
         }
         else {
-            my $cur := self."!cursor_start_cur"();
-            $cur."!cursor_fail"();
-            $cur
+            $FailCursor;
         }
     }
 
@@ -596,6 +596,8 @@ role NQPCursorRole is export {
     }
 }
 
+my class FailCursor does NQPCursorRole { }
+$FailCursor := FailCursor.new."!cursor_fail"();
 
 class NQPMatch is NQPCapture {
     has $!orig;