From d7c3da2fd437f331a2ae0133d717c0b20e5bdd06 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 13 Oct 2011 16:44:30 -0700 Subject: [PATCH] Fix M:: stack effects. --- basis/furnace/boilerplate/boilerplate.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/furnace/boilerplate/boilerplate.factor b/basis/furnace/boilerplate/boilerplate.factor index b4bc574ae2..4293044ab3 100644 --- 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( -- )