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

Add deprecated message to with-bucket.

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)