factor: trim using lists

[factor.git] / basis / furnace / boilerplate / boilerplate.factor

diff --git a/basis/furnace/boilerplate/boilerplate.factor b/basis/furnace/boilerplate/boilerplate.factor
index 95e93f2ee8b067be02aa980f57c43b9d61990c7c..9f4ea648ee7e9ccde8d087b4478672aa2e4ecd0b 100644 (file)
--- a/basis/furnace/boilerplate/boilerplate.factor
+++ b/basis/furnace/boilerplate/boilerplate.factor
@@ -1,10 +1,9 @@
-! Copyright (c) 2008 Slava Pestov
+! Copyright (c) 2008, 2009 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors kernel math.order namespaces combinators.short-circuit
 html.forms
 html.templates
 html.templates.chloe
-locals
 http.server
 http.server.filters
 furnace.utilities ;
@@ -20,10 +19,10 @@ TUPLE: boilerplate < filter-responder template init ;
 : wrap-boilerplate? ( response -- ? )
     { [ code>> 200 = ] [ content-type>> "text/html" = ] } 1&& ;
 
-M:: boilerplate call-responder* ( path responder -- )
+M:: boilerplate call-responder* ( path responder -- response )
     begin-form
     path responder call-next-method
-    responder init>> call
+    responder init>> call( -- )
     dup wrap-boilerplate? [
         clone [| body |
             [