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

fixed a bug

Browse Source 
svn: r5927
This commit is contained in:
Robby Findler 2007-04-12 14:16:44 +00:00
parent ccf07ab463
commit 5702aadf40
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/drscheme/private/auto-language.ss
View File

@ -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)])