~ chicken-core (chicken-5) fac7415f5eacdf8df2e172a93fd01904ae61b674

commit fac7415f5eacdf8df2e172a93fd01904ae61b674
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:58:06 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>
    
    Conflicts:
            setup-download.scm

diff --git a/setup-download.scm b/setup-download.scm
index f5f48a14..73e751c0 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -307,6 +307,8 @@
 			   (else
 			    (set! version v)))
 		     (open-input-string ln))))
+		((irregex-match "^[ ]*\\(error .*\\)[ ]*$" ln)
+		 (open-input-string ln)) ; get-files deals with errors
 		((irregex-match '(* ("\x09\x0a\x0b\x0c\x0d\x20\xa0")) ln)
 		 (skip)) ; Blank line.
 		(else