From ef87bdc876a20baf9158441b9cb2d67ad919926d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 4 Dec 2005 19:18:04 +0000
Subject: [PATCH] abort if bad HTTP reply

svn: r1520
---
 collects/version/check.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/version/check.ss b/collects/version/check.ss
index f3fceaef1c..31f1b4ba34 100644
--- a/collects/version/check.ss
+++ b/collects/version/check.ss
@@ -15,7 +15,8 @@
     (fprintf o "GET ~a HTTP/1.0\r\nHost: ~a\r\n\r\n" path host)
     (flush-output o)
     (close-output-port o)
-    (regexp-match #rx"^HTTP/[0-9.]+ 200 OK\r\n.*?\r\n\r\n" i)
+    (unless (regexp-match #rx"^HTTP/[0-9.]+ 200 OK\r\n.*?\r\n\r\n" i)
+      (error 'url->port "bad reply from server: ~a" (read-line)))
     i)
 
   (define error-value