From 4d6cc0f2b499fd83eebac3cf4e65f4b8be62c7c6 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 16 Apr 2007 21:35:59 +0000
Subject: [PATCH] better error message when the scheme is bad, don't parse some
 more characters as part of a scheme part

svn: r5957
---
 collects/net/url-unit.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/net/url-unit.ss b/collects/net/url-unit.ss
index 34603a0135..58c895aece 100644
--- a/collects/net/url-unit.ss
+++ b/collects/net/url-unit.ss
@@ -358,7 +358,7 @@
                "^"
                "[ \t\f\r\n]*"
                "(?:"                ; <A  front-opt
-               "(?:([^:]*):)?"      ; =1  scheme-colon-opt (see below)
+               "(?:([^:&;?/]*):)?"  ; =1  scheme-colon-opt (see below)
                "(?:"                ; <B  slashslash-opt
                "//"
                "(?:([^:/@;?#]*)@)?" ; =2  user-at-opt
@@ -376,7 +376,7 @@
        (lambda (scheme user host port path query fragment)
          (when (and scheme (not (regexp-match? #rx"^[a-zA-Z][a-zA-Z0-9+.-]*$"
                                                scheme)))
-           (url-error "Invalid URL string (bad scheme): ~e" str))
+           (url-error "Invalid URL string; bad scheme ~e: ~e" scheme str))
          ;; Windows => "file://xxx:/...." specifies a "xxx:/..." path
          (when (and (equal? "" port) (equal? "file" scheme)
                     (eq? 'windows url:os-type))