fixed a bug
svn: r5927
This commit is contained in:
parent
ccf07ab463
commit
5702aadf40
|
@ -5,7 +5,7 @@
|
||||||
(provide pick-new-language)
|
(provide pick-new-language)
|
||||||
|
|
||||||
(define (pick-new-language text module-spec->language module-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 ([found-language? #f])
|
||||||
(let* ([tp (open-input-text-editor text)]
|
(let* ([tp (open-input-text-editor text)]
|
||||||
[l (with-handlers ([exn:fail:contract? (λ (x) eof)])
|
[l (with-handlers ([exn:fail:contract? (λ (x) eof)])
|
||||||
|
|
Loading…
Reference in New Issue
Block a user