~ chicken-core (chicken-5) 2a2656cacadd3791c11d24b57742c1b37370a24c

commit 2a2656cacadd3791c11d24b57742c1b37370a24c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Apr 29 11:14:09 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Apr 29 11:14:09 2011 +0200

    added workaround for #568 (thanks to sjamaan)

diff --git a/setup-download.scm b/setup-download.scm
index 91ae67dd..ba31bafe 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -360,7 +360,10 @@
 
   (define (read-chunks in)
     (let get-chunks ([data '()])
-      (let ([size (string->number (read-line in) 16)])
+      (let* ((szln (read-line in))
+	     ;;XXX workaround for "read-line" dropping the "\n" in certain situations
+	     ;;    (#568)
+	     (size (string->number (string-chomp szln "\r") 16)))
 	(cond ((zero? size)
 	       (d "~%")
 	       (string-concatenate-reverse data))