From ce77196e0bdb1a097aa31be9c0e3cd3609c7559a Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 10 Dec 2011 16:50:44 -0500 Subject: [PATCH] Filesystem errors are not internal typed racket errors. original commit: adb6b79620f14415650fc15bd3c94517f625a817 --- collects/typed-racket/tc-setup.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-racket/tc-setup.rkt b/collects/typed-racket/tc-setup.rkt index 3e32e9e8..8db87670 100644 --- a/collects/typed-racket/tc-setup.rkt +++ b/collects/typed-racket/tc-setup.rkt @@ -38,7 +38,7 @@ (set-box! typed-context? #t) ;(start-timing (syntax-property stx 'enclosing-module-name)) (with-handlers - ([(λ (e) (and (exn:fail? e) (not (exn:fail:syntax? e)))) + ([(λ (e) (and (exn:fail? e) (not (exn:fail:syntax? e)) (not (exn:fail:filesystem? e)))) (λ (e) (tc-error "Internal Typed Racket Error : ~a" e))]) (parameterize (;; enable fancy printing? [custom-printer #t]