Fix error based on mis-read contract

2013-05-10 06:56:23 -06:00 · 2013-05-10 06:56:23 -06:00 · 5c7f89d242
commit 5c7f89d242
parent 0488cd6b46
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/private/dispatch-server-unit.rkt
+++ b/collects/web-server/private/dispatch-server-unit.rkt
@ -78,7 +78,7 @@
          ;; This error is "Connection reset by peer" and doesn't
          ;; really indicate a problem with the server.
          (and (exn:fail:network:errno? x)
-               (= 54 (exn:fail:network:errno-errno x))))
+               (equal? (cons 54 'posix) (exn:fail:network:errno-errno x))))
        (λ (x)
          (kill-connection! conn))])
    ;; HTTP/1.1 allows any number of requests to come from this input