From c58ca29ef73de0ebf3af79f43260d4fa39b9ec91 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 11 Aug 2004 03:54:12 +0000
Subject: [PATCH] error in one client does not kill httpd

---
 TODO.FACTOR.txt            |  2 +-
 library/httpd/httpd.factor | 10 +++++++---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index a214e380d7..215c3d454d 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -88,8 +88,8 @@ ERROR: I/O error: [ "primitive_read_line_fd_8" "Resource temporarily unavailable
 
 + httpd:
 
+- broken pipe errors with httpd and telnetd in cfactor
 - multitasking
-- don't die if one client errors
 - inspect: always use inspect/ URL prefix, not responder name var
 - httpd: don't flush so much
 - log with date
diff --git a/library/httpd/httpd.factor b/library/httpd/httpd.factor
index 605d60303e..543ad70efa 100644
--- a/library/httpd/httpd.factor
+++ b/library/httpd/httpd.factor
@@ -76,9 +76,13 @@ USE: url-encoding
 
 : httpd-client ( socket -- )
     [
-        "stdio" get "client" set log-client
-        read [ parse-request ] when*
-    ] with-stream ;
+        [
+            "stdio" get "client" set log-client
+            read [ parse-request ] when*
+        ] with-stream
+    ] [
+        default-error-handler drop
+    ] catch ;
 
 : quit-flag ( -- ? )
     global [ "httpd-quit" get ] bind ;