checkpoint
[sbp.git] / tests / meta.g
index 3227dca..9b24713 100644 (file)
@@ -9,7 +9,8 @@ Conjuncts   ::=  Sequence
               |  Sequence ^"&~" Elements  /ws
 Elements    ::=  e*/ws
 
-psy         ::= Elements (!wp "/" !ws e)? => "ps2"
+psy         ::= Elements => "ps"
+              | psy !wp ^"/" !ws e
 psx         ::= psy                   => "psy"
               | psy ^"->" e /ws
 Sequence    ::= Quoted => "qprod"