From 85cfca546847cfb20f20e60224fb7ae72d51d9b8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 13 Mar 2008 03:48:39 -0500
Subject: [PATCH] Fix minor HTTPd omissions

---
 extra/http/server/server.factor        | 1 +
 extra/http/server/static/static.factor | 2 --
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/http/server/server.factor b/extra/http/server/server.factor
index 37f21278df..283cb53627 100755
--- a/extra/http/server/server.factor
+++ b/extra/http/server/server.factor
@@ -12,6 +12,7 @@ GENERIC: call-responder ( path responder -- response )
 : <content> ( content-type -- response )
     <response>
         200 >>code
+        "Document follows" >>message
         swap set-content-type ;
 
 TUPLE: trivial-responder response ;
diff --git a/extra/http/server/static/static.factor b/extra/http/server/static/static.factor
index 6c365ad87b..18870a993f 100755
--- a/extra/http/server/static/static.factor
+++ b/extra/http/server/static/static.factor
@@ -7,8 +7,6 @@ calendar.format new-slots accessors io.encodings.binary
 combinators.cleave fry ;
 IN: http.server.static
 
-SYMBOL: responder
-
 ! special maps mime types to quots with effect ( path -- )
 TUPLE: file-responder root hook special ;