>From e8aea1955d16a5c813405c1aee5a5ef1ff227404 Mon Sep 17 00:00:00 2001 From: Christian Kellermann Date: Wed, 25 Apr 2012 17:56:07 +0200 Subject: [PATCH] Use binary mode when downloading files Fix for #820 --- setup-download.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/setup-download.scm b/setup-download.scm index ec94ac3..1772013 100644 --- a/setup-download.scm +++ b/setup-download.scm @@ -371,7 +371,7 @@ (d " ~a~%" name) (let* ((size (read ins)) (data (read-string size in)) ) - (with-output-to-file (make-pathname dest name) (cut display data) ) ) + (with-output-to-file (make-pathname dest name) (cut display data) #:binary ) ) (get-files (cons name files)) ) ) ) ) ))) (define (http-fetch host port locn dest proxy-host proxy-port proxy-user-pass) -- 1.7.5.4