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
|
||||
|
||||
; 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)
|
||||
(perform-aws-request sxpath: '(x:ListAllMyBucketsResult x:Buckets x:Bucket x:Name *text*)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user