Fix M:: stack effects.

2011-10-13 16:44:30 -07:00 · 2011-10-13 16:44:30 -07:00 · 422f427a87
parent 4558bf3414
commit 422f427a87
1 changed files with 1 additions and 1 deletions
--- a/basis/furnace/boilerplate/boilerplate.factor
+++ b/basis/furnace/boilerplate/boilerplate.factor
@ -20,7 +20,7 @@ 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( -- )