Fix M:: stack effects.

John Benediktsson 2011-10-13 16:44:30 -07:00
parent f3a70c2a99
commit d7c3da2fd4
1 changed files with 1 additions and 1 deletions

View File

@ -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( -- )