Compare commits
1 Commits
master
...
test-githu
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
5d0587a6e2 |
@@ -1,8 +0,0 @@
|
|||||||
chicken-scheme-amazon-s3
|
|
||||||
========================
|
|
||||||
|
|
||||||
Amazon S3 access from Chicken Scheme.
|
|
||||||
|
|
||||||
This project has been moved to
|
|
||||||
https://github.com/sethalves/chicken-scheme-amazon-s3.
|
|
||||||
Use it instead for submitting patches and pull requests instead.
|
|
||||||
@@ -152,18 +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 (print "I am deprecated.")
|
|
||||||
(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*)))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user