http: add delete-header

diff --git a/basis/http/http.factor b/basis/http/http.factor
index 4d7a609ab2a178364210c9ed91d81a2600d7dcc1..a2b7afffc903ec799a91782b961484a62c95c91b 100644 (file)
--- a/basis/http/http.factor
+++ b/basis/http/http.factor
@@ -145,6 +145,9 @@ TUPLE: request
 : set-headers ( request/response assoc -- request/response )
     [ swap set-header ] assoc-each ; inline
 
+: delete-header ( request/response key -- request/response )
+    over header>> delete-at ;
+
 : basic-auth ( username password -- str )
     ":" glue >base64 "Basic " "" prepend-as ;