suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed infinite loop bug in parse-error

Browse Source 
svn: r839
This commit is contained in:
Kathy Gray 2005-09-12 17:11:51 +00:00
parent 57e6e0c2b5
commit 6e6e54d411
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/profj/parsers/parse-error.ss
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)
@ -257,7 +257,7 @@
;parse-program: token token symbol (-> token) -> (U void bool) ;parse-program: token token symbol (-> token) -> (U void bool)
(define (parse-program pre cur-tok state getter) (define (parse-program pre cur-tok state getter)
; (printf "parse-program state: ~a pre: ~a cur-tok:~a~n" state pre cur-tok) ;(printf "parse-program state: ~a pre: ~a cur-tok:~a~n" state pre cur-tok)
(let* ((tok (get-tok cur-tok)) (let* ((tok (get-tok cur-tok))
(tokN (get-token-name tok)) (tokN (get-token-name tok))
(srt (get-start cur-tok)) (srt (get-start cur-tok))