From 50e9aec0ab0075cc71095bb9c2d6dcfcbbffe7ec Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 10 Feb 2011 09:55:49 -0600 Subject: [PATCH] catch more exceptions in the module lexer when it calls read-language --- collects/syntax-color/module-lexer.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/syntax-color/module-lexer.rkt b/collects/syntax-color/module-lexer.rkt index 023fe96ffd..c4273174eb 100644 --- a/collects/syntax-color/module-lexer.rkt +++ b/collects/syntax-color/module-lexer.rkt @@ -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))