From a1370171f10673b12322fb1c732797de413b1be5 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Sat, 26 Apr 2008 15:33:08 +0000 Subject: [PATCH] Correction to two parsing bugs svn: r9491 --- collects/profj/comb-parsers/parser-units.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm index 0b5151dae6..2b5eadfcc8 100644 --- a/collects/profj/comb-parsers/parser-units.scm +++ b/collects/profj/comb-parsers/parser-units.scm @@ -330,7 +330,7 @@ (define new-class (choose ((sequence (new name O_PAREN C_PAREN) id) - (sequence (new name O_PAREN (comma-sep expression@ "arguments") C_PAREN) id)) + (sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id)) "class instantiation")) (define (new-array type-name) @@ -433,7 +433,7 @@ (sequence (super O_PAREN (comma-sep (eta expression) "arguments") C_PAREN SEMI_COLON) id)) "super constructor call")) (define (block repeat?) - (let ([body (if repeat? (repeat-greedy statement) statement)]) + (let ([body (if repeat? (repeat-greedy (eta statement)) (eta statement))]) (sequence (O_BRACE body C_BRACE) id "block statement"))) (define expression-stmt