Fix stack effect bug in httpd

diff --git a/libs/httpd/responder.factor b/libs/httpd/responder.factor
index 838f443c1d15ff3c7232c4f7b23875321d82f760..3eda2472bd180215b0944ba1fdb5070300b13aae 100644 (file)
--- 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 -- )