From 2cf2dde83cd71bbd01406b932b267b6bc998eabe Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 19:43:45 -0500
Subject: [PATCH] Don't boilerplate error pages

---
 basis/furnace/boilerplate/boilerplate.factor | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/basis/furnace/boilerplate/boilerplate.factor b/basis/furnace/boilerplate/boilerplate.factor
index 59f71b1524..946372e1f8 100644
--- a/basis/furnace/boilerplate/boilerplate.factor
+++ b/basis/furnace/boilerplate/boilerplate.factor
@@ -17,16 +17,13 @@ TUPLE: boilerplate < filter-responder template init ;
         [ ] >>init ;
 
 : wrap-boilerplate? ( response -- ? )
-    {
-        [ code>> { [ 200 = ] [ 400 499 between? ] } 1|| ]
-        [ content-type>> "text/html" = ]
-    } 1&& ;
+    { [ code>> 200 = ] [ content-type>> "text/html" = ] } 1&& ;
 
 M:: boilerplate call-responder* ( path responder -- )
     begin-form
     path responder call-next-method
     responder init>> call
-    dup content-type>> "text/html" = [
+    dup wrap-boilerplate? [
         clone [| body |
             [
                 body