From eb28ee2a96def6937d83e27d5df777f1274b978a Mon Sep 17 00:00:00 2001
From: Thomas <thintz@hotpads.com>
Date: Thu, 10 Jul 2014 09:33:00 -0700
Subject: [PATCH] Add deprecated message to with-bucket.

---
 amazon-s3.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/amazon-s3.scm b/amazon-s3.scm
index 2586869..1b277c6 100644
--- a/amazon-s3.scm
+++ b/amazon-s3.scm
@@ -160,7 +160,8 @@
     ((with-bucket bucket (func p1 ...))
      (func bucket p1 ...))
     ((with-bucket bucket exp body ...)
-     (begin (with-bucket bucket exp)
+     (begin (print "I am deprecated.")
+            (with-bucket bucket exp)
             (with-bucket bucket body ...)))))
 
 (define (list-buckets)