tjhintz/chicken-scheme-amazon-s3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix put-string! and put-sexp!.

Browse Source 
Thanks to Seth Alves for reporting the bug and providing a patch.
This commit is contained in:
Thomas Hintz
2013-07-17 09:07:46 -07:00
parent f1f2e2a663
commit 7b32156467
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
amazon-s3.scm
View File

@@ -187,7 +187,7 @@
content-length: object-length no-xml: #t)) content-length: object-length no-xml: #t))
(define (put-string! bucket key string) (define (put-string! bucket key string)
(put-object! bucket key (lambda () string) (string-length string) "text/plain")) (put-object! bucket key (lambda () (display string)) (string-length string) "text/plain"))
(define (put-sexp! bucket key sexp) (define (put-sexp! bucket key sexp)
(let-values (((res request-uri response) (put-string! bucket key (->string sexp)))) (let-values (((res request-uri response) (put-string! bucket key (->string sexp))))