From 6f3b1ab733a3081bdd6a99cb1f9fd9e7c8dfeea9 Mon Sep 17 00:00:00 2001 From: adam Date: Tue, 13 Dec 2005 02:34:07 -0500 Subject: [PATCH] checkpoint darcs-hash:20051213073407-5007d-c9e25fb716b6734bfdd6e1620a52f125d2c2936d.gz --- tests/regression.tc | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4