svn: r5247

original commit: ff2769ad955824eb2d63c56198a16c9833ce9024
This commit is contained in:
Eli Barzilay 2007-01-07 20:14:16 +00:00
parent 3769291887
commit 1fca2539b3

View File

@ -375,7 +375,7 @@
(define (string->url str)
(apply
(lambda (scheme user host port path query fragment)
(when (and scheme (not (regexp-match? #rx"^[a-zA-Z][a-zA-Z0-9+-.]*$"
(when (and scheme (not (regexp-match? #rx"^[a-zA-Z][a-zA-Z0-9+.-]*$"
scheme)))
(url-error "Invalid URL string (bad scheme): ~e" str))
;; Windows => "file://xxx:/...." specifies a "xxx:/..." path