fix typo
This commit is contained in:
parent
db04b47cdb
commit
b92ef72c8c
|
@ -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) "\\"))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user