From 917a42cb4a702eab3f13aeb9a7db41976e83e6d2 Mon Sep 17 00:00:00 2001 From: slava Date: Mon, 18 Dec 2006 03:15:33 +0000 Subject: [PATCH] Fix stack effect bug in httpd --- libs/httpd/responder.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/libs/httpd/responder.factor b/libs/httpd/responder.factor index 838f443c1d..3eda2472bd 100644 --- a/libs/httpd/responder.factor +++ b/libs/httpd/responder.factor @@ -123,7 +123,7 @@ SYMBOL: responders call ] make-hash add-responder ; -: vhost ( name -- responder ) +: vhost ( name -- vhost ) vhosts get hash [ "default" vhost ] unless* ; : responder ( name -- responder ) @@ -150,7 +150,7 @@ SYMBOL: responders swap responder call-responder ] [ ! Just a responder name by itself - drop "request" get "/" append redirect drop + drop "request" get "/" append redirect 2drop ] if ; : serve-responder ( method path host -- )