basis: removing unnecessary method stack effects.

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

diff --git a/basis/http/server/server.factor b/basis/http/server/server.factor
index 1467ff25f08a2929067d2eb084f0d33c88902abe..8ea64049d574baea959a16ed78f924e04ef4d9c4 100644 (file)
--- a/basis/http/server/server.factor
+++ b/basis/http/server/server.factor
@@ -48,13 +48,13 @@ GENERIC: write-full-response ( request response -- )
 : write-response-body ( response -- response )
     dup body>> call-template ;
 
-M: response write-response ( respose -- )
+M: response write-response
     write-response-line
     write-response-header
     flush
     drop ;
 
-M: response write-full-response ( request response -- )
+M: response write-full-response
     dup write-response
     swap method>> "HEAD" = [
         [ content-encoding>> encode-output ]
@@ -62,12 +62,12 @@ M: response write-full-response ( request response -- )
         bi
     ] unless drop ;
 
-M: raw-response write-response ( respose -- )
+M: raw-response write-response
     write-response-line
     write-response-body
     drop ;
 
-M: raw-response write-full-response ( request response -- )
+M: raw-response write-full-response
     nip write-response ;
 
 : post-request? ( -- ? ) request get method>> "POST" = ;