~ chicken-core (chicken-5) 5cdcbb36c02010e929a0a96594eb0dfa20c6a09a

commit 5cdcbb36c02010e929a0a96594eb0dfa20c6a09a
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Nov 28 18:02:44 2015 +0100
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Tue Dec 8 13:52:05 2015 +0100

    Attempt to detect server errors and translate them to an exception.
    
    Fixes #1110, albeit not very cleanly.  A proper fix would involve
    specifying a more rigorous protocol, but that's hard to do while
    being backward-compatible.  Henrietta should return only s-expressions,
    but there are situations where it won't.  It's also impossible to
    detect when we're talking to a non-Henrietta web server.
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/setup-download.scm b/setup-download.scm
index 41de68e4..35a1a6a5 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -355,6 +355,8 @@
 			   (else
 			    (set! version v)))
 		     (open-input-string ln))))
+		((irregex-match "^[ ]*\\(error .*\\)[ ]*$" ln)
+		 (open-input-string ln)) ; get-files deals with errors
 		((string-every char-set:whitespace ln)
 		 (skip))
 		(else