Merge pull request #3 from ThomasHintz/testing-github-2

Add deprecated message to with-bucket.
2014-07-10 09:34:03 -07:00
parent e2f0e718eb eb28ee2a96
commit 2081a41bd2
1 changed files with 2 additions and 1 deletions
--- 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)