From 10558df5dd05697181407a2e819bae1a6459e6a7 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Fri, 26 Jan 2007 13:39:39 +0000 Subject: [PATCH] Corrected bug 8501 svn: r5465 --- collects/profj/parsers/parse-error.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/profj/parsers/parse-error.ss b/collects/profj/parsers/parse-error.ss index c7085b1604..35453cd245 100644 --- a/collects/profj/parsers/parse-error.ss +++ b/collects/profj/parsers/parse-error.ss @@ -1781,7 +1781,7 @@ (parse-statement cur-tok (parse-expression cur-tok - (parse-expression cur-tok next-tok 'start getter #f #t) + (parse-expression cur-tok next-tok 'start getter #f #f) 'method-args getter #f #t) 'end-exp getter id-ok? ctor? super-seen?)))) (parse-statement cur-tok (parse-expression pre cur-tok 'method-call-args getter #f #t) @@ -2532,7 +2532,7 @@ (if (and statement-ok? (or (advanced?) (intermediate?) (semi-colon? (get-tok after-c)))) (getter) (parse-expression next-tok after-c 'dot-op-or-end getter statement-ok? stmt-exp?)))) - (else (parse-expression cur-tok (parse-expression cur-tok next-tok 'start getter #f stmt-exp?) + (else (parse-expression cur-tok (parse-expression cur-tok next-tok 'start getter #f #f) 'method-args getter statement-ok? stmt-exp?))))) (else (parse-error (format "Expected method arguments in parens, found ~a" out) start end)))) ((method-args)