furnace: Implement DELETE request

[factor.git] / basis / furnace / redirection / redirection.factor

diff --git a/basis/furnace/redirection/redirection.factor b/basis/furnace/redirection/redirection.factor
index a27ea31f693bb2f94f0f4a30096898363bd083bb..cfdb0c089782571b83b82874111eca4850b5ab0c 100644 (file)
--- a/basis/furnace/redirection/redirection.factor
+++ b/basis/furnace/redirection/redirection.factor
@@ -11,6 +11,8 @@ IN: furnace.redirection
         { "GET" [ <temporary-redirect> ] }
         { "HEAD" [ <temporary-redirect> ] }
         { "POST" [ <permanent-redirect> ] }
+        { "DELETE" [ <303> <custom-redirect> ] }
+        [ 2drop <405> ]
     } case ;
 
 : >secure-url ( url -- url' )