From b65abb919e611d846146ade486b6844f1073665f Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Thu, 15 Oct 2009 13:11:59 +1300
Subject: [PATCH] Add delete-object to S3 vocab

---
 extra/s3/s3.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/s3/s3.factor b/extra/s3/s3.factor
index 24eae2cd89..faeb8df2ec 100644
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@@ -137,6 +137,10 @@ TUPLE: key name last-modified size ;
     sign-http-request 
     http-request 2drop ;
 
+: delete-object ( bucket key -- )
+    "/" prepend H{ } clone "DELETE" <s3-request>
+    dup s3-url <delete-request> sign-http-request http-request 2drop ;
+
 ! "testbucket" create-bucket
 ! "testbucket" delete-bucket
 ! buckets