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

catch more exceptions in the module lexer when it calls read-language

Browse Source
This commit is contained in:
Robby Findler 2011-02-10 09:55:49 -06:00
parent 0f14c6aa67
commit 50e9aec0ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/syntax-color/module-lexer.rkt
View File

@ -40,7 +40,7 @@ to delegate to the scheme-lexer (in the 'no-lang-line mode).
;; look for #lang:
(define p (peeking-input-port in))
(port-count-lines! p)
(define get-info (with-handlers ([exn:fail:read? values]) (read-language p (λ () 'fail))))
(define get-info (with-handlers ([exn:fail? values]) (read-language p (λ () 'fail))))
(cond
[(procedure? get-info)
(define end-pos (file-position p))