Filesystem errors are not internal typed racket errors.

original commit: adb6b79620f14415650fc15bd3c94517f625a817
This commit is contained in:
Sam Tobin-Hochstadt 2011-12-10 16:50:44 -05:00
parent 08e0fd4b89
commit ce77196e0b

View File

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