Corrected bug 8501

svn: r5465
This commit is contained in:
Kathy Gray 2007-01-26 13:39:39 +00:00
parent b8cdb7afab
commit 10558df5dd

View File

@ -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)