This commit is contained in:
Sam Tobin-Hochstadt 2016-02-18 10:49:18 -05:00
parent db04b47cdb
commit b92ef72c8c

View File

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