From: adam <adam@megacz.com>
Date: Tue, 13 Dec 2005 07:34:07 +0000 (-0500)
Subject: checkpoint
X-Git-Tag: tag_for_25-Mar~592
X-Git-Url: http://git.megacz.com/?p=sbp.git;a=commitdiff_plain;h=6f3b1ab733a3081bdd6a99cb1f9fd9e7c8dfeea9;hp=39179e9fe5c616bbe38282bc06ecfa6e15916346

checkpoint

darcs-hash:20051213073407-5007d-c9e25fb716b6734bfdd6e1620a52f125d2c2936d.gz
---

diff --git a/tests/regression.tc b/tests/regression.tc
index 0dd4853..32e8a59 100644
--- a/tests/regression.tc
+++ b/tests/regression.tc
@@ -218,7 +218,7 @@ testcase {
     l  ::= id
     s  ::= l "=" r  => "assign"
          | r
-    R  ::= l
+    r  ::= l
          | l "=" r       => "assign"
          | r "+" r       => "plus"
          | (r) "*" r       => "times"
@@ -272,13 +272,14 @@ outdent !::= " "  outdent " "
 any      !::= [~]*
 s         ::= !any "\n\n" !ww Statement !ww "\n\n" !any => smt
 ww        ::= sp*
+ws       !::= sp**
 sp        ::= " "
 
-block     ::= "\n" !indent  BlockBody
+block     ::= "\n" !indent  blockBody
            &~ "\n" outdent [~\ ] [~]*
 
-BlockBody ::= Statement
-            > Statement BlockBody => "sbb"
+blockBody ::= Statement
+            > Statement blockBody /ws => "sbb"
 
 Statement ::= Call
             | ^"while" Expr block