From 7b3215646725bb1b967050aaf2e36288b8723a93 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Wed, 17 Jul 2013 09:07:46 -0700 Subject: [PATCH] Fix put-string! and put-sexp!. Thanks to Seth Alves for reporting the bug and providing a patch. --- amazon-s3.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/amazon-s3.scm b/amazon-s3.scm index 19a1eb1..17a743f 100644 --- a/amazon-s3.scm +++ b/amazon-s3.scm @@ -187,7 +187,7 @@ content-length: object-length no-xml: #t)) (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) (let-values (((res request-uri response) (put-string! bucket key (->string sexp)))) @@ -212,4 +212,4 @@ (define (delete-object! bucket key) (perform-aws-request bucket: bucket path: key no-xml: #t verb: "DELETE")) -) \ No newline at end of file +)