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

fix typo

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2016-02-18 10:49:18 -05:00
parent db04b47cdb
commit b92ef72c8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/net/url-string.rkt
View File

@ -353,7 +353,7 @@
(not (equal? (url-host url) "")) (not (equal? (url-host url) ""))
(pair? strs)) (pair? strs))
(if (equal? (car strs) "") (if (equal? (car strs) "")
(error 'file://->path "rmpty drive element: ~e" url) (error 'file://->path "empty drive element: ~e" url)
(apply build-path (apply build-path
(string->path/win (string->path/win
(string-append "\\\\" (url-host url) "\\" (car strs) "\\")) (string-append "\\\\" (url-host url) "\\" (car strs) "\\"))