suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

typo

Browse Source 
svn: r5247

original commit: ff2769ad955824eb2d63c56198a16c9833ce9024
This commit is contained in:
Eli Barzilay 2007-01-07 20:14:16 +00:00
parent 3769291887
commit 1fca2539b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/net/url-unit.ss
View File

@ -375,7 +375,7 @@
(define (string->url str) (define (string->url str)
(apply (apply
(lambda (scheme user host port path query fragment) (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))) scheme)))
(url-error "Invalid URL string (bad scheme): ~e" str)) (url-error "Invalid URL string (bad scheme): ~e" str))
;; Windows => "file://xxx:/...." specifies a "xxx:/..." path ;; Windows => "file://xxx:/...." specifies a "xxx:/..." path