From 55f46957afa4bd2f28169ca35ffcbd59223862ad Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 29 Sep 2008 04:10:29 -0500
Subject: [PATCH] Update

---
 extra/websites/concatenative/concatenative.factor | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index cc2b960f9f..4e6baa7271 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -38,6 +38,10 @@ IN: websites.concatenative
 
 TUPLE: factor-website < dispatcher ;
 
+: <factor-boilerplate> ( responder -- responder' )
+    <boilerplate>
+        { factor-website "page" } >>template ;
+
 : <configuration> ( responder -- responder' )
     "Factor website" <login-realm>
         "Factor website" >>name
@@ -45,8 +49,6 @@ TUPLE: factor-website < dispatcher ;
         allow-password-recovery
         allow-edit-profile
         allow-deactivation
-    <boilerplate>
-        { factor-website "page" } >>template
     test-db <alloy> ;
 
 : <factor-website> ( -- responder )
@@ -74,15 +76,16 @@ SYMBOL: dh-file
     <factor-website>
         <pastebin> "pastebin" add-responder
         <planet> "planet" add-responder
+    <factor-boilerplate>
     <configuration>
     main-responder set-global ;
 
 : init-production ( -- )
     common-configuration
     <vhost-dispatcher>
-        <factor-website> "concatenative.org" add-responder
-        <pastebin> "paste.factorcode.org" add-responder
-        <planet> "planet.factorcode.org" add-responder
+        <factor-website> <factor-boilerplate> "concatenative.org" add-responder
+        <pastebin> <factor-boilerplate> "paste.factorcode.org" add-responder
+        <planet> <factor-boilerplate> "planet.factorcode.org" add-responder
     <configuration>
     main-responder set-global ;