Changing from exn? to exn:fail?

svn: r15902

collects/web-server/configuration/configuration-table.ss

@@ -21,7 +21,7 @@
   (first (get-binding* key bindings (list default))))
 
 (define (get-binding* key bindings default)
-  (with-handlers ([exn? (lambda _ default)])
+  (with-handlers ([exn:fail? (lambda _ default)])
     (extract-binding/single key bindings)))
 
 (define (read-configuration-table table-file-name)

collects/web-server/configuration/namespace.ss

@@ -15,7 +15,7 @@
   (define (get-name spec)
     (if (symbol? spec)
         spec
-        (with-handlers ([exn? (lambda _ #f)])
+        (with-handlers ([exn:fail? (lambda _ #f)])
           ((current-module-name-resolver) spec #f #f))))
   (define to-be-copied-module-names
     (map get-name 
@@ -28,7 +28,7 @@
     (parameterize ([current-namespace new-namespace])
       (namespace-require scheme/base-module-spec)
       (for-each (lambda (name)
-                  (with-handlers ([exn? void])
+                  (with-handlers ([exn:fail? void])
                     (when name
                       (namespace-attach-module server-namespace name))))
                 (append to-be-copied-module-names

collects/web-server/dispatch/coercion.ss

@@ -2,7 +2,7 @@
 
 (define (make-coerce-safe? coerce)
   (lambda (x)
-    (with-handlers ([exn? (lambda (x) #f)])
+    (with-handlers ([exn:fail? (lambda (x) #f)])
       (and (coerce x) #t))))
 
 (define-syntax (define-coercion-match-expander stx)

collects/web-server/dispatchers/dispatch-log.ss

@@ -83,9 +83,9 @@
            (match-lambda
              [(list req)
               (loop
-               (with-handlers ([exn? (lambda (e)
+               (with-handlers ([exn:fail? (lambda (e)
                                        ((error-display-handler) "dispatch-log.ss: Error writing log entry" e)
-                                       (with-handlers ([exn? (lambda (e) #f)])
+                                       (with-handlers ([exn:fail? (lambda (e) #f)])
                                          (close-output-port log-p))
                                        #f)])
                  (define the-log-p

collects/web-server/dispatchers/filesystem-map.ss

@@ -41,7 +41,7 @@
 (define ((make-url->valid-path url->path) u)
   (let loop ([up (url-path u)])
     #;(printf "~S~n" `(url->valid-path ,(url->string u) ,up))
-    (with-handlers ([exn? (lambda (exn)
+    (with-handlers ([exn:fail? (lambda (exn)
                             #;((error-display-handler) (exn-message exn) exn)
                             (if (empty? up)
                                 (raise exn)

collects/web-server/http/digest-auth.ss

@@ -130,7 +130,7 @@
           (error (lambda (a b c) (error 'digest-parser "Malformed digest: ~v ~v ~v" a b c)))))
 
 (define (do-digest-parse str)
-  (with-handlers ([exn? (lambda _ #f)])
+  (with-handlers ([exn:fail? (lambda _ #f)])
     (with-input-from-string 
      str 
      (lambda ()

collects/web-server/http/request.ss

@@ -16,7 +16,7 @@
           (values request? boolean?))])
 
 (define (ext:read-request conn host-port port-addresses)
-  (with-handlers ([exn? (lambda (exn)
+  (with-handlers ([exn:fail? (lambda (exn)
                           (kill-connection! conn)
                           (raise exn))])
     (read-request conn host-port port-addresses)))

collects/web-server/http/response.ss

@@ -149,7 +149,7 @@
 
 (define (ext:wrap f)
   (lambda (conn . args)
-    (with-handlers ([exn? (lambda (exn)
+    (with-handlers ([exn:fail? (lambda (exn)
                             (kill-connection! conn)
                             (raise exn))])
       (apply f conn args)
@@ -262,7 +262,7 @@
          (apply + (map (lambda (range)
                          (- (cdr range) (car range)))
                        converted-ranges)))
-        (with-handlers ([exn? (lambda (exn) (network-error 'output-file (exn-message exn)))])
+        (with-handlers ([exn:fail? (lambda (exn) (network-error 'output-file (exn-message exn)))])
           (call-with-input-file file-path
             (lambda (input)
               (if (= (length converted-ranges) 1)

collects/web-server/lang/file-box.ss

@@ -12,7 +12,7 @@
   fb)
 
 (define (file-box-set? fb)
-  (with-handlers ([exn? (lambda _ #f)])
+  (with-handlers ([exn:fail? (lambda _ #f)])
     (file-unbox fb)
     #t))
 

collects/web-server/private/connection-manager.ss

@@ -45,7 +45,7 @@
 ;; kill this connection
 (define (kill-connection! conn)
   #;(printf "K: ~a~n" (connection-id conn))
-  (with-handlers ([exn? void])
+  (with-handlers ([exn:fail? void])
     (cancel-timer! (connection-timer conn)))
   (kill-connection-w/o-timer! conn))
 

collects/web-server/private/url-param.ss

@@ -15,7 +15,7 @@
            (map path/param-param (url-path url))))
   (let/ec esc
     (for-each (lambda (p)
-                (with-handlers ([exn? void])
+                (with-handlers ([exn:fail? void])
                   (define l (read/string p))
                   (esc (cdr (assoc key l)))))
               ps)
@@ -38,7 +38,7 @@
                           (path/param-path f)
                           (list (write/string
                                  (list* (cons key val)
-                                        (with-handlers ([exn? (lambda _ empty)])
+                                        (with-handlers ([exn:fail? (lambda _ empty)])
                                           (filter (lambda (k*v) (not (equal? key (car k*v))))
                                                   (read/string (first (path/param-param f)))))))))
                          r))])])

collects/web-server/scribblings/tutorial/examples/dummy-3.ss

@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn? void])
+  (with-handlers ([exn:fail? void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "

collects/web-server/scribblings/tutorial/examples/model-2.ss

@@ -22,7 +22,7 @@
                               "This is another post"
                               (list)))))
           (define the-blog
-            (with-handlers ([exn? log-missing-exn-handler])
+            (with-handlers ([exn:fail? log-missing-exn-handler])
               (with-input-from-file home read)))]
     (set-blog-home! the-blog (path->string home))
     the-blog))

collects/web-server/scribblings/tutorial/examples/model-3.ss

@@ -14,7 +14,7 @@
 (define (initialize-blog! home)
   (define db (sqlite:open home))
   (define the-blog (make-blog db))
-  (with-handlers ([exn? void])
+  (with-handlers ([exn:fail? void])
     (sqlite:exec/ignore db
                         (string-append
                          "CREATE TABLE posts "

collects/web-server/servlet/web.ss

@@ -148,7 +148,7 @@
 
 
 (define (with-errors-to-browser send/finish-or-back thunk)
-  (with-handlers ([exn? (lambda (exn)
+  (with-handlers ([exn:fail? (lambda (exn)
                           (send/finish-or-back
                            `(html (head (title "Servlet Error"))
                                   (body ([bgcolor "white"])