http: add set-headers utility word

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