checkpoint
[sbp.git] / tests / meta.g
index 3139794..a0d0819 100644 (file)
@@ -8,13 +8,13 @@ Conjuncts   ::=  Sequence
               |  Sequence ^"&"  Elements  /ws
               |  Sequence ^"&~" Elements  /ws
 Elements    ::=  e*/ws
+NamedElements    ::=  e*/ws
 
-psy         ::= Elements => "ps"
-              | psy !wp ^"/"  !ws e
-              | psy     ^"->"     e /ws
-              | psy     ^"=>" ("[]"|"()"|word|Quoted) /ws
-Sequence    ::= Quoted => "qprod"
-              > psy    => "psx"
+PreSequence ::= NamedElements => "ps"
+              | PreSequence !wp ^"/"  !ws e
+              | PreSequence     ^"->"     e /ws
+              | PreSequence     ^"=>" ("[]"|"()"|word|Quoted) /ws
+Sequence    ::= PreSequence    => "psx"
 
 ec          ::= ~[\-\]\\]
               | escaped