From 5702aadf408c28b00a7dc788449ba299aa6d6ac3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 12 Apr 2007 14:16:44 +0000 Subject: [PATCH] fixed a bug svn: r5927 --- collects/drscheme/private/auto-language.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/auto-language.ss b/collects/drscheme/private/auto-language.ss index a066aa90d7..ce35d82b7e 100644 --- a/collects/drscheme/private/auto-language.ss +++ b/collects/drscheme/private/auto-language.ss @@ -5,7 +5,7 @@ (provide pick-new-language) (define (pick-new-language text module-spec->language module-language) - (with-handlers ((exn:fail:read? void)) + (with-handlers ((exn:fail:read? (λ (x) #f))) (let ([found-language? #f]) (let* ([tp (open-input-text-editor text)] [l (with-handlers ([exn:fail:contract? (λ (x) eof)])