Removing deprecated with-bucket.

test-github-pull-request
Thomas 10 years ago
parent e2f0e718eb
commit 5d0587a6e2

@ -152,17 +152,6 @@
;;; api ;;; api
; broken and deprecated
; next version will have parameterized keywords so this
; won't be necessary
(define-syntax with-bucket
(syntax-rules ()
((with-bucket bucket (func p1 ...))
(func bucket p1 ...))
((with-bucket bucket exp body ...)
(begin (with-bucket bucket exp)
(with-bucket bucket body ...)))))
(define (list-buckets) (define (list-buckets)
(perform-aws-request sxpath: '(x:ListAllMyBucketsResult x:Buckets x:Bucket x:Name *text*))) (perform-aws-request sxpath: '(x:ListAllMyBucketsResult x:Buckets x:Bucket x:Name *text*)))

Loading…
Cancel
Save