diff options
| -rw-r--r-- | http-client.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/http-client.scm b/http-client.scm index a15f6e6..79638c1 100644 --- a/http-client.scm +++ b/http-client.scm @@ -591,8 +591,7 @@ host: #f port: #f scheme: #f))) ;; Update path only when it needs to be updated, to ;; avoid unnecessarily mangling it (see #1448) - (req-uri (if (or (http-connection-proxy con) - (not (memq (uri-path req-uri) '(() #f)))) + (req-uri (if (not (memq (uri-path req-uri) '(() #f))) req-uri (update-uri req-uri path: '(/ "")))) (request (write-request (update-request req uri: req-uri))) |