Mask exn's where necessary.

2008-06-17 10:46:28 -04:00 · 2008-06-17 10:46:28 -04:00 · 8bf60f9faf
commit 8bf60f9faf
parent 8d810160f2
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/private/tc-app-unit.ss
+++ b/collects/typed-scheme/private/tc-app-unit.ss
@ -546,7 +546,7 @@
      (identifier? #'or/andmap)
      (or (free-identifier=? #'or/andmap #'ormap)
          (free-identifier=? #'or/andmap #'andmap))
-      (with-handlers (#;[exn:fail? (lambda _ #f)])
+      (with-handlers ([exn:fail? (lambda _ #f)])
        (tc/dots #'arg)
        #t))
     (let-values ([(ty bound) (tc/dots #'arg)])