Fix double-negative on combo test

It's a negative assertion to begin with.

Author: dwarring

lib/CSS/Specification/Compiler/Grammars.rakumod

@@ -188,13 +188,6 @@ sub call(Str:D $id, :@args) is export {
     RakuAST::Call::Method.new: :$name, :$args;
 }
 
-sub prefix($operand, Str:D $op) {
-    my RakuAST::Prefix $prefix .= new($op);
-    RakuAST::ApplyPrefix.new(
-        :$operand, :$prefix
-    )
-}
-
 multi sub postfix($operand, Str:D $operator) {
     $operand.&postfix: RakuAST::Postfix.new(:$operator);
 }
@@ -206,13 +199,13 @@ multi sub postfix($operand, $postfix) {
 }
 
 
-sub seen(Int:D $id) is export {
+sub unseen(Int:D $id) is export {
     my RakuAST::Postcircumfix $op = $id.&arg.&array-index;
     my RakuAST::Var $operand = '@S'.&lexical;
     my RakuAST::Block $block .= new(
         body => RakuAST::Blockoid.new(
             statements(
-                expression $operand.&postfix($op).&postfix('++').&prefix('!')
+                expression $operand.&postfix($op).&postfix('++')
             )
         )
     );
@@ -270,7 +263,7 @@ multi sub compile(:@combo!, Bool :$required) {
     ).&ws;
     my UInt $n = 0;
     my @atoms = @combo.map: {
-        my RakuAST::Regex::Assertion $seen = $n++.&seen;
+        my RakuAST::Regex::Assertion $seen = $n++.&unseen;
         my RakuAST::Regex $term = .&compile;
         my @seq = [$term, $seen];
         @seq.unshift: Seen-Decl if $n == 1;

t/00compile.t

@@ -106,13 +106,13 @@ for (
     'spec' => {
         input => 'bold thin && <length>',
         ast => :required[:seq[:keywords["bold"], :keywords["thin"]], :rule("length")],
-        deparse => "[:my \@S\n;  bold \& <keyw> thin \& <keyw> <!\{\n    !\@S[0]++\n}>| <length><!\{\n    !\@S[1]++\n}>]** 2",
+        deparse => "[:my \@S\n;  bold \& <keyw> thin \& <keyw> <!\{\n    \@S[0]++\n}>| <length><!\{\n    \@S[1]++\n}>]** 2",
         rule-refs => ['length'],
     },
     'spec' => {
         input => 'bold || thin && <length>',
         ast => :combo[:keywords["bold"], :required[:keywords["thin"], :rule("length")]],
-        deparse => "[:my \@S\n;  bold \& <keyw><!\{\n    !\@S[0]++\n}>| [:my \@S\n;  thin \& <keyw><!\{\n    !\@S[0]++\n}>| <length><!\{\n    !\@S[1]++\n}>]** 2<!\{\n    !\@S[1]++\n}>]+",
+        deparse => "[:my \@S\n;  bold \& <keyw><!\{\n    \@S[0]++\n}>| [:my \@S\n;  thin \& <keyw><!\{\n    \@S[0]++\n}>| <length><!\{\n    \@S[1]++\n}>]** 2<!\{\n    \@S[1]++\n}>]+",
         rule-refs => ['length'],
     },
     'property-spec' => {

t/lib/Test/CSS/Aural/Spec/Grammar.rakumod

@@ -2,9 +2,9 @@ unit grammar Test::CSS::Aural::Spec::Grammar;
 #| azimuth: <angle> | [[ left-side | far-left | left | center-left | center | center-right | right | far-right | right-side ] || behind ] | leftwards | rightwards
 rule decl:sym<azimuth> { :i (azimuth) ":" <val(/<expr=.expr-azimuth> /, &?ROUTINE.WHY)> }
 rule expr-azimuth { :i <angle> || [[:my @S;  [["left-side" | "far-left" | left | "center-left" | center | "center-right" | right | "far-right" | "right-side" ]& <keyw>]<!{
-    !@S[0]++
+    @S[0]++
 }>| behind & <keyw><!{
-    !@S[1]++
+    @S[1]++
 }>]+] || [leftwards | rightwards ]& <keyw>  }
 #| cue-after: <uri> | none
 rule decl:sym<cue-after> { :i ("cue-after") ":" <val(/<expr=.expr-cue-after> /, &?ROUTINE.WHY)> }
@@ -15,9 +15,9 @@ rule expr-cue-before { :i <uri> || none & <keyw>  }
 #| cue: [ 'cue-before' || 'cue-after' ]
 rule decl:sym<cue> { :i (cue) ":" <val(/<expr=.expr-cue> /, &?ROUTINE.WHY)> }
 rule expr-cue { :i [[:my @S;  <expr-cue-before><!{
-    !@S[0]++
+    @S[0]++
 }>| <expr-cue-after><!{
-    !@S[1]++
+    @S[1]++
 }>]+] }
 #| elevation: <angle> | below | level | above | higher | lower
 rule decl:sym<elevation> { :i (elevation) ":" <val(/<expr=.expr-elevation> /, &?ROUTINE.WHY)> }
@@ -40,9 +40,9 @@ rule expr-pitch { :i <frequency> || ["x-low" | low | medium | high | "x-high" ]&
 #| play-during: <uri> [ mix || repeat ]? | auto | none
 rule decl:sym<play-during> { :i ("play-during") ":" <val(/<expr=.expr-play-during> /, &?ROUTINE.WHY)> }
 rule expr-play-during { :i <uri> [[:my @S;  mix & <keyw><!{
-    !@S[0]++
+    @S[0]++
 }>| repeat & <keyw><!{
-    !@S[1]++
+    @S[1]++
 }>]+]?  || [auto | none ]& <keyw>  }
 #| richness: <number>
 rule decl:sym<richness> { :i (richness) ":" <val(/<expr=.expr-richness> /, &?ROUTINE.WHY)> }