Get ~ goal matching syntax working again; Cursor.FAILGOAL is missing yet, so the error sucks, but otherwise it seems to do the right thing.

Author: jnthn

src/QRegex/P6Regex/Actions.nqp

@@ -201,6 +201,19 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         make $qast;
     }
 
+    method metachar:sym<~>($/) {
+        make QAST::Regex.new(
+            $<EXPR>.ast,
+            QAST::Regex.new(
+                $<GOAL>.ast,
+                QAST::Regex.new( PAST::Node.new('FAILGOAL', ~$<GOAL>),
+                                  :rxtype<subrule>, :subtype<method> ),
+                :rxtype<altseq>
+            ),
+            :rxtype<concat>
+        );
+    }
+
     method backslash:sym<s>($/) {
         make QAST::Regex.new(:rxtype<cclass>, '.CCLASS_WHITESPACE', 
                              :subtype($<sym> eq 'n' ?? 'nl' !! ~$<sym>),