X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fmeta.g;h=8a5b7e17f3573d7272e103a720bd40ecaa84aa8e;hp=292991ce4eba7c8afa8589323c60b1763adb00e0;hb=8633a1ff957ac9ccbafa5e897bc8b9f17eadab02;hpb=ea83c68e20abf2e74f901502a053b413b93e5289

diff --git a/tests/meta.g b/tests/meta.g
index 292991c..8a5b7e1 100644
--- a/tests/meta.g
+++ b/tests/meta.g
@@ -1,5 +1,6 @@
 s         ::=  ws grammar ws                  => "gram"
-ws      !::=  w**
+ws       !::=  w**
+wp       !::=  w++
 grammar   ::=  r +/ ws                        => "grammar"
 
 r         ::=  word  ^"::=" alternatives /ws
@@ -14,7 +15,7 @@ conjuncts     ::=  sequence
 ps          ::= e*/ws                              => "ps"
               | (e+/ws ws)? "^" quoted (ws e+/ws)? => "ps2"
 psx         ::= ps
-              > ps ^"/" e /ws
+              | ps wp ^"/" ws e
 sequence    ::= psx
               | psx ^"=>" (word|quoted) /ws