Fixed infinite loop bug in parse-error

svn: r839
This commit is contained in:
Kathy Gray 2005-09-12 17:11:51 +00:00
parent 57e6e0c2b5
commit 6e6e54d411

View File

@ -245,7 +245,7 @@
(parse-error (parse-error
(format "~a is close to 'package' but is either miscapitalized or mispelled" (token-value tok)) (format "~a is close to 'package' but is either miscapitalized or mispelled" (token-value tok))
srt end) srt end)
(parse-package pre cur-tok 'start getter))) (parse-program pre cur-tok 'start getter)))
(else (else
(parse-program pre cur-tok 'start getter)))) (parse-program pre cur-tok 'start getter))))
((semi-colon) ((semi-colon)