basis: removing unnecessary method stack effects.

[factor.git] / basis / http / server / dispatchers / dispatchers.factor

diff --git a/basis/http/server/dispatchers/dispatchers.factor b/basis/http/server/dispatchers/dispatchers.factor
index 1534a5a8cd8b97baf919c6579c3bc81170d15dc6..ea932c7c20664ddf21e5b32291faabaae26a818c 100644 (file)
--- a/basis/http/server/dispatchers/dispatchers.factor
+++ b/basis/http/server/dispatchers/dispatchers.factor
@@ -23,7 +23,7 @@ TUPLE: dispatcher default responders ;
         [ [ drop rest-slice ] dip ] [ drop default>> ] if
     ] if ;
 
-M: dispatcher call-responder* ( path dispatcher -- response )
+M: dispatcher call-responder*
     find-responder call-responder ;
 
 TUPLE: vhost-dispatcher default responders ;
@@ -38,7 +38,7 @@ TUPLE: vhost-dispatcher default responders ;
     url get host>> canonical-host over responders>> at*
     [ nip ] [ drop default>> ] if ;
 
-M: vhost-dispatcher call-responder* ( path dispatcher -- response )
+M: vhost-dispatcher call-responder*
     find-vhost call-responder ;
 
 : add-responder ( dispatcher responder path -- dispatcher )